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