Browse code

(picture.tal) Added example of drawing a picture

neauoire authored on 10/01/2022 02:13:18
Showing 3 changed files
1 1
new file mode 100644
... ...
@@ -0,0 +1,313 @@
1
+( GUI Picture )
2
+
3
+%+  { ADD }  %-  { SUB }  %*  { MUL }  %/  { DIV }
4
+%<  { LTH }  %>  { GTH }  %=  { EQU }  %!  { NEQ }
5
+%++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 }
6
+%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }
7
+
8
+%AUTO-NONE   { #00 .Screen/auto DEO }
9
+%AUTO-XADDR  { #05 .Screen/auto DEO }
10
+
11
+( devices )
12
+
13
+|00 @System     &vector $2 &wst      $1 &rst    $1 &eaddr  $2 &ecode  $1 &pad     $1 &r       $2 &g      $2 &b     $2 &debug  $1 &halt $1
14
+|20 @Screen     &vector $2 &width    $2 &height $2 &auto   $1 &pad    $1 &x       $2 &y       $2 &addr   $2 &pixel $1 &sprite $1
15
+
16
+( variables )
17
+
18
+|0000
19
+
20
+( program )
21
+
22
+|0100
23
+	
24
+	( theme ) 
25
+	#f0d7 .System/r DEO2 
26
+	#f0de .System/g DEO2 
27
+	#f0dc .System/b DEO2
28
+
29
+	#0030 .Screen/x DEO2
30
+	#0030 .Screen/y DEO2
31
+	;picture-icn #20 #10 #01 ;draw-icn JSR2
32
+
33
+BRK
34
+
35
+@draw-icn ( addr* width height color -- )
36
+
37
+	AUTO-XADDR
38
+	STH 
39
+	( set bounds ) ,&height STR ,&width STR .Screen/addr DEO2
40
+	( set origin ) .Screen/x DEI2 ,&x STR2
41
+	LIT &height $1 #00
42
+	&ver
43
+		LIT2 &x $2 .Screen/x DEO2
44
+		LIT &width $1 #00
45
+		&hor
46
+			STHkr .Screen/sprite DEO
47
+			INC GTHk ,&hor JCN
48
+		POP2
49
+		.Screen/y DEI2k #0008 ++ ROT DEO2
50
+		INC GTHk ,&ver JCN
51
+	POP2
52
+	POPr
53
+	AUTO-NONE
54
+
55
+JMP2r
56
+
57
+@picture-icn ( akane2010.bit 20 x 10 )
58
+	0000 0000 0000 0000 2b41 2341 2b41 2341
59
+	8881 8081 8880 8080 0a00 2000 8800 2000
60
+	8004 2004 8804 2a04 0000 0000 8000 0000
61
+	0307 0f0f 0f1f 1f5f ffff ffff ffff ffff
62
+	ffff ffff ffff ffff ffff ffff ffff ffff
63
+	ffff ffff ffff ffff ffff ffff ffff ffff
64
+	ffff ffff ffff ffff ffff ffff ffff ffff
65
+	ffff ffff ffff ffff ffff fff7 ffff efdf
66
+	fbf7 efd7 efdf af5f fffd fbfd fbf5 ebd7
67
+	eaf5 ead5 ead5 aa55 ab55 ab55 ab57 ab57
68
+	fbf7 ebd7 ebd7 ab57 ffff ffff ffff fbf7
69
+	ffff ffff ffff ffff ffff ffff ffff ffff
70
+	ffff ffff ffff ffff ffff ffff ffff fefc
71
+	80c0 8000 0000 0000 0000 0000 0000 0000
72
+	0000 0000 0000 0000 2a54 2a54 2a54 2a54
73
+	8800 2200 8800 2200 8800 2200 8800 2200
74
+	0000 0000 0000 0000 2b41 2341 2b41 2341
75
+	8880 8080 8880 a080 8800 2000 8800 2000
76
+	8a05 2a05 8f0f 2a15 aa55 aafd ffff aa45
77
+	bf7f ff7f ffff ffff ffff ffff ffff ffff
78
+	ffff ffff ffff ffff ffff ffff ffff ffff
79
+	ffff ffff ffff ffff ffff ffff ffff ffff
80
+	ffff ffff ffff fefd ffff ffff ffff be7c
81
+	ffff ffff 8a00 0200 befd fafd fe1f 2307
82
+	bf5f bf7d bad5 eaf5 ead5 aa55 aa55 aa55
83
+	aa55 aa55 aa55 aa55 aa55 aa55 aa55 ab57
84
+	af57 af7f ffc5 a307 fbf7 ff9f 1f1f 8f9f
85
+	ffff ffff ffff ffff ffff ffff ffff ffff
86
+	ffff ffff ffff ffff fefd faf5 eaff ff5f
87
+	0055 aa55 aaff ffff 0055 aa55 aaff ffff
88
+	0055 aadf aaff ffff aa55 aad5 aaff ffff
89
+	8840 aa77 aaff ffff 8800 aaff aaff ffff
90
+	0000 0000 0000 0000 2b41 2341 2b41 2241
91
+	8800 a000 8800 a004 8804 2004 8000 2240
92
+	8810 0810 a010 2010 0200 0000 0000 0000
93
+	bf3f 3f1f 0f07 0303 ffff ffff ffff ffff
94
+	ffff ffff ffff ffff ffff ffff ffff ffff
95
+	ffff ffff ffff ffff ffff ffff ffd7 ab55
96
+	faf5 faf5 eaf5 eaf5 f870 e240 8840 8240
97
+	8800 2200 8841 233f 8f1f 3f7f ffff ffff
98
+	fadd eac1 e2c1 c2c1 aa55 aa55 aa55 aa55
99
+	aa55 aa55 aa54 a040 ae54 a854 a855 2f07
100
+	8f1f 1f3f bfff ffff 8f87 8f85 8205 2a05
101
+	ffdf af5f bf7f bf77 ffff ffff ffff ffff
102
+	fefd f8c0 80c0 80c0 aa55 2a15 0a15 0a15
103
+	ab55 8000 8000 8000 fe55 0200 0800 2200
104
+	aa55 2200 8800 2200 eb77 2a54 2a54 2a54
105
+	ff55 2000 8800 2000 ff55 0000 0000 2000
106
+	0000 0000 0000 0000 2a41 2241 2b41 2341
107
+	8804 a004 8004 a004 0840 aa40 8850 8210
108
+	a010 2040 a040 2040 0000 0000 0000 0000
109
+	0301 0000 0000 0000 ffff ff7f 7f3f 3b07
110
+	ffff ffff ffff ffff ffff ffff ffff ffff
111
+	feff fefd fefd fefd aa55 aa55 aa55 aa55
112
+	eaf5 fafd fafd fefd 8840 a250 a854 aa54
113
+	bf1f 2f07 8800 8055 ffff fefc e800 0a54
114
+	8201 2000 8000 8010 aa54 2800 0000 0000
115
+	0000 0000 0000 0000 0301 0000 0000 0200
116
+	fefc fa70 8801 aa50 8a05 0a05 0201 0303
117
+	ef57 af5f af5f bf7f ffff ffff ffff ffff
118
+	c0c0 a2c0 8880 a280 0a15 0a15 8a15 0a15
119
+	0000 0000 8000 2000 0800 0200 0800 2000
120
+	0800 2200 8800 0000 2a54 2a55 2a55 2a57
121
+	8800 2000 a0ff ffff 8000 2000 a8ff ffff
122
+	0000 0000 0000 0001 ab41 a341 ab5f ffff
123
+	8004 a804 8eff ffff 8010 a200 a0c0 e2c1
124
+	8040 80c0 80c0 8000 0000 0000 0000 0000
125
+	0000 0000 0000 0000 0301 0101 0000 0000
126
+	ffff ffff ff7f 1f0f ffff ffff ffff ffff
127
+	fefd feff feff ffff aa55 aa55 aa55 aad5
128
+	feff feff fe7f fe7f aa54 aa55 aa55 aa54
129
+	0000 0000 0000 0000 0000 0000 0000 0000
130
+	0800 0000 0000 0000 0000 0000 0000 0000
131
+	0000 0001 0205 0a05 8040 2040 e070 e040
132
+	0000 0000 0000 0000 0307 0307 0707 0f07
133
+	ffff ffff ffff ffff ffff fefc fefc fcfc
134
+	8207 3f7f 7f7f 7f7f 8aff ffff ffff ffff
135
+	08c0 faf8 fcfc feff 8800 2000 8800 2000
136
+	0000 2000 0000 0000 2b57 2f57 2b55 2a54
137
+	ffff ffff ffff ffff ffff ffff ffff ffff
138
+	0b03 0307 0707 0f1f ffff ffff ffff ffff
139
+	ffff ffff ffff ffff e0f1 f9f1 faf3 faf7
140
+	8000 0000 0000 0000 0000 0000 0000 0000
141
+	0000 0000 0000 0000 0000 0000 0000 0000
142
+	0707 0301 0000 0000 ffff ffff ff7f 3f1f
143
+	ffff ffff ffff ffff eaf5 fafd feff ffff
144
+	fe7d be7f be7d ffff aa54 aa54 aa54 aad5
145
+	0000 0000 0000 0000 0000 0000 0000 0000
146
+	0000 0000 0000 0000 0000 0000 0000 0000
147
+	0201 0000 0000 0001 e040 0000 0000 0040
148
+	0000 0000 0000 0000 0f07 0f07 0f0f 0f1f
149
+	ffff ffff fffe fcfc f8f0 c280 0800 2200
150
+	be7f 3e15 8a01 2205 ff5f af55 ab55 ab55
151
+	feff ffff ffff bf7f 8000 2000 8800 a201
152
+	8800 2000 0000 00f7 2854 2854 2854 28f4
153
+	ff7f bf57 af5f 2f57 ffff ffff ffff ffff
154
+	0f1f 0f07 0707 0707 ffff ffff ffff ffff
155
+	ffff ffff fefd faf5 e2c4 8604 8844 a854
156
+	0000 0000 0000 0000 0000 0000 0000 0000
157
+	0000 0000 0000 0000 0000 0000 0000 0000
158
+	0000 0000 0000 0000 0f03 0100 0000 0000
159
+	ffff ff7f 0f07 0a05 ffff ffff ffff ff7f
160
+	ffff ffff ffff ffff eaf5 fafd feff ffff
161
+	8000 8040 a0d0 e8d4 0000 0000 0000 0000
162
+	0000 0000 0000 0000 0000 0000 0000 0000
163
+	0200 0000 0000 0000 8000 0000 0000 0000
164
+	0000 0000 0001 0305 0f1f 3f7c f8f0 8201
165
+	e8c4 2a11 a840 a200 8800 2200 2005 2000
166
+	8215 2e57 2a55 aa55 aa55 aa55 aa55 3a15
167
+	fe7c f8f0 e840 a250 0307 2f1f 8f1f 2f0f
168
+	ffff ffff ffff ffff f8fc fefc feff fef0
169
+	ab57 2b15 0a55 0a01 ffff feff ea55 8040
170
+	0301 0005 aa10 0805 ffff ff5f aa05 2000
171
+	eaf5 ead5 aa55 aa41 8810 b810 2070 2040
172
+	0000 0000 0000 0000 0000 0000 0000 0000
173
+	0000 0000 0000 0000 0000 0000 0204 0a10
174
+	0000 0000 a805 2200 0000 0000 0040 2805
175
+	0a05 0a10 2a41 a200 af57 a840 8844 0a10
176
+	ffff ff7f 8f01 2004 ffff ffff ffff ff7f
177
+	aed5 aad5 aad5 aad5 80c0 a85d ab55 aa55
178
+	0000 0000 a054 aa55 0000 0000 0000 a055
179
+	0000 0000 0000 0045 0000 0071 fa7c faf0
180
+	0810 a240 0800 2001 0a04 0254 a850 8200
181
+	0800 2200 8800 2200 8800 2200 8804 2a00
182
+	8a05 2201 8a01 2001 a8d0 a0c4 8a54 a040
183
+	2801 2000 8800 0250 8f01 8240 a011 2211
184
+	af55 a040 8051 a815 e0c0 c240 8800 a200
185
+	0840 2200 aa10 2214 2a05 2000 8800 2200
186
+	8a00 2000 8000 2200 2a00 2200 8800 2200
187
+	a214 2301 8000 2210 e040 80c0 6070 2010
188
+	0000 0000 0000 0000 0000 0000 0000 0000
189
+	0000 0001 0204 0814 2840 a200 8800 2200
190
+	8800 2200 8800 2200 8b10 2240 0800 a200
191
+	a855 2200 8800 2200 2040 a240 a810 2a04
192
+	8810 2200 0845 a800 bf7f 3a11 3805 2301
193
+	aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55
194
+	aa55 aa55 aa55 aa55 aa55 aa55 aa75 fa7f
195
+	ef75 bb5d bb5f bb5f f8f8 fafc f8fc fcfc
196
+	8800 2201 8801 2201 0800 2200 0801 2204
197
+	8800 2200 0850 2800 8010 0240 a810 2210
198
+	8a01 2000 8800 2200 0800 a200 8800 2240
199
+	a840 2200 a800 2200 8801 2a04 8805 2204
200
+	8add aa45 8a14 2015 8800 a200 8800 a280
201
+	8804 2804 8004 2204 8800 2200 8800 2200
202
+	8800 0200 8840 0240 8800 2200 8800 2001
203
+	8800 0240 8800 2200 b010 1810 b810 1810
204
+	0000 0000 0000 0000 0000 0000 0000 0001
205
+	0810 2240 8800 a200 8800 2200 8800 2201
206
+	8801 2241 8a00 a204 8800 2200 8800 2200
207
+	8800 2200 8800 2200 8a00 2201 8800 2200
208
+	8a01 2200 0800 a200 0a05 aa75 aa05 2201
209
+	aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55
210
+	aa55 aa55 aa55 aa55 bf7f bf5f af47 8301
211
+	bbd7 fbf1 f8fd feff fefc fefc fefe fefe
212
+	8801 2241 2a05 2200 0040 8200 8800 0200
213
+	0000 a204 a840 2200 0a50 8200 8800 2200
214
+	a010 2200 8801 2200 8800 2200 2800 a240
215
+	a800 2205 8205 2205 8a04 2254 a855 ab55
216
+	3e15 2a75 ead5 aa55 82d5 ea75 aa75 aa75
217
+	a85c aa50 a850 aa50 8800 2200 8800 2200
218
+	0800 a200 8800 a200 8a01 2000 8801 2001
219
+	0800 2200 8800 2200 8810 2810 8814 2804
220
+	0000 0000 0000 0000 0204 0004 0810 0210
221
+	8800 2200 8800 2200 8801 2001 8801 2200
222
+	0804 2a00 0810 a200 8800 2200 8800 2200
223
+	8800 2200 8800 2200 8800 2200 8801 2200
224
+	0840 0240 a800 a210 8800 2200 8800 2200
225
+	2a14 2200 8800 2200 aa00 8040 a804 2200
226
+	a800 0000 0000 8050 0000 0000 0000 0001
227
+	ff7f 3f1f 3f71 8200 feff feff ffff ff7f
228
+	8800 2200 88f0 fafc a804 2200 aa11 0210
229
+	8800 2200 0800 a200 8800 2200 8800 2200
230
+	8800 2200 8800 2200 0840 2240 a800 221f
231
+	8a01 2205 8205 befd a850 a854 a855 a955
232
+	ff7f ffdd badd ba5d eaf5 ea75 ea75 ead5
233
+	a850 aa50 a850 a250 8800 2a04 8a00 2200
234
+	0800 0250 0800 0254 8011 2200 8800 2201
235
+	0800 2055 aa55 aad5 8810 2040 a040 a040
236
+	0000 0000 0000 0200 2800 2240 0840 0240
237
+	8800 2200 8800 2200 8800 2200 8800 2200
238
+	8800 2200 8800 2200 8800 2200 8800 2200
239
+	8800 2200 8800 2200 8800 2200 8800 2200
240
+	0850 2210 881c 2804 8800 2200 8800 2200
241
+	8800 2200 8800 2200 8800 2200 8800 2200
242
+	8a05 2200 8004 0f1f 0244 a818 9810 b2f0
243
+	8800 2200 8800 2200 bf1f 2f1f 8f0f 2f07
244
+	feff ffff ffff ffff 0090 e2f0 e0f0 f8fc
245
+	8840 2200 a800 2210 8800 2200 8800 2200
246
+	8800 2200 8800 2200 9f1f 2f0f 8f07 2305
247
+	fefd fefd fefd fefd ab51 aa57 aa57 ae55
248
+	ba5d ba55 aa55 aa55 ead5 ead5 aad5 aad5
249
+	a857 bf7f ff7f ffff afff ffff ffff ffff
250
+	80f5 ffff ffff ffff 8855 faf0 f8f8 f8fd
251
+	aad5 aa55 2a55 2a55 a075 aa40 a040 a055
252
+	0850 aa01 0201 0055 0840 8240 2800 2270
253
+	8800 2200 8800 2200 8800 2200 8800 2200
254
+	8800 2200 8800 2200 8800 2200 8800 2200
255
+	8800 2200 8800 2200 8800 2200 8800 2200
256
+	8a01 2001 8800 2200 8800 a2c0 a850 2834
257
+	8800 2200 8800 2200 8800 2200 8800 2200
258
+	bf7f ff7f ff7f 7f7f e8f0 e2f0 f0f0 fafc
259
+	8800 2200 8800 2200 8f0f 2f1f 9f1f 3f7f
260
+	ffff ffff fffd fefd fcfd fef5 aa55 ab57
261
+	0050 e0f1 fafd eed5 0874 ae57 af5f be5d
262
+	8800 22c0 b85c aa5c 8a04 2200 8800 2200
263
+	fe7d 3e3d be1d 2e05 ae55 ae55 ae7d ee5d
264
+	ab55 ab55 ab57 aa57 aa55 ab55 ab57 ab57
265
+	ffff ffff ffff ffff ffff ffff ffff ffff
266
+	ffff ffff ffff ffff ffff ffff ffff fefc
267
+	ead5 eaf5 eaf5 aa15 bf5f bf5f bf5d aa51
268
+	feff ffff ff75 aa40 e8f0 eae4 e064 a210
269
+	8800 2200 8800 2200 8800 2200 8800 2200
270
+	8800 2200 8800 2200 8800 2200 8800 2201
271
+	8800 2005 8810 2200 8800 8200 8800 2200
272
+	8800 2200 8800 2200 ba14 2a05 8607 2301
273
+	0800 2210 0804 a200 8800 2201 8a04 2850
274
+	7f7f ff7f 3f1f 3f1f fcfe ffff ffff f8fc
275
+	8801 8fff ffff fe7d ffff ffff ebd7 af57
276
+	feff ead7 abd5 aa55 ab55 aa55 ab75 faf5
277
+	aed7 aa57 fa50 a0c1 be5f fa50 0000 0255
278
+	b878 f87c 2f17 aa40 8800 2200 8840 2010
279
+	8a05 2a05 0a1d 0a1d ae5d ae5d ae5d ee5d
280
+	aa55 ae55 aa5d ba55 af5f ab5f bb77 ab77
281
+	ffff ffff ffff ffff ffff ffff ffff ffff
282
+	ffff ffff ffff ffff fefc fefc fefc feff
283
+	0a15 0a05 0a05 0255 a850 a850 a850 a854
284
+	8040 0000 0800 0814 2211 2010 2010 2210
285
+	8800 2200 0800 2200 8800 2200 8800 2200
286
+	8800 2200 8800 2200 8a04 2a10 a840 0200
287
+	0800 2200 8800 2015 8800 2200 8800 a800
288
+	8800 2200 8800 2240 8801 2201 8801 2001
289
+	88c0 aad5 aad5 aa55 2000 ba55 aa55 aa57
290
+	8f1f af5f afff bf7f fafd fcfc faf5 faff
291
+	3a55 0e07 0301 80c0 aa55 eaf5 fbff ff7f
292
+	aa55 ab7f ffff ffff fb75 f8f0 e0c0 80c0
293
+	8a14 0800 0000 0000 aa00 0000 0000 0000
294
+	0004 0201 0001 0001 2010 2040 8880 a001
295
+	3e15 2040 e0f4 feff ef55 0000 0000 80d0
296
+	fa55 0a15 0a15 0a15 bf77 a347 a347 83c7
297
+	ffff ffff ffff ffff ffff ffff ffff ffff
298
+	ffff ffff ffff ffff ffff ffff ffff ffff
299
+	feff feff ffff aad5 af57 af57 ab57 ab55
300
+	ffff ffff ffff aa55 e8f0 e2e0 e8e0 a240
301
+	8800 2200 8800 2200 8800 2200 8800 2200
302
+	8801 2204 8000 2810 0800 2204 8810 2240
303
+	2040 2200 8800 2200 8800 2200 8800 2200
304
+	8000 2a04 8a00 2211 8a07 2e0d 8a1d 3a7d
305
+	aa55 aa55 aa55 aa55 ae55 af57 ab55 abff
306
+	ffff ffff ffff ffff ffff ffff ffff ffff
307
+	e0c0 e0f0 f8f0 f8f0 3f1f 0f07 0301 0001
308
+	ffff ffff fefe fefc 8000 8000 0000 0000
309
+	0000 0000 0000 0000 0000 0000 0000 0000
310
+	0001 0001 0000 0000 8303 8343 8343 8343
311
+	ffff ffff ffff ffff faff ffff ffff fbf7
312
+	bafd ffff bfdf ff5f ef7f ffff af5f af5f
313
+	ffff ffff ffff ffff ffff ffff ffff ffff
0 314
deleted file mode 100644
... ...
@@ -1,121 +0,0 @@
1
-( GUI Proportional font )
2
-
3
-( devices )
4
-
5
-|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
6
-|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
7
-
8
-( variables )
9
-
10
-|0000
11
-
12
-( program )
13
-
14
-|0100
15
-	
16
-	( theme ) #0f9f .System/r DEO2 #0f3f .System/g DEO2 #0f30 .System/b DEO2
17
-	
18
-	#0000 ;draw JSR2
19
-	#0001 ;draw JSR2
20
-	#0002 ;draw JSR2
21
-	
22
-BRK
23
-
24
-@draw ( extra-spacing* -- )
25
-	STH2
26
-	;text
27
-	&loop
28
-	LDAk
29
-	DUP #00 EQU ,&end JCN
30
-	DUP #0a EQU ,&linefeed JCN
31
-	#0005 SFT2 ;font ADD2
32
-	DUP2 .Screen/addr DEO2
33
-	#09 .Screen/sprite DEO
34
-	,get-x-advance JSR .Screen/x DEI2 ADD2 STH2kr ADD2 .Screen/x DEO2
35
-	&next
36
-	INC2
37
-	,&loop JMP
38
-
39
-	&linefeed
40
-	POP
41
-	#0000 .Screen/x DEO2
42
-	#0008 .Screen/y DEI2 ADD2 STH2kr ADD2 .Screen/y DEO2
43
-	,&next JMP
44
-
45
-	&end
46
-	POP POP2 POP2r
47
-	JMP2r
48
-
49
-@get-x-advance ( font-char-addr* -- advance* )
50
-	( Save two 00 bytes for later use )
51
-	#0000 SWP2
52
-	( First, load the eight bytes that make up the character )
53
-	LDA2k SWP2 #0002 ADD2
54
-	LDA2k SWP2 #0002 ADD2
55
-	LDA2k SWP2 #0002 ADD2
56
-	LDA2
57
-	( OR all the bytes together, so we know which columns contain filled pixels )
58
-	ORA2 ORA2 ORA2 ORA
59
-	( Find the lowest set bit (using one of the 00 bytes at the top, but not consuming it) )
60
-	SUBk AND
61
-	( Convert the nine possible values (00-80) into an offset into the magic table (00-08). )
62
-	( They get jumbled up with these two operations, but each possible value remains unique )
63
-	#a3 MUL #16 DIV
64
-	( Load the byte from the magic table, return a short (consuming/returning the 00 bytes at the top) )
65
-	;&magic ADD2 LDA
66
-	JMP2r
67
-	( The magic table performs the last bit of arithmetic we want:
68
-	  * the advance in x should be one more than the number of columns with filled pixels,
69
-	  * with a maximum of 8, and
70
-	  * a minimum of 3. )
71
-	&magic
72
-		03 ( lowest set bit is 00, 0 columns wide )
73
-		06 ( lowest set bit is 08, 5 columns wide )
74
-		05 ( lowest set bit is 10, 4 columns wide )
75
-		08 ( lowest set bit is 02, 7 columns wide )
76
-		04 ( lowest set bit is 20, 3 columns wide )
77
-		03 ( lowest set bit is 80, 1 column wide )
78
-		07 ( lowest set bit is 04, 6 columns wide )
79
-		08 ( lowest set bit is 01, 8 columns wide )
80
-		03 ( lowest set bit is 40, 2 columns wide )
81
-
82
-@font ( spectrum-zx font, with each character moved to be flush left in its cell )
83
-[
84
-	0000 0000 0000 0000 0000 4800 fc78 0000 0000 4800 7884 0000 0000 d8f8 f870 2000
85
-	0020 70f8 f870 2000 0070 70f8 d820 7000 0020 70f8 f820 7000 0000 00c0 c000 0000
86
-	00fc 8484 8484 fc00 0000 6090 9060 0000 0030 4884 8448 3000 003c 0c74 9490 6000
87
-	0070 88d8 20f8 2000 0030 2020 20e0 e000 007c 4444 44cc cc00 0000 2088 0088 2000
88
-	0000 80c0 e0c0 8000 0000 2060 e060 2000 0040 e000 00e0 4000 00a0 a0a0 a000 a000
89
-	007c 9494 7414 1400 0018 608c c418 6000 0000 0000 0000 ffff 0040 e000 e040 00e0
90
-	0020 70a8 2020 2000 0020 2020 a870 2000 0000 1008 fc08 1000 0000 2040 fc40 2000
91
-	0000 8080 fc00 0000 0000 0048 cc48 0000 0000 2070 f800 0000 0000 00f8 7020 0000
92
-	0000 0000 0000 0000 0080 8080 8000 8000 00a0 a000 0000 0000 0048 fc48 48fc 4800
93
-	0020 78a0 7028 f020 0084 0810 2040 8400 0060 9064 9888 7400 0040 8000 0000 0000
94
-	0040 8080 8080 4000 0080 4040 4040 8000 0000 5020 f820 5000 0000 2020 f820 2000
95
-	0000 0000 0040 4080 0000 0000 f000 0000 0000 0000 0000 8000 0000 0810 2040 8000
96
-	0078 8c94 a4c4 7800 0060 a020 2020 f800 0078 8404 7880 fc00 0078 8438 0484 7800
97
-	0010 3050 90fc 1000 00fc 80f8 0484 7800 0078 80f8 8484 7800 00fc 0408 1020 2000
98
-	0078 8478 8484 7800 0078 8484 7c04 7800 0000 0080 0000 8000 0000 4000 0040 4080
99
-	0000 2040 8040 2000 0000 00f8 00f8 0000 0000 8040 2040 8000 0078 8404 1800 1000
100
-	0078 84b4 a884 7800 0030 4884 fc84 8400 00f8 84f8 8484 f800 0078 8480 8084 7800
101
-	00f0 8884 8488 f000 00fc 80f8 8080 fc00 007c 8080 f880 8000 0078 8480 9c84 7800
102
-	0084 84fc 8484 8400 00f8 2020 2020 f800 0004 0404 8484 7800 0088 90e0 9088 8400
103
-	0080 8080 8080 fc00 0084 ccb4 8484 8400 0084 c4a4 948c 8400 0078 8484 8484 7800
104
-	00f8 8484 f880 8000 0078 8484 a494 7800 00f8 8484 f888 8400 0078 8078 0484 7800
105
-	00fe 1010 1010 1000 0084 8484 8484 7800 0084 8484 8448 3000 0084 8484 b4cc 8400
106
-	0084 4830 3048 8400 0082 4428 1010 1000 00fc 0810 2040 fc00 00c0 8080 8080 c000
107
-	0080 4020 1008 0400 00c0 4040 4040 c000 0020 5088 0000 0000 0000 0000 0000 fc00
108
-	0080 4000 0000 0000 0000 7008 7888 7800 0080 80f0 8888 f000 0000 7880 8080 7800
109
-	0008 0878 8888 7800 0000 7088 f080 7800 0060 80e0 8080 8000 0000 7088 8878 0870
110
-	0080 80b0 c888 8800 0040 00c0 4040 2000 0010 0010 1010 9060 0080 90a0 c0a0 9000
111
-	0080 8080 8080 6000 0000 d0a8 a8a8 a800 0000 b0c8 8888 8800 0000 7088 8888 7000
112
-	0000 f088 88f0 8080 0000 7888 8878 080c 0000 b0c0 8080 8000 0000 7080 7008 f000
113
-	0040 40f0 4040 3000 0000 8888 8888 7000 0000 8888 5050 2000 0000 88a8 a8a8 5000
114
-	0000 8850 2050 8800 0000 8888 8878 0870 0000 f810 2040 f800 0060 4080 8040 6000
115
-	0080 8080 8080 8000 00c0 4020 2040 c000 0000 0064 9800 0000 3c42 99a1 a199 423c
116
-]
117
-
118
-@text "Are 20 "proportional 20 "fonts 20 "a 20 "good 20 "idea? 0a 0a
119
-	"The 20 "jury 20 "is 20 "still 20 "out, 20 "but 20 "one 20 "thing 20 "is 20 "certain: 0a
120
-	"it 20 "is 20 "possible 20 "to 20 "print 20 "with 20 "these 20 "fonts 20 "in 20 "Uxn. 0a 0a 0a 00
121
-
122 0
deleted file mode 100644
123 1
Binary files a/projects/pictures/macpaint4020.bit and /dev/null differ