… | |
… | |
4 | select TABLE; |
4 | select TABLE; |
5 | |
5 | |
6 | my $ch = 0x2500; |
6 | my $ch = 0x2500; |
7 | |
7 | |
8 | # coordinate system: |
8 | # coordinate system: |
9 | # |
9 | # |
10 | # 0..8 (equally spaced) 9,11 mid-1,mid+1, makes 4 bit |
10 | # 0..8 (equally spaced) 9,11 mid-1,mid+1, makes 4 bit |
11 | # one point = 8 bit, two points = 16 bit |
11 | # one point = 8 bit, two points = 16 bit |
12 | |
12 | |
13 | # 8 bit opcode 0 line, 1 rect, 2 arc |
13 | # 8 bit opcode 0 line, 1 rect, 2 arc |
14 | # 8 bit opcode arg |
14 | # 8 bit opcode arg |
… | |
… | |
74 | if ($h) { |
74 | if ($h) { |
75 | emit 0, 0, 9,10, 9 if $h > 1; |
75 | emit 0, 0, 9,10, 9 if $h > 1; |
76 | emit 0, 0, 10,10, 10 if $h & 1; |
76 | emit 0, 0, 10,10, 10 if $h & 1; |
77 | emit 0, 0, 11,10, 11 if $h > 1; |
77 | emit 0, 0, 11,10, 11 if $h > 1; |
78 | } |
78 | } |
79 | |
79 | |
80 | if ($H) { |
80 | if ($H) { |
81 | emit 0,10, 9, 8, 9 if $H > 1; |
81 | emit 0,10, 9, 8, 9 if $H > 1; |
82 | emit 0,10, 10, 8, 10 if $H & 1; |
82 | emit 0,10, 10, 8, 10 if $H & 1; |
83 | emit 0,10, 11, 8, 11 if $H > 1; |
83 | emit 0,10, 11, 8, 11 if $H > 1; |
84 | } |
84 | } |
85 | |
85 | |
86 | if ($v) { |
86 | if ($v) { |
87 | emit 0, 9, 0, 9, 10 if $v > 1; |
87 | emit 0, 9, 0, 9, 10 if $v > 1; |
88 | emit 0,10, 0,10, 10 if $v & 1; |
88 | emit 0,10, 0,10, 10 if $v & 1; |
89 | emit 0,11, 0,11, 10 if $v > 1; |
89 | emit 0,11, 0,11, 10 if $v > 1; |
90 | } |
90 | } |
91 | |
91 | |
92 | if ($V) { |
92 | if ($V) { |
93 | emit 0, 9, 10, 9, 8 if $V > 1; |
93 | emit 0, 9, 10, 9, 8 if $V > 1; |
94 | emit 0,10, 10,10, 8 if $V & 1; |
94 | emit 0,10, 10,10, 8 if $V & 1; |
95 | emit 0,11, 10,11, 8 if $V > 1; |
95 | emit 0,11, 10,11, 8 if $V > 1; |
96 | } |
96 | } |
97 | |
97 | |
98 | $offs[-1] = ($offs[-1] << 4) | ($offs - $offs[-1]); |
98 | $offs[-1] = ($offs[-1] << 4) | ($offs - $offs[-1]); |
99 | |
99 | |
100 | printf " // %04x\n", $ch; |
100 | printf " // %04x\n", $ch; |
101 | $ch++; |
101 | $ch++; |
102 | } |
102 | } |
103 | |
103 | |
104 | print <<EOF; |
104 | print <<EOF; |