src/genlinedraw

   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 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
 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