/*! Writes the data from \a pattern to a file with the given \a fileName.
* Returns \c true if successful, otherwise returns \c false. */
int writeT01(EmbPattern* pattern, const char* fileName)
{
EmbRect boundingRect;
EmbFile* file = 0;
int xx, yy, dx, dy, flags;
int co = 1, st = 0;
int ax, ay, mx, my;
EmbStitchList* pointer = 0;
if (!embStitchList_count(pattern->stitchList))
{
embLog_error("format-t01.c writeDst(), pattern contains no stitches\n");
return 0;
}
/* Check for an END stitch and add one if it is not present */
if (pattern->lastStitch->stitch.flags != END)
embPattern_addStitchRel(pattern, 0, 0, END, 1);
file = embFile_open(fileName, "wb");
if (!file)
{
embLog_error("format-t01.c writet01(), cannot open %s for writing\n", fileName);
return 0;
}
embPattern_correctForMaxStitchLength(pattern, 12.1, 12.1);
xx = yy = 0;
co = 1;
co = embThreadList_count(pattern->threadList);
st = 0;
st = embStitchList_count(pattern->stitchList);
flags = NORMAL;
boundingRect = embPattern_calcBoundingBox(pattern);
ax = ay = mx = my = 0;
xx = yy = 0;
pointer = pattern->stitchList;
while (pointer)
{
/* convert from mm to 0.1mm for file format */
dx = roundDouble(pointer->stitch.xx * 10.0) - xx;
dy = roundDouble(pointer->stitch.yy * 10.0) - yy;
xx = roundDouble(pointer->stitch.xx * 10.0);
yy = roundDouble(pointer->stitch.yy * 10.0);
flags = pointer->stitch.flags;
encode_record(file, dx, dy, flags);
pointer = pointer->next;
}
embFile_close(file);
return 1;
}
/*! Writes the data from \a pattern to a file with the given \a fileName.
* Returns \c true if successful, otherwise returns \c false. */
int writePec(EmbPattern* pattern, const char* fileName)
{
EmbFile* file = 0;
if(!embStitchList_count(pattern->stitchList))
{
embLog_error("format-pec.c writePec(), pattern contains no stitches\n");
return 0;
}
/* Check for an END stitch and add one if it is not present */
if(pattern->lastStitch->stitch.flags != END)
embPattern_addStitchRel(pattern, 0, 0, END, 1);
file = embFile_open(fileName, "wb");
if(!file)
{
embLog_error("format-pec.c writePec(), cannot open %s for writing\n", fileName);
return 0;
}
embPattern_flipVertical(pattern); /* TODO: There needs to be a matching flipVertical() call after the write to ensure multiple writes from the same pattern work properly */
embPattern_fixColorCount(pattern);
embPattern_correctForMaxStitchLength(pattern,12.7, 204.7);
embPattern_scale(pattern, 10.0);
binaryWriteBytes(file, "#PEC0001", 8);
writePecStitches(pattern, file, fileName);
embFile_close(file);
return 1;
}
/*! Writes the data from \a pattern to a file with the given \a fileName.
* Returns \c true if successful, otherwise returns \c false. */
int writeExp(EmbPattern* pattern, const char* fileName)
{
#ifdef ARDUINO /* ARDUINO TODO: This is temporary. Remove when complete. */
return 0; /* ARDUINO TODO: This is temporary. Remove when complete. */
#else /* ARDUINO TODO: This is temporary. Remove when complete. */
EmbFile* file = 0;
EmbStitchList* stitches = 0;
double dx = 0.0, dy = 0.0;
double xx = 0.0, yy = 0.0;
int flags = 0;
unsigned char b[4];
if(!pattern) { embLog_error("format-exp.c writeExp(), pattern argument is null\n"); return 0; }
if(!fileName) { embLog_error("format-exp.c writeExp(), fileName argument is null\n"); return 0; }
if(!embStitchList_count(pattern->stitchList))
{
embLog_error("format-exp.c writeExp(), pattern contains no stitches\n");
return 0;
}
/* Check for an END stitch and add one if it is not present */
if(pattern->lastStitch->stitch.flags != END)
embPattern_addStitchRel(pattern, 0, 0, END, 1);
file = embFile_open(fileName, "wb");
if(!file)
{
embLog_error("format-exp.c writeExp(), cannot open %s for writing\n", fileName);
return 0;
}
/* write stitches */
stitches = pattern->stitchList;
while(stitches)
{
dx = stitches->stitch.xx * 10.0 - xx;
dy = stitches->stitch.yy * 10.0 - yy;
xx = stitches->stitch.xx * 10.0;
yy = stitches->stitch.yy * 10.0;
flags = stitches->stitch.flags;
expEncode(b, (char)roundDouble(dx), (char)roundDouble(dy), flags);
if((b[0] == 128) && ((b[1] == 1) || (b[1] == 2) || (b[1] == 4)))
{
embFile_printf(file, "%c%c%c%c", b[0], b[1], b[2], b[3]);
}
else
{
embFile_printf(file, "%c%c", b[0], b[1]);
}
stitches = stitches->next;
}
embFile_printf(file, "\x1a");
embFile_close(file);
return 1;
#endif /* ARDUINO TODO: This is temporary. Remove when complete. */
}
/*! Writes the data from \a pattern to a file with the given \a fileName.
* Returns \c true if successful, otherwise returns \c false. */
int writePes(EmbPattern* pattern, const char* fileName)
{
int pecLocation;
FILE* file = 0;
if(!pattern) {
embLog_error("format-pes.c writePes(), pattern argument is null\n");
return 0;
}
if(!fileName) {
embLog_error("format-pes.c writePes(), fileName argument is null\n");
return 0;
}
file = fopen(fileName, "wb");
if(!file)
{
embLog_error("format-pes.c writePes(), cannot open %s for writing\n", fileName);
return 0;
}
if(!pattern->stitchList || embStitchList_count(pattern->stitchList) == 0) /* TODO: review this. seems like only embStitchList_count should be needed. */
{
embLog_error("format-pes.c writePes(), pattern contains no stitches\n");
return 0;
}
embPattern_flipVertical(pattern);
embPattern_scale(pattern, 10.0);
binaryWriteBytes(file, "#PES0001", 8);
/* WRITE PECPointer 32 bit int */
binaryWriteInt(file, 0x00);
binaryWriteShort(file, 0x01);
binaryWriteShort(file, 0x01);
/* Write object count */
binaryWriteShort(file, 0x01);
binaryWriteShort(file, 0xFFFF); /* command */
binaryWriteShort(file, 0x00); /* unknown */
pesWriteEmbOneSection(pattern, file);
pesWriteSewSegSection(pattern, file);
pecLocation = ftell(file);
fseek(file, 0x08, SEEK_SET);
binaryWriteByte(file, (unsigned char)(pecLocation & 0xFF));
binaryWriteByte(file, (unsigned char)(pecLocation >> 8) & 0xFF);
binaryWriteByte(file, (unsigned char)(pecLocation >> 16) & 0xFF);
fseek(file, 0x00, SEEK_END);
writePecStitches(pattern, file, fileName);
fclose(file);
return 1;
}
/*! Writes the data from \a pattern to a file with the given \a fileName.
* Returns \c true if successful, otherwise returns \c false. */
int writeKsm(EmbPattern* pattern, const char* fileName)
{
EmbFile* file = 0; /* TODO: change writeKsm() to use EmbFile */
EmbStitchList* pointer = 0;
double xx = 0, yy = 0, dx = 0, dy = 0;
int flags = 0;
int i = 0;
unsigned char b[4];
if(!pattern) { embLog_error("format-ksm.c writeKsm(), pattern argument is null\n"); return 0; }
if(!fileName) { embLog_error("format-ksm.c writeKsm(), fileName argument is null\n"); return 0; }
if(!embStitchList_count(pattern->stitchList))
{
embLog_error("format-ksm.c writeKsm(), pattern contains no stitches\n");
return 0;
}
/* Check for an END stitch and add one if it is not present */
if(pattern->lastStitch->stitch.flags != END)
embPattern_addStitchRel(pattern, 0, 0, END, 1);
file = embFile_open(fileName, "wb");
if(!file)
{
embLog_error("format-ksm.c writeKsm(), cannot open %s for writing\n", fileName);
return 0;
}
for(i = 0; i < 0x80; i++)
{
binaryWriteInt(file, 0);
}
/* write stitches */
xx = yy = 0;
pointer = pattern->stitchList;
while(pointer)
{
dx = pointer->stitch.xx - xx;
dy = pointer->stitch.yy - yy;
xx = pointer->stitch.xx;
yy = pointer->stitch.yy;
flags = pointer->stitch.flags;
ksmEncode(b, (char)(dx * 10.0), (char)(dy * 10.0), flags);
embFile_printf(file, "%c%c", b[0], b[1]);
pointer = pointer->next;
}
embFile_printf(file, "\x1a");
embFile_close(file);
return 1;
}
/*! Writes the data from \a pattern to a file with the given \a fileName.
* Returns \c true if successful, otherwise returns \c false. */
int writeVp3(EmbPattern* pattern, const char* fileName)
{
if(!pattern) { embLog_error("format-vp3.c writeVp3(), pattern argument is null\n"); return 0; }
if(!fileName) { embLog_error("format-vp3.c writeVp3(), fileName argument is null\n"); return 0; }
if(!embStitchList_count(pattern->stitchList))
{
embLog_error("format-vp3.c writeVp3(), pattern contains no stitches\n");
return 0;
}
/* TODO: embFile_open() needs to occur here after the check for no stitches */
return 0; /*TODO: finish writeVp3 */
}
/*! Writes the data from \a pattern to a file with the given \a fileName.
* Returns \c true if successful, otherwise returns \c false. */
int writeMit(EmbPattern* pattern, const char* fileName)
{
EmbFile* file = 0;
EmbStitchList* pointer = 0;
double xx = 0, yy = 0, dx = 0, dy = 0;
int flags = 0;
if(!pattern) { embLog_error("format-mit.c writeMit(), pattern argument is null\n"); return 0; }
if(!fileName) { embLog_error("format-mit.c writeMit(), fileName argument is null\n"); return 0; }
if(!embStitchList_count(pattern->stitchList))
{
embLog_error("format-mit.c writeMit(), pattern contains no stitches\n");
return 0;
}
/* Check for an END stitch and add one if it is not present */
if (pattern->lastStitch->stitch.flags != END)
{
embPattern_addStitchRel(pattern, 0, 0, END, 1);
}
file = embFile_open(fileName, "wb");
if (!file)
{
embLog_error("format-mit.c writeMit(), cannot open %s for writing\n", fileName);
return 0;
}
embPattern_correctForMaxStitchLength(pattern, 0x1F, 0x1F);
xx = yy = 0;
pointer = pattern->stitchList;
while (pointer)
{
dx = pointer->stitch.xx - xx;
dy = pointer->stitch.yy - yy;
xx = pointer->stitch.xx;
yy = pointer->stitch.yy;
flags = pointer->stitch.flags;
embFile_putc(mitEncodeStitch(dx), file);
embFile_putc(mitEncodeStitch(dy), file);
pointer = pointer->next;
}
embFile_close(file);
return 1;
}
/*! Writes the data from \a pattern to a file with the given \a fileName.
* Returns \c true if successful, otherwise returns \c false. */
int write10o(EmbPattern* pattern, const char* fileName)
{
if(!pattern) { embLog_error("format-10o.c write10o(), pattern argument is null\n"); return 0; }
if(!fileName) { embLog_error("format-10o.c write10o(), fileName argument is null\n"); return 0; }
if(!embStitchList_count(pattern->stitchList))
{
embLog_error("format-10o.c write10o(), pattern contains no stitches\n");
return 0;
}
/* Check for an END stitch and add one if it is not present */
if(pattern->lastStitch->stitch.flags != END)
embPattern_addStitchRel(pattern, 0, 0, END, 1);
/* TODO: embFile_open() needs to occur here after the check for no stitches */
return 0; /*TODO: finish write10o */
}
/*! Writes the data from \a pattern to a file with the given \a fileName.
* Returns \c true if successful, otherwise returns \c false. */
int writeVip(EmbPattern* pattern, const char* fileName)
{
EmbRect boundingRect;
int stitchCount, minColors, patternColor;
int attributeSize = 0;
int xCompressedSize = 0;
int yCompressedSize = 0;
double previousX = 0;
double previousY = 0;
unsigned char* xValues = 0, *yValues = 0, *attributeValues = 0;
EmbStitchList* pointer = 0;
double xx = 0.0;
double yy = 0.0;
int flags = 0;
int i = 0;
unsigned char* attributeCompressed = 0, *xCompressed = 0, *yCompressed = 0, *decodedColors = 0, *encodedColors = 0;
unsigned char prevByte = 0;
EmbThreadList* colorPointer = 0;
EmbFile* file = 0;
if(!pattern) { embLog_error("format-vip.c writeVip(), pattern argument is null\n"); return 0; }
if(!fileName) { embLog_error("format-vip.c writeVip(), fileName argument is null\n"); return 0; }
stitchCount = embStitchList_count(pattern->stitchList);
if(!stitchCount)
{
embLog_error("format-vip.c writeVip(), pattern contains no stitches\n");
return 0;
}
/* Check for an END stitch and add one if it is not present */
if(pattern->lastStitch && pattern->lastStitch->stitch.flags != END)
{
embPattern_addStitchRel(pattern, 0, 0, END, 1);
stitchCount++;
}
file = embFile_open(fileName, "wb");
if(file == 0)
{
embLog_error("format-vip.c writeVip(), cannot open %s for writing\n", fileName);
return 0;
}
minColors = embThreadList_count(pattern->threadList);
decodedColors = (unsigned char*)malloc(minColors << 2);
if(!decodedColors) return 0;
encodedColors = (unsigned char*)malloc(minColors << 2);
if(encodedColors) /* TODO: review this line. It looks clearly wrong. If not, note why. */
{
free(decodedColors);
decodedColors = 0;
return 0;
}
/* embPattern_correctForMaxStitchLength(pattern, 0x7F, 0x7F); */
patternColor = minColors;
if(minColors > 24) minColors = 24;
binaryWriteUInt(file, 0x0190FC5D);
binaryWriteUInt(file, stitchCount);
binaryWriteUInt(file, minColors);
boundingRect = embPattern_calcBoundingBox(pattern);
binaryWriteShort(file, (short) roundDouble(boundingRect.right * 10.0));
binaryWriteShort(file, (short) -roundDouble(boundingRect.top * 10.0 - 1.0));
binaryWriteShort(file, (short) roundDouble(boundingRect.left * 10.0));
binaryWriteShort(file, (short) -roundDouble(boundingRect.bottom * 10.0 - 1.0));
binaryWriteUInt(file, 0x38 + (minColors << 3));
xValues = (unsigned char*)malloc(sizeof(unsigned char)*(stitchCount));
yValues = (unsigned char*)malloc(sizeof(unsigned char)*(stitchCount));
attributeValues = (unsigned char*)malloc(sizeof(unsigned char)*(stitchCount));
if(xValues && yValues && attributeValues)
{
pointer = pattern->stitchList;
while(pointer)
{
xx = pointer->stitch.xx;
yy = pointer->stitch.yy;
flags = pointer->stitch.flags;
xValues[i] = vipEncodeByte((xx - previousX) * 10.0);
previousX = xx;
yValues[i] = vipEncodeByte((yy - previousY) * 10.0);
previousY = yy;
attributeValues[i] = vipEncodeStitchType(flags);
pointer = pointer->next;
i++;
}
attributeCompressed = vipCompressData(attributeValues, stitchCount, &attributeSize);
xCompressed = vipCompressData(xValues, stitchCount, &xCompressedSize);
yCompressed = vipCompressData(yValues, stitchCount, &yCompressedSize);
binaryWriteUInt(file, (unsigned int) (0x38 + (minColors << 3) + attributeSize));
binaryWriteUInt(file, (unsigned int) (0x38 + (minColors << 3) + attributeSize + xCompressedSize));
binaryWriteUInt(file, 0x00000000);
binaryWriteUInt(file, 0x00000000);
binaryWriteUShort(file, 0x0000);
binaryWriteInt(file, minColors << 2);
colorPointer = pattern->threadList;
for(i = 0; i < minColors; i++)
{
int byteChunk = i << 2;
EmbColor currentColor = colorPointer->thread.color;
decodedColors[byteChunk] = currentColor.r;
decodedColors[byteChunk + 1] = currentColor.g;
decodedColors[byteChunk + 2] = currentColor.b;
decodedColors[byteChunk + 3] = 0x01;
colorPointer = colorPointer->next;
}
for(i = 0; i < minColors << 2; ++i)
{
unsigned char tmpByte = (unsigned char) (decodedColors[i] ^ vipDecodingTable[i]);
prevByte = (unsigned char) (tmpByte ^ prevByte);
binaryWriteByte(file, prevByte);
}
for(i = 0; i <= minColors; i++)
{
binaryWriteInt(file, 1);
}
binaryWriteUInt(file, 0); /* string length */
binaryWriteShort(file, 0);
binaryWriteBytes(file, (char*) attributeCompressed, attributeSize);
binaryWriteBytes(file, (char*) xCompressed, xCompressedSize);
binaryWriteBytes(file, (char*) yCompressed, yCompressedSize);
}
if(attributeCompressed) { free(attributeCompressed); attributeCompressed = 0; }
if(xCompressed) { free(xCompressed); xCompressed = 0; }
if(yCompressed) { free(yCompressed); yCompressed = 0; }
if(attributeValues) { free(attributeValues); attributeValues = 0; }
if(xValues) { free(xValues); xValues = 0; }
if(yValues) { free(yValues); yValues = 0; }
if(decodedColors) { free(decodedColors); decodedColors = 0; }
if(encodedColors) { free(encodedColors); encodedColors = 0; }
embFile_close(file);
return 1;
}
int writeXxx(EmbPattern* pattern, const char* fileName)
{
FILE* file = 0;
int i;
EmbRect rect;
int endOfStitches;
EmbThreadList* colors;
int curColor = 0;
if(!pattern) { embLog_error("format-xxx.c writeXxx(), pattern argument is null\n"); return 0; }
if(!fileName) { embLog_error("format-xxx.c writeXxx(), fileName argument is null\n"); return 0; }
embPattern_correctForMaxStitchLength(pattern, 124, 127);
file = fopen(fileName, "wb");
if(!file)
{
embLog_error("format-xxx.c writeXxx(), cannot open %s for writing\n", fileName);
return 0;
}
for(i = 0; i < 0x17; i++)
{
binaryWriteByte(file, 0x00);
}
binaryWriteUInt(file, (unsigned int) embStitchList_count(pattern->stitchList));
for(i = 0; i < 0x0C; i++)
{
binaryWriteByte(file, 0x00);
}
binaryWriteUShort(file, (unsigned short)embThreadList_count(pattern->threadList));
binaryWriteShort(file, 0x0000);
rect = embPattern_calcBoundingBox(pattern);
binaryWriteShort(file, (short)(embRect_width(rect) * 10.0));
binaryWriteShort(file, (short)(embRect_height(rect) * 10.0));
binaryWriteShort(file, (short)(embRect_width(rect) / 2.0 * 10)); /*TODO: xEnd from start point x=0 */
binaryWriteShort(file, (short)(embRect_height(rect) / 2.0 * 10)); /*TODO: yEnd from start point y=0 */
binaryWriteShort(file, (short)(embRect_width(rect)/2.0 * 10)); /*TODO: left from start x = 0 */
binaryWriteShort(file, (short)(embRect_height(rect)/2.0 * 10)); /*TODO: bottom from start y = 0 */
for(i = 0; i < 0xC5; i++)
{
binaryWriteByte(file, 0x00);
}
binaryWriteInt(file, 0x0000); /* place holder for end of stitches */
xxxEncodeDesign(file, pattern);
endOfStitches = ftell(file);
fseek(file, 0xFC, SEEK_SET);
binaryWriteUInt(file, endOfStitches);
fseek(file, 0, SEEK_END);
binaryWriteByte(file, 0x7F); /* is this really correct? */
binaryWriteByte(file, 0x7F);
binaryWriteByte(file, 0x03);
binaryWriteByte(file, 0x14);
binaryWriteByte(file, 0x00);
binaryWriteByte(file, 0x00);
colors = pattern->threadList;
while(colors)
{
binaryWriteByte(file, 0x00);
binaryWriteByte(file, colors->thread.color.r);
binaryWriteByte(file, colors->thread.color.g);
binaryWriteByte(file, colors->thread.color.b);
curColor++;
colors = colors->next;
}
for(i = 0; i < (22 - curColor); i++)
{
binaryWriteUInt(file, 0x01000000);
}
binaryWriteByte(file, 0x00);
binaryWriteByte(file, 0x01);
fclose(file);
return 1;
}
/*TODO: The params determine the max XY movement rather than the length. They need renamed or clarified further. */
void embPattern_correctForMaxStitchLength(EmbPattern* p, double maxStitchLength, double maxJumpLength)
{
int j = 0, splits;
double maxXY, maxLen, addX, addY;
if(!p) { embLog_error("emb-pattern.c embPattern_correctForMaxStitchLength(), p argument is null\n"); return; }
if(embStitchList_count(p->stitchList) > 1)
{
EmbStitchList* pointer = 0;
EmbStitchList* prev = 0;
prev = p->stitchList;
pointer = prev->next;
while(pointer)
{
double xx = prev->stitch.xx;
double yy = prev->stitch.yy;
double dx = pointer->stitch.xx - xx;
double dy = pointer->stitch.yy - yy;
if((fabs(dx) > maxStitchLength) || (fabs(dy) > maxStitchLength))
{
maxXY = max(fabs(dx), fabs(dy));
if(pointer->stitch.flags & (JUMP | TRIM)) maxLen = maxJumpLength;
else maxLen = maxStitchLength;
splits = (int)ceil((double)maxXY / maxLen);
if(splits > 1)
{
int flagsToUse = pointer->stitch.flags;
int colorToUse = pointer->stitch.color;
addX = (double)dx / splits;
addY = (double)dy / splits;
for(j = 1; j < splits; j++)
{
EmbStitchList *item;
EmbStitch s;
s.xx = xx + addX * j;
s.yy = yy + addY * j;
s.flags = flagsToUse;
s.color = colorToUse;
item = (EmbStitchList *)malloc(sizeof(EmbStitchList));
if(!item) { embLog_error("emb-pattern.c embPattern_correctForMaxStitchLength(), cannot allocate memory for item\n"); return; }
item->stitch = s;
item->next = pointer;
prev->next = item;
prev = item;
}
}
}
prev = pointer;
if(pointer)
{
pointer = pointer->next;
}
}
}
if(p->lastStitch && p->lastStitch->stitch.flags != END)
{
embPattern_addStitchAbs(p, p->lastStitch->stitch.xx, p->lastStitch->stitch.yy, END, 1);
}
}
/*! Writes the data from \a pattern to a file with the given \a fileName.
* Returns \c true if successful, otherwise returns \c false. */
int writeCsv(EmbPattern* pattern, const char* fileName)
{
FILE* file = 0;
EmbStitchList* sList = 0;
EmbThreadList* tList = 0;
EmbRect boundingRect;
int i = 0;
int stitchCount = 0;
int threadCount = 0;
if(!pattern) { embLog_error("format-csv.c writeCsv(), pattern argument is null\n"); return 0; }
if(!fileName) { embLog_error("format-csv.c writeCsv(), fileName argument is null\n"); return 0; }
sList = pattern->stitchList;
stitchCount = embStitchList_count(sList);
tList = pattern->threadList;
threadCount = embThreadList_count(tList);
boundingRect = embPattern_calcBoundingBox(pattern);
if(!stitchCount)
{
embLog_error("format-csv.c writeCsv(), pattern contains no stitches\n");
return 0;
}
/* Check for an END stitch and add one if it is not present */
if(pattern->lastStitch->stitch.flags != END)
{
embPattern_addStitchRel(pattern, 0, 0, END, 1);
stitchCount++;
}
file = fopen(fileName, "w");
if(!file)
{
embLog_error("format-csv.c writeCsv(), cannot open %s for writing\n", fileName);
return 0;
}
/* write header */
fprintf(file, "\"#\",\"Embroidermodder 2 CSV Embroidery File\"\n");
fprintf(file, "\"#\",\"http://embroidermodder.github.io\"\n");
fprintf(file, "\n");
fprintf(file, "\"#\",\"General Notes:\"\n");
fprintf(file, "\"#\",\"This file can be read by Excel or LibreOffice as CSV (Comma Separated Value) or with a text editor.\"\n");
fprintf(file, "\"#\",\"Lines beginning with # are comments.\"\n");
fprintf(file, "\"#\",\"Lines beginning with > are variables: [VAR_NAME], [VAR_VALUE]\"\n");
fprintf(file, "\"#\",\"Lines beginning with $ are threads: [THREAD_NUMBER], [RED], [GREEN], [BLUE], [DESCRIPTION], [CATALOG_NUMBER]\"\n");
fprintf(file, "\"#\",\"Lines beginning with * are stitch entries: [STITCH_TYPE], [X], [Y]\"\n");
fprintf(file, "\n");
fprintf(file, "\"#\",\"Stitch Entry Notes:\"\n");
fprintf(file, "\"#\",\"STITCH instructs the machine to move to the position [X][Y] and then make a stitch.\"\n");
fprintf(file, "\"#\",\"JUMP instructs the machine to move to the position [X][Y] without making a stitch.\"\n");
fprintf(file, "\"#\",\"TRIM instructs the machine to cut the thread before moving to the position [X][Y] without making a stitch.\"\n");
fprintf(file, "\"#\",\"COLOR instructs the machine to stop temporarily so that the user can change to a different color thread before resuming.\"\n");
fprintf(file, "\"#\",\"END instructs the machine that the design is completed and there are no further instructions.\"\n");
fprintf(file, "\"#\",\"UNKNOWN encompasses instructions that may not be supported currently.\"\n");
fprintf(file, "\"#\",\"[X] and [Y] are absolute coordinates in millimeters (mm).\"\n");
fprintf(file, "\n");
/* write variables */
fprintf(file,"\"#\",\"[VAR_NAME]\",\"[VAR_VALUE]\"\n");
fprintf(file, "\">\",\"STITCH_COUNT:\",\"%u\"\n", (unsigned int)stitchCount);
fprintf(file, "\">\",\"THREAD_COUNT:\",\"%u\"\n", (unsigned int)threadCount);
fprintf(file, "\">\",\"EXTENTS_LEFT:\",\"%f\"\n", boundingRect.left);
fprintf(file, "\">\",\"EXTENTS_TOP:\",\"%f\"\n", boundingRect.top);
fprintf(file, "\">\",\"EXTENTS_RIGHT:\",\"%f\"\n", boundingRect.right);
fprintf(file, "\">\",\"EXTENTS_BOTTOM:\",\"%f\"\n", boundingRect.bottom);
fprintf(file, "\">\",\"EXTENTS_WIDTH:\",\"%f\"\n", embRect_width(boundingRect));
fprintf(file, "\">\",\"EXTENTS_HEIGHT:\",\"%f\"\n", embRect_height(boundingRect));
fprintf(file,"\n");
/* write colors */
fprintf(file, "\"#\",\"[THREAD_NUMBER]\",\"[RED]\",\"[GREEN]\",\"[BLUE]\",\"[DESCRIPTION]\",\"[CATALOG_NUMBER]\"\n");
i = 1;
while(tList)
{
fprintf(file, "\"$\",\"%d\",\"%d\",\"%d\",\"%d\",\"%s\",\"%s\"\n", i, /* TODO: fix segfault that backtraces here when libembroidery-convert from dst to csv. */
(int)tList->thread.color.r,
(int)tList->thread.color.g,
(int)tList->thread.color.b,
tList->thread.description,
tList->thread.catalogNumber);
i++;
tList = tList->next;
}
fprintf(file, "\n");
/* write stitches */
fprintf(file, "\"#\",\"[STITCH_TYPE]\",\"[X]\",\"[Y]\"\n");
while(sList)
{
EmbStitch s = sList->stitch;
fprintf(file, "\"*\",\"%s\",\"%f\",\"%f\"\n", csvStitchFlagToStr(s.flags), s.xx, s.yy);
sList = sList->next;
}
fclose(file);
return 1;
}
/*! Writes the data from \a pattern to a file with the given \a fileName.
* Returns \c true if successful, otherwise returns \c false. */
int writeVp3(EmbPattern* pattern, const char* fileName)
{
EmbFile *file = 0;
EmbRect bounds;
int remainingBytesPos, remainingBytesPos2;
int colorSectionStitchBytes;
int first = 1;
int numberOfColors = 0;
EmbColor color;
EmbStitchList *mainPointer = 0, *pointer = 0;
if(!pattern) { embLog_error("format-vp3.c writeVp3(), pattern argument is null\n"); return 0; }
if(!fileName) { embLog_error("format-vp3.c writeVp3(), fileName argument is null\n"); return 0; }
if(!embStitchList_count(pattern->stitchList))
{
embLog_error("format-vp3.c writeVp3(), pattern contains no stitches\n");
return 0;
}
bounds = embPattern_calcBoundingBox(pattern);
file = embFile_open(fileName, "wb");
if(!file)
{
embLog_error("format-vp3.c writeVp3(), cannot open %s for writing\n", fileName);
return 0;
}
embPattern_correctForMaxStitchLength(pattern, 3200.0, 3200.0); /* VP3 can encode signed 16bit deltas */
embPattern_flipVertical(pattern);
binaryWriteBytes(file, "%vsm%", 5);
binaryWriteByte(file, 0);
vp3WriteString(file, "Embroidermodder");
binaryWriteByte(file, 0);
binaryWriteByte(file, 2);
binaryWriteByte(file, 0);
remainingBytesPos = embFile_tell(file);
binaryWriteInt(file, 0); /* placeholder */
vp3WriteString(file, "");
binaryWriteIntBE(file, bounds.right * 1000);
binaryWriteIntBE(file, bounds.bottom * 1000);
binaryWriteIntBE(file, bounds.left * 1000);
binaryWriteIntBE(file, bounds.top * 1000);
binaryWriteInt(file, 0); /* this would be some (unknown) function of thread length */
binaryWriteByte(file, 0);
numberOfColors = 0;
mainPointer = pattern->stitchList;
while(mainPointer)
{
int flag;
EmbColor newColor;
pointer = mainPointer;
flag = pointer->stitch.flags;
newColor = embThreadList_getAt(pattern->threadList, pointer->stitch.color).color;
if(newColor.r != color.r || newColor.g != color.g || newColor.b != color.b)
{
numberOfColors++;
color.r = newColor.r;
color.g = newColor.g;
color.b = newColor.b;
}
else if(flag & END || flag & STOP)
{
numberOfColors++;
}
while(pointer && (flag == pointer->stitch.flags))
{
pointer = pointer->next;
}
mainPointer = pointer;
}
binaryWriteByte(file, numberOfColors);
binaryWriteByte(file, 12);
binaryWriteByte(file, 0);
binaryWriteByte(file, 1);
binaryWriteByte(file, 0);
binaryWriteByte(file, 3);
binaryWriteByte(file, 0);
remainingBytesPos2 = embFile_tell(file);
binaryWriteInt(file, 0); /* placeholder */
binaryWriteIntBE(file, 0); /* origin X */
binaryWriteIntBE(file, 0); /* origin Y */
binaryWriteByte(file, 0);
binaryWriteByte(file, 0);
binaryWriteByte(file, 0);
binaryWriteIntBE(file, bounds.right * 1000);
binaryWriteIntBE(file, bounds.bottom * 1000);
binaryWriteIntBE(file, bounds.left * 1000);
binaryWriteIntBE(file, bounds.top * 1000);
binaryWriteIntBE(file, (bounds.right - bounds.left) * 1000);
binaryWriteIntBE(file, (bounds.bottom - bounds.top) * 1000);
vp3WriteString(file, "");
binaryWriteShortBE(file, 25700);
binaryWriteIntBE(file, 4096);
binaryWriteIntBE(file, 0);
binaryWriteIntBE(file, 0);
binaryWriteIntBE(file, 4096);
binaryWriteBytes(file, "xxPP\x01\0", 6);
vp3WriteString(file, "");
binaryWriteShortBE(file, numberOfColors);
mainPointer = pattern->stitchList;
while(mainPointer)
{
char colorName[8] = { 0 };
double lastX, lastY;
int colorSectionLengthPos;
EmbStitch s;
int lastColor;
if(!first)
binaryWriteByte(file, 0);
binaryWriteByte(file, 0);
binaryWriteByte(file, 5);
binaryWriteByte(file, 0);
colorSectionLengthPos = embFile_tell(file);
binaryWriteInt(file, 0); /* placeholder */
pointer = mainPointer;
color = embThreadList_getAt(pattern->threadList, pointer->stitch.color).color;
if(first && pointer->stitch.flags & JUMP && pointer->next->stitch.flags & JUMP)
pointer = pointer->next;
s = pointer->stitch;
embLog_print("format-vp3.c DEBUG %d, %lf, %lf\n", s.flags, s.xx, s.yy);
binaryWriteIntBE(file, s.xx * 1000);
binaryWriteIntBE(file, -s.yy * 1000);
pointer = pointer->next;
first = 0;
lastX = s.xx;
lastY = s.yy;
lastColor = s.color;
binaryWriteByte(file, 1);
binaryWriteByte(file, 0);
embLog_print("format-vp3.c writeVp3(), switching to color (%d, %d, %d)\n", color.r, color.g, color.b);
binaryWriteByte(file, color.r);
binaryWriteByte(file, color.g);
binaryWriteByte(file, color.b);
binaryWriteByte(file, 0);
binaryWriteByte(file, 0);
binaryWriteByte(file, 0);
binaryWriteByte(file, 5);
binaryWriteByte(file, 40);
vp3WriteString(file, "");
sprintf(colorName, "#%02x%02x%02x", color.b, color.g, color.r);
vp3WriteString(file, colorName);
vp3WriteString(file, "");
binaryWriteIntBE(file, 0);
binaryWriteIntBE(file, 0);
vp3WriteStringLen(file, "\0", 1);
colorSectionStitchBytes = embFile_tell(file);
binaryWriteInt(file, 0); /* placeholder */
binaryWriteByte(file, 10);
binaryWriteByte(file, 246);
binaryWriteByte(file, 0);
while(pointer)
{
int dx, dy;
EmbStitch s = pointer->stitch;
if(s.color != lastColor)
break;
if(s.flags & END || s.flags & STOP)
break;
dx = (s.xx - lastX) * 10;
dy = (s.yy - lastY) * 10;
lastX = lastX + dx / 10.0; /* output is in ints, ensure rounding errors do not sum up */
lastY = lastY + dy / 10.0;
if(dx < -127 || dx > 127 || dy < -127 || dy > 127)
{
binaryWriteByte(file, 128);
binaryWriteByte(file, 1);
binaryWriteShortBE(file, dx);
binaryWriteShortBE(file, dy);
binaryWriteByte(file, 128);
binaryWriteByte(file, 2);
}
else
{
binaryWriteByte(file, dx);
binaryWriteByte(file, dy);
}
pointer = pointer->next;
}
vp3PatchByteCount(file, colorSectionStitchBytes, -4);
vp3PatchByteCount(file, colorSectionLengthPos, -3);
mainPointer = pointer;
}
vp3PatchByteCount(file, remainingBytesPos2, -4);
vp3PatchByteCount(file, remainingBytesPos, -4);
embFile_close(file);
embPattern_flipVertical(pattern);
return 1;
}
int writeHus(EmbPattern* pattern, const char* fileName)
{
EmbRect boundingRect;
int stitchCount, minColors, patternColor;
int attributeSize = 0;
int xCompressedSize = 0;
int yCompressedSize = 0;
double previousX = 0;
double previousY = 0;
unsigned char* xValues, *yValues, *attributeValues;
EmbStitchList* pointer = 0;
double xx = 0.0;
double yy = 0.0;
int flags = 0;
int i = 0;
unsigned char* attributeCompressed, *xCompressed, *yCompressed;
FILE* file = 0;
file = fopen(fileName, "wb");
if(!file)
{
/*TODO: set status here "Error opening HUS file for write:" */
return 0;
}
stitchCount = embStitchList_count(pattern->stitchList);
/* embPattern_correctForMaxStitchLength(pattern, 0x7F, 0x7F); */
minColors = embThreadList_count(pattern->threadList);
patternColor = minColors;
if(minColors > 24) minColors = 24;
binaryWriteUInt(file, 0x00C8AF5B);
binaryWriteUInt(file, stitchCount);
binaryWriteUInt(file, minColors);
boundingRect = embPattern_calcBoundingBox(pattern);
binaryWriteShort(file, (short) roundDouble(boundingRect.right * 10.0));
binaryWriteShort(file, (short) -roundDouble(boundingRect.top * 10.0 - 1.0));
binaryWriteShort(file, (short) roundDouble(boundingRect.left * 10.0));
binaryWriteShort(file, (short) -roundDouble(boundingRect.bottom * 10.0 - 1.0));
binaryWriteUInt(file, 0x2A + 2 * minColors);
xValues = (unsigned char*)malloc(sizeof(unsigned char)*(stitchCount));
/* TODO: malloc fail error */
yValues = (unsigned char*)malloc(sizeof(unsigned char)*(stitchCount));
/* TODO: malloc fail error */
attributeValues = (unsigned char*)malloc(sizeof(unsigned char)*(stitchCount));
/* TODO: malloc fail error */
pointer = pattern->stitchList;
while(pointer)
{
xx = pointer->stitch.xx;
yy = pointer->stitch.yy;
flags = pointer->stitch.flags;
xValues[i] = husEncodeByte((xx - previousX) * 10.0);
previousX = xx;
yValues[i] = husEncodeByte((yy - previousY) * 10.0);
previousY = yy;
attributeValues[i] = husEncodeStitchType(flags);
pointer = pointer->next;
i++;
}
attributeCompressed = husCompressData(attributeValues, stitchCount, &attributeSize);
xCompressed = husCompressData(xValues, stitchCount, &xCompressedSize);
yCompressed = husCompressData(yValues, stitchCount, &yCompressedSize);
/* TODO: error if husCompressData returns zero? */
binaryWriteUInt(file, (unsigned int) (0x2A + 2 * patternColor + attributeSize));
binaryWriteUInt(file, (unsigned int) (0x2A + 2 * patternColor + attributeSize + xCompressedSize));
binaryWriteUInt(file, 0x00000000);
binaryWriteUInt(file, 0x00000000);
binaryWriteUShort(file, 0x0000);
for(i = 0; i < patternColor; i++)
{
binaryWriteShort(file, (short)embThread_findNearestColorInArray(embThreadList_getAt(pattern->threadList, i).color, (EmbThread*)husThreads, husThreadCount));
}
binaryWriteBytes(file, (char*) attributeCompressed, attributeSize);
binaryWriteBytes(file, (char*) xCompressed, xCompressedSize);
binaryWriteBytes(file, (char*) yCompressed, yCompressedSize);
free(xValues);
free(xCompressed);
free(yValues);
free(yCompressed);
free(attributeValues);
free(attributeCompressed);
fclose(file);
return 1;
}
/*! Writes the data from \a pattern to a file with the given \a fileName.
* Returns \c true if successful, otherwise returns \c false. */
int writePcs(EmbPattern* pattern, const char* fileName)
{
EmbStitchList* pointer = 0;
EmbThreadList* threadPointer = 0;
EmbFile* file = 0;
int i = 0;
unsigned char colorCount = 0;
double xx = 0.0, yy = 0.0;
if(!pattern) { embLog_error("format-pcs.c writePcs(), pattern argument is null\n"); return 0; }
if(!fileName) { embLog_error("format-pcs.c writePcs(), fileName argument is null\n"); return 0; }
if(!embStitchList_count(pattern->stitchList))
{
embLog_error("format-pcs.c writePcs(), pattern contains no stitches\n");
return 0;
}
/* Check for an END stitch and add one if it is not present */
if(pattern->lastStitch->stitch.flags != END)
embPattern_addStitchRel(pattern, 0, 0, END, 1);
file = embFile_open(fileName, "wb");
if(!file)
{
embLog_error("format-pcs.c writePcs(), cannot open %s for writing\n", fileName);
return 0;
}
binaryWriteByte(file, (unsigned char)'2');
binaryWriteByte(file, 3); /* TODO: select hoop size defaulting to Large PCS hoop */
colorCount = (unsigned char)embThreadList_count(pattern->threadList);
binaryWriteUShort(file, (unsigned short)colorCount);
threadPointer = pattern->threadList;
i = 0;
while(threadPointer)
{
EmbColor color = threadPointer->thread.color;
binaryWriteByte(file, color.r);
binaryWriteByte(file, color.g);
binaryWriteByte(file, color.b);
binaryWriteByte(file, 0);
threadPointer = threadPointer->next;
i++;
}
for(; i < 16; i++)
{
binaryWriteUInt(file, 0); /* write remaining colors to reach 16 */
}
binaryWriteUShort(file, (unsigned short)embStitchList_count(pattern->stitchList));
/* write stitches */
xx = yy = 0;
pointer = pattern->stitchList;
while(pointer)
{
pcsEncode(file, roundDouble(pointer->stitch.xx * 10.0), roundDouble(pointer->stitch.yy * 10.0), pointer->stitch.flags);
pointer = pointer->next;
}
embFile_close(file);
return 1;
}
/*! Writes the data from \a pattern to a file with the given \a fileName.
* Returns \c true if successful, otherwise returns \c false. */
int writeJef(EmbPattern* pattern, const char* fileName)
{
int colorlistSize, minColors, designWidth, designHeight, i;
EmbRect boundingRect;
FILE* file = 0;
EmbTime time;
EmbThreadList* threadPointer = 0;
EmbStitch c;
EmbStitchList* pointer = 0;
double prevX, prevY;
if(!pattern) { embLog_error("format-jef.c writeJef(), pattern argument is null\n"); return 0; }
if(!fileName) { embLog_error("format-jef.c writeJef(), fileName argument is null\n"); return 0; }
if(!embStitchList_count(pattern->stitchList))
{
embLog_error("format-jef.c writeJef(), pattern contains no stitches\n");
return 0;
}
/* Check for an END stitch and add one if it is not present */
if(pattern->lastStitch->stitch.flags != END)
embPattern_addStitchRel(pattern, 0, 0, END, 1);
file = fopen(fileName, "wb");
if(!file)
{
embLog_error("format-jef.c writeJef(), cannot open %s for writing\n", fileName);
return 0;
}
embPattern_correctForMaxStitchLength(pattern, 127, 127);
colorlistSize = embThreadList_count(pattern->threadList);
minColors = max(colorlistSize, 6);
binaryWriteInt(file, 0x74 + (minColors * 4));
binaryWriteInt(file, 0x0A);
embTime_initNow(&time);
fprintf(file, "%04d%02d%02d%02d%02d%02d", (int)(time.year + 1900),
(int)(time.month + 1), (int)(time.day), (int)(time.hour),
(int)(time.minute), (int)(time.second));
binaryWriteByte(file, 0x00);
binaryWriteByte(file, 0x00);
binaryWriteInt(file, embThreadList_count(pattern->threadList));
binaryWriteInt(file, embStitchList_count(pattern->stitchList) + max(0, (6 - colorlistSize) * 2) + 1);
boundingRect = embPattern_calcBoundingBox(pattern);
designWidth = (int)(embRect_width(boundingRect) * 10.0);
designHeight = (int)(embRect_width(boundingRect) * 10.0);
binaryWriteInt(file, jefGetHoopSize(designWidth, designHeight));
/* Distance from center of Hoop */
binaryWriteInt(file, (int) (designWidth / 2)); /* left */
binaryWriteInt(file, (int) (designHeight / 2)); /* top */
binaryWriteInt(file, (int) (designWidth / 2)); /* right */
binaryWriteInt(file, (int) (designHeight / 2)); /* bottom */
/* Distance from default 110 x 110 Hoop */
if(min(550 - designWidth / 2, 550 - designHeight / 2) >= 0)
{
binaryWriteInt(file, (int) max(-1, 550 - designWidth / 2)); /* left */
binaryWriteInt(file, (int) max(-1, 550 - designHeight / 2)); /* top */
binaryWriteInt(file, (int) max(-1, 550 - designWidth / 2)); /* right */
binaryWriteInt(file, (int) max(-1, 550 - designHeight / 2)); /* bottom */
}
else
{
binaryWriteInt(file, -1);
binaryWriteInt(file, -1);
binaryWriteInt(file, -1);
binaryWriteInt(file, -1);
}
/* Distance from default 50 x 50 Hoop */
if(min(250 - designWidth / 2, 250 - designHeight / 2) >= 0)
{
binaryWriteInt(file, (int) max(-1, 250 - designWidth / 2)); /* left */
binaryWriteInt(file, (int) max(-1, 250 - designHeight / 2)); /* top */
binaryWriteInt(file, (int) max(-1, 250 - designWidth / 2)); /* right */
binaryWriteInt(file, (int) max(-1, 250 - designHeight / 2)); /* bottom */
}
else
{
binaryWriteInt(file, -1);
binaryWriteInt(file, -1);
binaryWriteInt(file, -1);
binaryWriteInt(file, -1);
}
/* Distance from default 140 x 200 Hoop */
binaryWriteInt(file, (int) (700 - designWidth / 2)); /* left */
binaryWriteInt(file, (int) (1000 - designHeight / 2)); /* top */
binaryWriteInt(file, (int) (700 - designWidth / 2)); /* right */
binaryWriteInt(file, (int) (1000 - designHeight / 2)); /* bottom */
/* repeated Distance from default 140 x 200 Hoop */
/* TODO: Actually should be distance to custom hoop */
binaryWriteInt(file, (int) (630 - designWidth / 2)); /* left */
binaryWriteInt(file, (int) (550 - designHeight / 2)); /* top */
binaryWriteInt(file, (int) (630 - designWidth / 2)); /* right */
binaryWriteInt(file, (int) (550 - designHeight / 2)); /* bottom */
threadPointer = pattern->threadList;
while(threadPointer)
{
binaryWriteInt(file, embThread_findNearestColorInArray(threadPointer->thread.color, (EmbThread*)jefThreads, 79));
threadPointer = threadPointer->next;
}
for(i = 0; i < (minColors - colorlistSize); i++)
{
binaryWriteInt(file, 0x0D);
}
pointer = pattern->stitchList;
prevX = pointer->stitch.xx;
prevY = pointer->stitch.yy;
jefEncode(file, (unsigned char) prevX, (unsigned char) prevY, pointer->stitch.flags);
pointer = pointer->next;
while(pointer)
{
c = pointer->stitch;
jefEncode(file, (unsigned char) (c.xx - prevX), (unsigned char) (c.yy - prevY), c.flags);
prevX = c.xx;
prevY = c.yy;
pointer = pointer->next;
}
fclose(file);
return 1;
}
/*! Writes the data from \a pattern to a file with the given \a fileName.
* Returns \c true if successful, otherwise returns \c false. */
int writeDst(EmbPattern* pattern, const char* fileName)
{
EmbRect boundingRect;
FILE* file = 0;
int xx, yy, dx, dy, flags;
int i;
int co = 1, st = 0;
int ax, ay, mx, my;
char* pd = 0;
EmbStitchList* pointer = 0;
if(!pattern) { embLog_error("format-dst.c writeDst(), pattern argument is null\n"); return 0; }
if(!fileName) { embLog_error("format-dst.c writeDst(), fileName argument is null\n"); return 0; }
file = fopen(fileName, "wb");
if(!file)
{
embLog_error("format-dst.c writeDst(), cannot open %s for writing\n", fileName);
return 0;
}
embPattern_correctForMaxStitchLength(pattern, 12.1, 12.1);
xx = yy = 0;
co = 1;
co = embThreadList_count(pattern->threadList);
st = 0;
st = embStitchList_count(pattern->stitchList);
flags = NORMAL;
boundingRect = embPattern_calcBoundingBox(pattern);
/* TODO: review the code below
if (pattern->get_variable("design_name") != NULL)
{
char *la = stralloccopy(pattern->get_variable("design_name"));
if (strlen(la)>16) la[16]='\0';
fprintf(file,"LA:%-16s\x0d",la);
free (la);
}
else
{
*/
fprintf(file, "LA:%-16s\x0d", "Untitled");
/*} */
fprintf(file, "ST:%7d\x0d", st);
fprintf(file, "CO:%3d\x0d", co - 1); /* number of color changes, not number of colors! */
fprintf(file, "+X:%5d\x0d", (int)(boundingRect.right * 10.0));
fprintf(file, "-X:%5d\x0d", (int)(fabs(boundingRect.left) * 10.0));
fprintf(file, "+Y:%5d\x0d", (int)(boundingRect.bottom * 10.0));
fprintf(file, "-Y:%5d\x0d", (int)(fabs(boundingRect.top) * 10.0));
ax = ay = mx = my = 0;
/* TODO: review the code below */
/*ax=pattern->get_variable_int("ax"); */ /* will return 0 if not defined */
/*ay=pattern->get_variable_int("ay"); */
/*mx=pattern->get_variable_int("mx"); */
/*my=pattern->get_variable_int("my"); */
/*pd=pattern->get_variable("pd");*/ /* will return null pointer if not defined */
pd = 0;
if(pd == 0 || strlen(pd) != 6)
{
/* pd is not valid, so fill in a default consisting of "******" */
pd = "******";
};
fprintf(file, "AX:+%5d\x0d", ax);
fprintf(file, "AY:+%5d\x0d", ay);
fprintf(file, "MX:+%5d\x0d", mx);
fprintf(file, "MY:+%5d\x0d", my);
fprintf(file, "PD:%6s\x0d", pd);
binaryWriteByte(file, 0x1a); /* 0x1a is the code for end of section. */
/* pad out header to proper length */
for(i = 125; i < 512; i++)
{
fprintf(file, " ");
}
/* write stitches */
xx = yy = 0;
pointer = pattern->stitchList;
while(pointer)
{
/* convert from mm to 0.1mm for file format */
dx = roundDouble(pointer->stitch.xx * 10.0) - xx;
dy = roundDouble(pointer->stitch.yy * 10.0) - yy;
xx = roundDouble(pointer->stitch.xx * 10.0);
yy = roundDouble(pointer->stitch.yy * 10.0);
flags = pointer->stitch.flags;
encode_record(file, dx, dy, flags);
pointer = pointer->next;
}
binaryWriteByte(file, 0xA1); /* finish file with a terminator character */
binaryWriteShort(file, 0);
fclose(file);
return 1;
}
