Browse code
Added proportional font example
Andrew Alderwick authored on 17/05/2021 06:44:50
Showing 1 changed files
| 1 | 1 |
new file mode 100644 |
| ... | ... |
@@ -0,0 +1,121 @@ |
| 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 &color $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 |
+ #00 #0005 SFT2 ;font ADD2 |
|
| 32 |
+ DUP2 .Screen/addr DEO2 |
|
| 33 |
+ #29 .Screen/color DEO |
|
| 34 |
+ ,get-x-advance JSR .Screen/x DEI2 ADD2 STH2kr ADD2 .Screen/x DEO2 |
|
| 35 |
+ &next |
|
| 36 |
+ #0001 ADD2 |
|
| 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 |
+ |