1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
#include "format-ksm.h"
#include "emb-file.h"
#include "emb-logging.h"
#include "helpers-binary.h"
static void ksmEncode(unsigned char* b, char dx, char dy, int flags)
{
if(!b)
{
embLog_error("format-ksm.c ksmEncode(), b argument is null\n");
return;
}
/* TODO: How to encode JUMP stitches? JUMP must be handled. Also check this for the EXP format since it appears to be similar */
if(flags == TRIM)
{
b[0] = 128;
b[1] = 2;
b[2] = dx;
b[3] = dy;
}
else if(flags == STOP)
{
b[0] = 128;
b[1] = 1;
b[2] = dx;
b[3] = dy;
}
else
{
b[0] = dx;
b[1] = dy;
}
}
/*! Reads a file with the given \a fileName and loads the data into \a pattern.
* Returns \c true if successful, otherwise returns \c false. */
int readKsm(EmbPattern* pattern, const char* fileName)
{
int prevStitchType = NORMAL;
char b[3];
EmbFile* file = 0;
if(!pattern) { embLog_error("format-ksm.c readKsm(), pattern argument is null\n"); return 0; }
if(!fileName) { embLog_error("format-ksm.c readKsm(), fileName argument is null\n"); return 0; }
file = embFile_open(fileName, "rb");
if(!file)
{
embLog_error("format-ksm.c readKsm(), cannot open %s for reading\n", fileName);
return 0;
}
embFile_seek(file, 0x200, SEEK_SET);
while(embFile_read(b, 1, 3, file) == 3)
{
int flags = NORMAL;
if(((prevStitchType & 0x08) == 0x08) && (b[2] & 0x08) == 0x08)
{
flags = STOP;
}
else if((b[2] & 0x1F) != 0)
{
flags = TRIM;
}
prevStitchType = b[2];
if(b[2] & 0x40)
b[1] = -b[1];
if(b[2] & 0x20)
b[0] = -b[0];
embPattern_addStitchRel(pattern, b[1] / 10.0, b[0] / 10.0, flags, 1);
}
embFile_close(file);
/* 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);
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;
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;
}
/* kate: bom off; indent-mode cstyle; indent-width 4; replace-trailing-space-save on; */
|
