1 |
pcg |
1.1 |
#!/usr/bin/perl |
2 |
|
|
|
3 |
|
|
open TABLE, ">", "table/linedraw.h"; |
4 |
|
|
select TABLE; |
5 |
|
|
|
6 |
|
|
my $ch = 0x2500; |
7 |
|
|
|
8 |
|
|
# coordinate system: |
9 |
|
|
# |
10 |
|
|
# 0..8 (equally spaced) 9,11 mid-1,mid+1, makes 4 bit |
11 |
|
|
# one point = 8 bit, two points = 16 bit |
12 |
|
|
|
13 |
|
|
# 8 bit opcode 0 line, 1 rect, 2 arc |
14 |
|
|
# 8 bit opcode arg |
15 |
|
|
|
16 |
|
|
# OOOOOOOO AAAABBBB X1X1Y1Y1 X2X2Y2Y2 |
17 |
|
|
|
18 |
|
|
my $offs = 0; |
19 |
|
|
my @offs; |
20 |
|
|
|
21 |
|
|
sub emit { |
22 |
|
|
my ($code, $x1, $y1, $x2, $y2, $a, $b) = @_; |
23 |
|
|
$offs++; |
24 |
|
|
printf " 0x%08lx,", ($code << 24) |
25 |
|
|
| ($x1 << 12) |
26 |
|
|
| ($y1 << 8) |
27 |
|
|
| ($x2 << 4) |
28 |
|
|
| ($y2 << 0) |
29 |
|
|
| ($a << 20) |
30 |
|
|
| ($b << 16); |
31 |
|
|
} |
32 |
|
|
|
33 |
|
|
print "static uint32_t linedraw_command[] = {\n"; |
34 |
|
|
|
35 |
|
|
while (<DATA>) { |
36 |
|
|
next if /^\//; |
37 |
|
|
next unless /\S/; |
38 |
|
|
|
39 |
|
|
push @offs, $offs; |
40 |
|
|
|
41 |
|
|
my ($v, $V, $h, $H, $s); |
42 |
|
|
|
43 |
|
|
for (;;) { |
44 |
|
|
/\G-/gc and last; |
45 |
|
|
/\G$/gc and last; |
46 |
|
|
|
47 |
|
|
/\G([123])/gc and $w = $1; |
48 |
|
|
|
49 |
|
|
/\Gh/gc and $h = $w; |
50 |
|
|
/\GH/gc and $H = $w; |
51 |
|
|
/\Gv/gc and $v = $w; |
52 |
|
|
/\GV/gc and $V = $w; |
53 |
|
|
|
54 |
|
|
/\G\//gc and emit 0, 0, 8, 8, 0; |
55 |
|
|
/\G\\/gc and emit 0, 0, 0, 8, 8; |
56 |
|
|
|
57 |
|
|
/\GA/gc and emit 2, 8, 8, 0, 0, 2, 2; |
58 |
|
|
/\GB/gc and emit 2, 0, 8, 0, 0, 1, 2; |
59 |
|
|
/\GC/gc and emit 2, 0, 0, 0, 0, 1, 0; |
60 |
|
|
/\GD/gc and emit 2, 8, 0, 0, 0, 0, 0; |
61 |
|
|
|
62 |
|
|
/\Gi/gc and emit 1, 0, 0, 4, 4; |
63 |
|
|
/\Gj/gc and emit 1, 4, 0, 8, 4; |
64 |
|
|
/\Gk/gc and emit 1, 0, 4, 4, 8; |
65 |
|
|
/\Gl/gc and emit 1, 4, 4, 8, 8; |
66 |
|
|
|
67 |
|
|
/\Gs(\d)/gc and $s = $1; |
68 |
|
|
|
69 |
|
|
/\Gr(\d+),(\d+),(\d+),(\d+)/gc and emit 1, $1, $2, $3, $4, $s; |
70 |
|
|
|
71 |
|
|
/\G\s/gc; |
72 |
|
|
} |
73 |
|
|
|
74 |
|
|
if ($h) { |
75 |
|
|
emit 0, 0, 9,10, 9 if $h > 1; |
76 |
|
|
emit 0, 0, 10,10, 10 if $h & 1; |
77 |
|
|
emit 0, 0, 11,10, 11 if $h > 1; |
78 |
|
|
} |
79 |
|
|
|
80 |
|
|
if ($H) { |
81 |
|
|
emit 0,10, 9, 8, 9 if $H > 1; |
82 |
|
|
emit 0,10, 10, 8, 10 if $H & 1; |
83 |
|
|
emit 0,10, 11, 8, 11 if $H > 1; |
84 |
|
|
} |
85 |
|
|
|
86 |
|
|
if ($v) { |
87 |
|
|
emit 0, 9, 0, 9, 10 if $v > 1; |
88 |
|
|
emit 0,10, 0,10, 10 if $v & 1; |
89 |
|
|
emit 0,11, 0,11, 10 if $v > 1; |
90 |
|
|
} |
91 |
|
|
|
92 |
|
|
if ($V) { |
93 |
|
|
emit 0, 9, 10, 9, 8 if $V > 1; |
94 |
|
|
emit 0,10, 10,10, 8 if $V & 1; |
95 |
|
|
emit 0,11, 10,11, 8 if $V > 1; |
96 |
|
|
} |
97 |
|
|
|
98 |
|
|
$offs[-1] = ($offs[-1] << 4) | ($offs - $offs[-1]); |
99 |
|
|
|
100 |
|
|
printf " // %04x\n", $ch; |
101 |
|
|
$ch++; |
102 |
|
|
} |
103 |
|
|
|
104 |
|
|
print <<EOF; |
105 |
|
|
}; |
106 |
|
|
|
107 |
|
|
static uint16_t linedraw_offs[] = { |
108 |
|
|
EOF |
109 |
|
|
|
110 |
|
|
for (@offs) { |
111 |
|
|
printf " 0x%04x,", $_; |
112 |
|
|
print "\n" if ++$cnt % 5 == 0; |
113 |
|
|
} |
114 |
|
|
|
115 |
|
|
print <<EOF; |
116 |
|
|
}; |
117 |
|
|
|
118 |
|
|
EOF |
119 |
|
|
|
120 |
|
|
__END__ |
121 |
|
|
// 2500 |
122 |
|
|
|
123 |
|
|
1hH |
124 |
|
|
3hH |
125 |
|
|
1vV |
126 |
|
|
3vV |
127 |
|
|
|
128 |
|
|
r0,10,1,10 r3,10,5,10 r7,10,8,10 |
129 |
|
|
r0,9,1,11 r3,9,5,11 r7,9,8,11 |
130 |
|
|
r10,0,10,1 r10,3,10,5 r10,7,10,8 |
131 |
|
|
r9,0,11,1 r9,3,11,5 r9,7,11,8 |
132 |
|
|
|
133 |
|
|
r0,10,1,10 r2,10,3,10 r4,10,5,10 r6,10,7,10 |
134 |
|
|
r0,9,1,11 r2,9,3,11 r4,9,5,11 r6,9,7,11 |
135 |
|
|
r10,0,10,1 r10,2,10,3 r10,4,10,5 r10,6,10,7 |
136 |
|
|
r9,0,11,1 r9,2,11,3 r9,4,11,5 r9,6,11,7 |
137 |
|
|
|
138 |
|
|
1HV |
139 |
|
|
3H1V |
140 |
|
|
1H3V |
141 |
|
|
3HV |
142 |
|
|
|
143 |
|
|
|
144 |
|
|
// 2510 |
145 |
|
|
|
146 |
|
|
1hV |
147 |
|
|
3h1V |
148 |
|
|
1h3V |
149 |
|
|
3hV |
150 |
|
|
|
151 |
|
|
1Hv |
152 |
|
|
3H1v |
153 |
|
|
1H3v |
154 |
|
|
3Hv |
155 |
|
|
|
156 |
|
|
1hv |
157 |
|
|
3h1v |
158 |
|
|
1h3v |
159 |
|
|
3hv |
160 |
|
|
|
161 |
|
|
1HvV |
162 |
|
|
3H1vV |
163 |
|
|
1HV3v |
164 |
|
|
1Hv3V |
165 |
|
|
|
166 |
|
|
|
167 |
|
|
// 2530 |
168 |
|
|
|
169 |
|
|
1H3vV |
170 |
|
|
3Hv1V |
171 |
|
|
3HV1v |
172 |
|
|
3HvV |
173 |
|
|
|
174 |
|
|
1hvV |
175 |
|
|
3h1vV |
176 |
|
|
1hV3v |
177 |
|
|
1hv3V |
178 |
|
|
|
179 |
|
|
1h3vV |
180 |
|
|
3hv1V |
181 |
|
|
1v3hV |
182 |
|
|
3hvV |
183 |
|
|
|
184 |
|
|
1hHV |
185 |
|
|
3h1HV |
186 |
|
|
3H1hV |
187 |
|
|
3hH1V |
188 |
|
|
|
189 |
|
|
|
190 |
|
|
// 2530 |
191 |
|
|
|
192 |
|
|
1hH3V |
193 |
|
|
3hV1H |
194 |
|
|
1h3HV |
195 |
|
|
3hHV |
196 |
|
|
|
197 |
|
|
1hHv |
198 |
|
|
1vH3h |
199 |
|
|
1hv3H |
200 |
|
|
1v3hH |
201 |
|
|
|
202 |
|
|
1hH3v |
203 |
|
|
1H3hv |
204 |
|
|
1h3Hv |
205 |
|
|
3hHv |
206 |
|
|
|
207 |
|
|
1hHvV |
208 |
|
|
1vVH3h |
209 |
|
|
1hvV3H |
210 |
|
|
1vV3hH |
211 |
|
|
|
212 |
|
|
|
213 |
|
|
// 2540 |
214 |
|
|
|
215 |
|
|
1hHV3v |
216 |
|
|
1hHv3V |
217 |
|
|
1hH3vV |
218 |
|
|
1HV3hv |
219 |
|
|
|
220 |
|
|
1hV3Hv |
221 |
|
|
1Hv3hV |
222 |
|
|
1hv3HV |
223 |
|
|
1V3hHv |
224 |
|
|
|
225 |
|
|
1v3hHV |
226 |
|
|
1H3hvV |
227 |
|
|
1h3HvV |
228 |
|
|
3hHvV |
229 |
|
|
|
230 |
pcg |
1.2 |
r0,10,3,10 r5,10,8,10 |
231 |
|
|
r0,9,3,11 r5,9,8,11 |
232 |
|
|
r10,0,10,3 r10,5,10,8 |
233 |
|
|
r9,0,11,3 r9,5,11,8 |
234 |
pcg |
1.1 |
|
235 |
|
|
|
236 |
|
|
// 2550 |
237 |
|
|
|
238 |
|
|
2hH |
239 |
|
|
2vV |
240 |
|
|
1V2H |
241 |
|
|
2V1H |
242 |
|
|
|
243 |
|
|
2VH |
244 |
|
|
2h1V |
245 |
|
|
1h2V |
246 |
|
|
2hV |
247 |
|
|
|
248 |
|
|
1v2H |
249 |
|
|
2v1H |
250 |
|
|
2vH |
251 |
|
|
2h1v |
252 |
|
|
|
253 |
|
|
1h2v |
254 |
|
|
2hv |
255 |
|
|
1vV2H |
256 |
|
|
2vV1H |
257 |
|
|
|
258 |
|
|
|
259 |
|
|
// 2560 |
260 |
|
|
|
261 |
|
|
2vVH |
262 |
|
|
2h1vV |
263 |
|
|
1h2vV |
264 |
|
|
2hvV |
265 |
|
|
|
266 |
|
|
2hH1V |
267 |
|
|
2V1hH |
268 |
|
|
2hHV |
269 |
|
|
1v2hH |
270 |
|
|
|
271 |
|
|
2v1hH |
272 |
|
|
2vhH |
273 |
|
|
1vV2hH |
274 |
|
|
1hH2vV |
275 |
|
|
|
276 |
|
|
2hHvV |
277 |
|
|
A |
278 |
|
|
B |
279 |
|
|
C |
280 |
|
|
|
281 |
|
|
|
282 |
|
|
// 2570 |
283 |
|
|
|
284 |
|
|
D |
285 |
|
|
1/ |
286 |
|
|
1\ |
287 |
|
|
1/\ |
288 |
|
|
|
289 |
|
|
1h |
290 |
|
|
1v |
291 |
|
|
1H |
292 |
|
|
1V |
293 |
|
|
|
294 |
|
|
3h |
295 |
|
|
3v |
296 |
|
|
3H |
297 |
|
|
3V |
298 |
|
|
|
299 |
|
|
1h3H |
300 |
|
|
1v3V |
301 |
|
|
1H3h |
302 |
|
|
1V3v |
303 |
|
|
|
304 |
|
|
|
305 |
|
|
// 2580 |
306 |
|
|
|
307 |
|
|
r0,0,8,4 |
308 |
|
|
r0,7,8,8 |
309 |
|
|
r0,6,8,8 |
310 |
|
|
r0,5,8,8 |
311 |
|
|
|
312 |
|
|
r0,4,8,8 |
313 |
|
|
r0,3,8,8 |
314 |
|
|
r0,2,8,8 |
315 |
|
|
r0,1,8,8 |
316 |
|
|
|
317 |
|
|
r0,0,8,8 |
318 |
|
|
r0,0,7,8 |
319 |
|
|
r0,0,6,8 |
320 |
|
|
r0,0,5,8 |
321 |
|
|
|
322 |
|
|
r0,0,4,8 |
323 |
|
|
r0,0,3,8 |
324 |
|
|
r0,0,2,8 |
325 |
|
|
r0,0,1,8 |
326 |
|
|
|
327 |
|
|
|
328 |
|
|
// 2590 |
329 |
|
|
|
330 |
|
|
r4,0,8,8 |
331 |
|
|
s3r0,0,8,8 |
332 |
|
|
s2r0,0,8,8 |
333 |
|
|
s1r0,0,8,8 |
334 |
|
|
|
335 |
|
|
r0,0,8,1 |
336 |
|
|
r7,0,8,8 |
337 |
|
|
k |
338 |
|
|
l |
339 |
|
|
|
340 |
|
|
i |
341 |
|
|
ikl |
342 |
|
|
il |
343 |
|
|
ijk |
344 |
|
|
|
345 |
|
|
ijl |
346 |
|
|
j |
347 |
|
|
jk |
348 |
|
|
jkl |
349 |
|
|
|
350 |
|
|
|