MightyPork
/
crsn
1
1
Fork 2
Code Issues 15 Pull Requests Releases Wiki Activity

add a font demo

Browse Source
pull/21/head
Ondřej Hruška 4 years ago
parent 562c6baddc
commit aa20959d82
Signed by: MightyPork
GPG Key ID: 2C5FD5035250423D
7 changed files with 836 additions and 0 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 7
      examples/font/Makefile
  2. 3
      examples/font/README.txt
  3. BIN
      examples/font/a.out
  4. 40
      examples/font/convert.c
  5. 259
      examples/font/font.csn
  6. 174
      examples/font/font.xbm
  7. 353
      examples/screen_font.csn

7
examples/font/Makefile
Unescape View File

@ -0,0 +1,7 @@
.PHONY: run
run: a.out
./a.out > font.csn
a.out: convert.c font.xbm
cc convert.c

3
examples/font/README.txt
Unescape View File

@ -0,0 +1,3 @@
This is a demo of producing font data for use in CRSN programs.
The source font was obtained from a .FON file using psftools

BIN
examples/font/a.out
View File

Binary file not shown.

40
examples/font/convert.c
Unescape View File

@ -0,0 +1,40 @@
// Convert the xbm file to crsn
#include <stdlib.h>
#include <stdio.h>
#include <stdint.h>
#include "font.xbm"
void main() {
uint64_t digits[256];
printf("(sym FONT r15)\n");
printf("(mkbf FONT (\n");
for (int ch = 0; ch < 256; ch++) {
uint64_t symbol = 0;
for(int row = 0; row<8;row++) {
symbol <<= 8ull;
unsigned char slice = psf_bits[row*32 + (ch/32)*(32*8) + (ch%32)];
symbol |= slice;
/* // show the symbol
printf(" ; ");
for(int j=0;j<8;j++) {
if(slice&0x1) {
printf("█");
} else {
printf(" ");
}
slice >>= 1;
}
printf("\n");
//*/
}
digits[ch] = symbol;
printf(" 0x%016lx ; %d", symbol, ch);
if (ch >= 32 && ch <= 126) {
printf(" '%c'\n", ch);
} else {
printf("\n", ch);
}
}
printf("))\n");
}

259
examples/font/font.csn
Unescape View File

@ -0,0 +1,259 @@
(sym FONT r15)
(mkbf FONT (
0x0000000000000000 ; 0
0x7e81a581bd99817e ; 1
0x7effdbffc3e7ff7e ; 2
0x367f7f7f3e1c0800 ; 3
0x081c3e7f3e1c0800 ; 4
0x1c3e1c7f7f3e1c3e ; 5
0x08081c3e7f3e1c3e ; 6
0x0000183c3c180000 ; 7
0xffffe7c3c3e7ffff ; 8
0x003c664242663c00 ; 9
0xffc399bdbd99c3ff ; 10
0xf0e0f0be3333331e ; 11
0x3c6666663c187e18 ; 12
0xfcccfc0c0c0e0f07 ; 13
0xfec6fec6c6e66703 ; 14
0x995a3ce7e73c5a99 ; 15
0x01071f7f1f070100 ; 16
0x40707c7f7c704000 ; 17
0x183c7e18187e3c18 ; 18
0x6666666666006600 ; 19
0xfedbdbded8d8d800 ; 20
0x7cc61c36361c331e ; 21
0x000000007e7e7e00 ; 22
0x183c7e187e3c18ff ; 23
0x183c7e1818181800 ; 24
0x181818187e3c1800 ; 25
0x0018307f30180000 ; 26
0x000c067f060c0000 ; 27
0x00000303037f0000 ; 28
0x002466ff66240000 ; 29
0x00183c7effff0000 ; 30
0x00ffff7e3c180000 ; 31
0x0000000000000000 ; 32 ' '
0x0c1e1e0c0c000c00 ; 33 '!'
0x3636360000000000 ; 34 '"'
0x36367f367f363600 ; 35 '#'
0x0c3e031e301f0c00 ; 36 '$'
0x006333180c666300 ; 37 '%'
0x1c361c6e3b336e00 ; 38 '&'
0x0606030000000000 ; 39 '''
0x180c0606060c1800 ; 40 '('
0x060c1818180c0600 ; 41 ')'
0x00663cff3c660000 ; 42 '*'
0x000c0c3f0c0c0000 ; 43 '+'
0x00000000000c0c06 ; 44 ','
0x0000003f00000000 ; 45 '-'
0x00000000000c0c00 ; 46 '.'
0x6030180c06030100 ; 47 '/'
0x3e63737b6f673e00 ; 48 '0'
0x0c0e0c0c0c0c3f00 ; 49 '1'
0x1e33301c06333f00 ; 50 '2'
0x1e33301c30331e00 ; 51 '3'
0x383c36337f307800 ; 52 '4'
0x3f031f3030331e00 ; 53 '5'
0x1c06031f33331e00 ; 54 '6'
0x3f3330180c0c0c00 ; 55 '7'
0x1e33331e33331e00 ; 56 '8'
0x1e33333e30180e00 ; 57 '9'
0x000c0c00000c0c00 ; 58 ':'
0x000c0c00000c0c06 ; 59 ';'
0x180c0603060c1800 ; 60 '<'
0x00003f00003f0000 ; 61 '='
0x060c1830180c0600 ; 62 '>'
0x1e3330180c000c00 ; 63 '?'
0x3e637b7b7b031e00 ; 64 '@'
0x0c1e33333f333300 ; 65 'A'
0x3f66663e66663f00 ; 66 'B'
0x3c66030303663c00 ; 67 'C'
0x1f36666666361f00 ; 68 'D'
0x7f46161e16467f00 ; 69 'E'
0x7f46161e16060f00 ; 70 'F'
0x3c66030373667c00 ; 71 'G'
0x3333333f33333300 ; 72 'H'
0x1e0c0c0c0c0c1e00 ; 73 'I'
0x7830303033331e00 ; 74 'J'
0x6766361e36666700 ; 75 'K'
0x0f06060646667f00 ; 76 'L'
0x63777f7f6b636300 ; 77 'M'
0x63676f7b73636300 ; 78 'N'
0x1c36636363361c00 ; 79 'O'
0x3f66663e06060f00 ; 80 'P'
0x1e3333333b1e3800 ; 81 'Q'
0x3f66663e36666700 ; 82 'R'
0x1e33070e38331e00 ; 83 'S'
0x3f2d0c0c0c0c1e00 ; 84 'T'
0x3333333333333f00 ; 85 'U'
0x33333333331e0c00 ; 86 'V'
0x6363636b7f776300 ; 87 'W'
0x6363361c1c366300 ; 88 'X'
0x3333331e0c0c1e00 ; 89 'Y'
0x7f6331184c667f00 ; 90 'Z'
0x1e06060606061e00 ; 91 '['
0x03060c1830604000 ; 92 '\'
0x1e18181818181e00 ; 93 ']'
0x081c366300000000 ; 94 '^'
0x00000000000000ff ; 95 '_'
0x0c0c180000000000 ; 96 '`'
0x00001e303e336e00 ; 97 'a'
0x0706063e66663b00 ; 98 'b'
0x00001e3303331e00 ; 99 'c'
0x3830303e33336e00 ; 100 'd'
0x00001e333f031e00 ; 101 'e'
0x1c36060f06060f00 ; 102 'f'
0x00006e33333e301f ; 103 'g'
0x0706366e66666700 ; 104 'h'
0x0c000e0c0c0c1e00 ; 105 'i'
0x300030303033331e ; 106 'j'
0x070666361e366700 ; 107 'k'
0x0e0c0c0c0c0c1e00 ; 108 'l'
0x0000337f7f6b6300 ; 109 'm'
0x00001f3333333300 ; 110 'n'
0x00001e3333331e00 ; 111 'o'
0x00003b66663e060f ; 112 'p'
0x00006e33333e3078 ; 113 'q'
0x00003b6e66060f00 ; 114 'r'
0x00003e031e301f00 ; 115 's'
0x080c3e0c0c2c1800 ; 116 't'
0x0000333333336e00 ; 117 'u'
0x00003333331e0c00 ; 118 'v'
0x0000636b7f7f3600 ; 119 'w'
0x000063361c366300 ; 120 'x'
0x00003333333e301f ; 121 'y'
0x00003f190c263f00 ; 122 'z'
0x380c0c070c0c3800 ; 123 '{'
0x1818180018181800 ; 124 '|'
0x070c0c380c0c0700 ; 125 '}'
0x6e3b000000000000 ; 126 '~'
0x00081c3663637f00 ; 127
0x1e3303331e18301e ; 128
0x0033003333337e00 ; 129
0x38001e333f031e00 ; 130
0x7ec33c607c66fc00 ; 131
0x33001e303e337e00 ; 132
0x07001e303e337e00 ; 133
0x0c0c1e303e337e00 ; 134
0x00001e03031e301c ; 135
0x7ec33c667e063c00 ; 136
0x33001e333f031e00 ; 137
0x07001e333f031e00 ; 138
0x33000e0c0c0c1e00 ; 139
0x3e631c1818183c00 ; 140
0x07000e0c0c0c1e00 ; 141
0x631c36637f636300 ; 142
0x0c0c001e333f3300 ; 143
0x38003f061e063f00 ; 144
0x0000fe30fe33fe00 ; 145
0x7c36337f33337300 ; 146
0x1e33001e33331e00 ; 147
0x0033001e33331e00 ; 148
0x0007001e33331e00 ; 149
0x1e33003333337e00 ; 150
0x0007003333337e00 ; 151
0x00330033333e301f ; 152
0xc3183c66663c1800 ; 153
0x3300333333331e00 ; 154
0x18187e03037e1818 ; 155
0x1c36260f06673f00 ; 156
0x33331e3f0c3f0c0c ; 157
0x1f33335f63f363e3 ; 158
0x70d8183c18181b0e ; 159
0x38001e303e337e00 ; 160
0x1c000e0c0c0c1e00 ; 161
0x0038001e33331e00 ; 162
0x0038003333337e00 ; 163
0x001f001f33333300 ; 164
0x3f0033373f3b3300 ; 165
0x3c36367c007e0000 ; 166
0x1c36361c003e0000 ; 167
0x0c000c0603331e00 ; 168
0x0000003f03030000 ; 169
0x0000003f30300000 ; 170
0xc363337bcc6633f0 ; 171
0xc36333dbecf6f3c0 ; 172
0x1818001818181800 ; 173
0x00cc663366cc0000 ; 174
0x003366cc66330000 ; 175
0x4411441144114411 ; 176
0xaa55aa55aa55aa55 ; 177
0xdbeedb77dbeedb77 ; 178
0x1818181818181818 ; 179
0x181818181f181818 ; 180
0x18181f181f181818 ; 181
0x6c6c6c6c6f6c6c6c ; 182
0x000000007f6c6c6c ; 183
0x00001f181f181818 ; 184
0x6c6c6f606f6c6c6c ; 185
0x6c6c6c6c6c6c6c6c ; 186
0x00007f606f6c6c6c ; 187
0x6c6c6f607f000000 ; 188
0x6c6c6c6c7f000000 ; 189
0x18181f181f000000 ; 190
0x000000001f181818 ; 191
0x18181818f8000000 ; 192
0x18181818ff000000 ; 193
0x00000000ff181818 ; 194
0x18181818f8181818 ; 195
0x00000000ff000000 ; 196
0x18181818ff181818 ; 197
0x1818f818f8181818 ; 198
0x6c6c6c6cec6c6c6c ; 199
0x6c6cec0cfc000000 ; 200
0x0000fc0cec6c6c6c ; 201
0x6c6cef00ff000000 ; 202
0x0000ff00ef6c6c6c ; 203
0x6c6cec0cec6c6c6c ; 204
0x0000ff00ff000000 ; 205
0x6c6cef00ef6c6c6c ; 206
0x1818ff00ff000000 ; 207
0x6c6c6c6cff000000 ; 208
0x0000ff00ff181818 ; 209
0x00000000ff6c6c6c ; 210
0x6c6c6c6cfc000000 ; 211
0x1818f818f8000000 ; 212
0x0000f818f8181818 ; 213
0x00000000fc6c6c6c ; 214
0x6c6c6c6cff6c6c6c ; 215
0x1818ff18ff181818 ; 216
0x181818181f000000 ; 217
0x00000000f8181818 ; 218
0xffffffffffffffff ; 219
0x00000000ffffffff ; 220
0x0f0f0f0f0f0f0f0f ; 221
0xf0f0f0f0f0f0f0f0 ; 222
0xffffffff00000000 ; 223
0x00006e3b133b6e00 ; 224
0x001e331f331f0303 ; 225
0x003f330303030300 ; 226
0x007f363636363600 ; 227
0x3f33060c06333f00 ; 228
0x00007e1b1b1b0e00 ; 229
0x00666666663e0603 ; 230
0x006e3b1818181800 ; 231
0x3f0c1e33331e0c3f ; 232
0x1c36637f63361c00 ; 233
0x1c36636336367700 ; 234
0x380c183e33331e00 ; 235
0x00007edbdb7e0000 ; 236
0x60307edbdb7e0603 ; 237
0x1c06031f03061c00 ; 238
0x1e33333333333300 ; 239
0x003f003f003f0000 ; 240
0x0c0c3f0c0c003f00 ; 241
0x060c180c06003f00 ; 242
0x180c060c18003f00 ; 243
0x70d8d81818181818 ; 244
0x18181818181b1b0e ; 245
0x0c0c003f000c0c00 ; 246
0x006e3b006e3b0000 ; 247
0x1c36361c00000000 ; 248
0x0000001818000000 ; 249
0x0000000018000000 ; 250
0xf030303037363c38 ; 251
0x1e36363636000000 ; 252
0x0e180c061e000000 ; 253
0x00003c3c3c3c0000 ; 254
0x0000000000000000 ; 255
))

174
examples/font/font.xbm
Unescape View File

@ -0,0 +1,174 @@
#define psf_width 256
#define psf_height 64
static unsigned char psf_bits[] = {
0x00, 0x7e, 0x7e, 0x36, 0x08, 0x1c, 0x08, 0x00, 0xff, 0x00, 0xff, 0xf0,
0x3c, 0xfc, 0xfe, 0x99, 0x01, 0x40, 0x18, 0x66, 0xfe, 0x7c, 0x00, 0x18,
0x18, 0x18, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x81, 0xff, 0x7f,
0x1c, 0x3e, 0x08, 0x00, 0xff, 0x3c, 0xc3, 0xe0, 0x66, 0xcc, 0xc6, 0x5a,
0x07, 0x70, 0x3c, 0x66, 0xdb, 0xc6, 0x00, 0x3c, 0x3c, 0x18, 0x18, 0x0c,
0x00, 0x24, 0x18, 0xff, 0x00, 0xa5, 0xdb, 0x7f, 0x3e, 0x1c, 0x1c, 0x18,
0xe7, 0x66, 0x99, 0xf0, 0x66, 0xfc, 0xfe, 0x3c, 0x1f, 0x7c, 0x7e, 0x66,
0xdb, 0x1c, 0x00, 0x7e, 0x7e, 0x18, 0x30, 0x06, 0x03, 0x66, 0x3c, 0xff,
0x00, 0x81, 0xff, 0x7f, 0x7f, 0x7f, 0x3e, 0x3c, 0xc3, 0x42, 0xbd, 0xbe,
0x66, 0x0c, 0xc6, 0xe7, 0x7f, 0x7f, 0x18, 0x66, 0xde, 0x36, 0x00, 0x18,
0x18, 0x18, 0x7f, 0x7f, 0x03, 0xff, 0x7e, 0x7e, 0x00, 0xbd, 0xc3, 0x3e,
0x3e, 0x7f, 0x7f, 0x3c, 0xc3, 0x42, 0xbd, 0x33, 0x3c, 0x0c, 0xc6, 0xe7,
0x1f, 0x7c, 0x18, 0x66, 0xd8, 0x36, 0x7e, 0x7e, 0x18, 0x7e, 0x30, 0x06,
0x03, 0x66, 0xff, 0x3c, 0x00, 0x99, 0xe7, 0x1c, 0x1c, 0x3e, 0x3e, 0x18,
0xe7, 0x66, 0x99, 0x33, 0x18, 0x0e, 0xe6, 0x3c, 0x07, 0x70, 0x7e, 0x00,
0xd8, 0x1c, 0x7e, 0x3c, 0x18, 0x3c, 0x18, 0x0c, 0x7f, 0x24, 0xff, 0x18,
0x00, 0x81, 0xff, 0x08, 0x08, 0x1c, 0x1c, 0x00, 0xff, 0x3c, 0xc3, 0x33,
0x7e, 0x0f, 0x67, 0x5a, 0x01, 0x40, 0x3c, 0x66, 0xd8, 0x33, 0x7e, 0x18,
0x18, 0x18, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x7e, 0x7e, 0x00,
0x00, 0x3e, 0x3e, 0x00, 0xff, 0x00, 0xff, 0x1e, 0x18, 0x07, 0x03, 0x99,
0x00, 0x00, 0x18, 0x00, 0x00, 0x1e, 0x00, 0xff, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x0c, 0x36, 0x36, 0x0c, 0x00, 0x1c, 0x06,
0x18, 0x06, 0x00, 0x00, 0x00, 0x00, 0x00, 0x60, 0x3e, 0x0c, 0x1e, 0x1e,
0x38, 0x3f, 0x1c, 0x3f, 0x1e, 0x1e, 0x00, 0x00, 0x18, 0x00, 0x06, 0x1e,
0x00, 0x1e, 0x36, 0x36, 0x3e, 0x63, 0x36, 0x06, 0x0c, 0x0c, 0x66, 0x0c,
0x00, 0x00, 0x00, 0x30, 0x63, 0x0e, 0x33, 0x33, 0x3c, 0x03, 0x06, 0x33,
0x33, 0x33, 0x0c, 0x0c, 0x0c, 0x00, 0x0c, 0x33, 0x00, 0x1e, 0x36, 0x7f,
0x03, 0x33, 0x1c, 0x03, 0x06, 0x18, 0x3c, 0x0c, 0x00, 0x00, 0x00, 0x18,
0x73, 0x0c, 0x30, 0x30, 0x36, 0x1f, 0x03, 0x30, 0x33, 0x33, 0x0c, 0x0c,
0x06, 0x3f, 0x18, 0x30, 0x00, 0x0c, 0x00, 0x36, 0x1e, 0x18, 0x6e, 0x00,
0x06, 0x18, 0xff, 0x3f, 0x00, 0x3f, 0x00, 0x0c, 0x7b, 0x0c, 0x1c, 0x1c,
0x33, 0x30, 0x1f, 0x18, 0x1e, 0x3e, 0x00, 0x00, 0x03, 0x00, 0x30, 0x18,
0x00, 0x0c, 0x00, 0x7f, 0x30, 0x0c, 0x3b, 0x00, 0x06, 0x18, 0x3c, 0x0c,
0x00, 0x00, 0x00, 0x06, 0x6f, 0x0c, 0x06, 0x30, 0x7f, 0x30, 0x33, 0x0c,
0x33, 0x30, 0x00, 0x00, 0x06, 0x00, 0x18, 0x0c, 0x00, 0x00, 0x00, 0x36,
0x1f, 0x66, 0x33, 0x00, 0x0c, 0x0c, 0x66, 0x0c, 0x0c, 0x00, 0x0c, 0x03,
0x67, 0x0c, 0x33, 0x33, 0x30, 0x33, 0x33, 0x0c, 0x33, 0x18, 0x0c, 0x0c,
0x0c, 0x3f, 0x0c, 0x00, 0x00, 0x0c, 0x00, 0x36, 0x0c, 0x63, 0x6e, 0x00,
0x18, 0x06, 0x00, 0x00, 0x0c, 0x00, 0x0c, 0x01, 0x3e, 0x3f, 0x3f, 0x1e,
0x78, 0x1e, 0x1e, 0x0c, 0x1e, 0x0e, 0x0c, 0x0c, 0x18, 0x00, 0x06, 0x0c,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x06, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x06, 0x00, 0x00, 0x00, 0x00, 0x3e, 0x0c, 0x3f, 0x3c,
0x1f, 0x7f, 0x7f, 0x3c, 0x33, 0x1e, 0x78, 0x67, 0x0f, 0x63, 0x63, 0x1c,
0x3f, 0x1e, 0x3f, 0x1e, 0x3f, 0x33, 0x33, 0x63, 0x63, 0x33, 0x7f, 0x1e,
0x03, 0x1e, 0x08, 0x00, 0x63, 0x1e, 0x66, 0x66, 0x36, 0x46, 0x46, 0x66,
0x33, 0x0c, 0x30, 0x66, 0x06, 0x77, 0x67, 0x36, 0x66, 0x33, 0x66, 0x33,
0x2d, 0x33, 0x33, 0x63, 0x63, 0x33, 0x63, 0x06, 0x06, 0x18, 0x1c, 0x00,
0x7b, 0x33, 0x66, 0x03, 0x66, 0x16, 0x16, 0x03, 0x33, 0x0c, 0x30, 0x36,
0x06, 0x7f, 0x6f, 0x63, 0x66, 0x33, 0x66, 0x07, 0x0c, 0x33, 0x33, 0x63,
0x36, 0x33, 0x31, 0x06, 0x0c, 0x18, 0x36, 0x00, 0x7b, 0x33, 0x3e, 0x03,
0x66, 0x1e, 0x1e, 0x03, 0x3f, 0x0c, 0x30, 0x1e, 0x06, 0x7f, 0x7b, 0x63,
0x3e, 0x33, 0x3e, 0x0e, 0x0c, 0x33, 0x33, 0x6b, 0x1c, 0x1e, 0x18, 0x06,
0x18, 0x18, 0x63, 0x00, 0x7b, 0x3f, 0x66, 0x03, 0x66, 0x16, 0x16, 0x73,
0x33, 0x0c, 0x33, 0x36, 0x46, 0x6b, 0x73, 0x63, 0x06, 0x3b, 0x36, 0x38,
0x0c, 0x33, 0x33, 0x7f, 0x1c, 0x0c, 0x4c, 0x06, 0x30, 0x18, 0x00, 0x00,
0x03, 0x33, 0x66, 0x66, 0x36, 0x46, 0x06, 0x66, 0x33, 0x0c, 0x33, 0x66,
0x66, 0x63, 0x63, 0x36, 0x06, 0x1e, 0x66, 0x33, 0x0c, 0x33, 0x1e, 0x77,
0x36, 0x0c, 0x66, 0x06, 0x60, 0x18, 0x00, 0x00, 0x1e, 0x33, 0x3f, 0x3c,
0x1f, 0x7f, 0x0f, 0x7c, 0x33, 0x1e, 0x1e, 0x67, 0x7f, 0x63, 0x63, 0x1c,
0x0f, 0x38, 0x67, 0x1e, 0x1e, 0x3f, 0x0c, 0x63, 0x63, 0x1e, 0x7f, 0x1e,
0x40, 0x1e, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff,
0x0c, 0x00, 0x07, 0x00, 0x38, 0x00, 0x1c, 0x00, 0x07, 0x0c, 0x30, 0x07,
0x0e, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x38, 0x18, 0x07, 0x6e, 0x00, 0x0c, 0x00, 0x06, 0x00,
0x30, 0x00, 0x36, 0x00, 0x06, 0x00, 0x00, 0x06, 0x0c, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x0c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0c,
0x18, 0x0c, 0x3b, 0x08, 0x18, 0x1e, 0x06, 0x1e, 0x30, 0x1e, 0x06, 0x6e,
0x36, 0x0e, 0x30, 0x66, 0x0c, 0x33, 0x1f, 0x1e, 0x3b, 0x6e, 0x3b, 0x3e,
0x3e, 0x33, 0x33, 0x63, 0x63, 0x33, 0x3f, 0x0c, 0x18, 0x0c, 0x00, 0x1c,
0x00, 0x30, 0x3e, 0x33, 0x3e, 0x33, 0x0f, 0x33, 0x6e, 0x0c, 0x30, 0x36,
0x0c, 0x7f, 0x33, 0x33, 0x66, 0x33, 0x6e, 0x03, 0x0c, 0x33, 0x33, 0x6b,
0x36, 0x33, 0x19, 0x07, 0x00, 0x38, 0x00, 0x36, 0x00, 0x3e, 0x66, 0x03,
0x33, 0x3f, 0x06, 0x33, 0x66, 0x0c, 0x30, 0x1e, 0x0c, 0x7f, 0x33, 0x33,
0x66, 0x33, 0x66, 0x1e, 0x0c, 0x33, 0x33, 0x7f, 0x1c, 0x33, 0x0c, 0x0c,
0x18, 0x0c, 0x00, 0x63, 0x00, 0x33, 0x66, 0x33, 0x33, 0x03, 0x06, 0x3e,
0x66, 0x0c, 0x33, 0x36, 0x0c, 0x6b, 0x33, 0x33, 0x3e, 0x3e, 0x06, 0x30,
0x2c, 0x33, 0x1e, 0x7f, 0x36, 0x3e, 0x26, 0x0c, 0x18, 0x0c, 0x00, 0x63,
0x00, 0x6e, 0x3b, 0x1e, 0x6e, 0x1e, 0x0f, 0x30, 0x67, 0x1e, 0x33, 0x67,
0x1e, 0x63, 0x33, 0x1e, 0x06, 0x30, 0x0f, 0x1f, 0x18, 0x6e, 0x0c, 0x36,
0x63, 0x30, 0x3f, 0x38, 0x18, 0x07, 0x00, 0x7f, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x1f, 0x00, 0x00, 0x1e, 0x00, 0x00, 0x00, 0x00, 0x00,
0x0f, 0x78, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x1f, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x1e, 0x00, 0x38, 0x7e, 0x33, 0x07, 0x0c, 0x00,
0x7e, 0x33, 0x07, 0x33, 0x3e, 0x07, 0x63, 0x0c, 0x38, 0x00, 0x7c, 0x1e,
0x00, 0x00, 0x1e, 0x00, 0x00, 0xc3, 0x33, 0x18, 0x1c, 0x33, 0x1f, 0x70,
0x33, 0x33, 0x00, 0xc3, 0x00, 0x00, 0x0c, 0x00, 0xc3, 0x00, 0x00, 0x00,
0x63, 0x00, 0x1c, 0x0c, 0x00, 0x00, 0x36, 0x33, 0x33, 0x07, 0x33, 0x07,
0x33, 0x18, 0x00, 0x18, 0x36, 0x33, 0x33, 0xd8, 0x03, 0x00, 0x1e, 0x3c,
0x1e, 0x1e, 0x1e, 0x1e, 0x3c, 0x1e, 0x1e, 0x0e, 0x1c, 0x0e, 0x36, 0x00,
0x3f, 0xfe, 0x33, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x3c, 0x33, 0x7e,
0x26, 0x1e, 0x33, 0x18, 0x33, 0x33, 0x33, 0x60, 0x30, 0x30, 0x30, 0x03,
0x66, 0x33, 0x33, 0x0c, 0x18, 0x0c, 0x63, 0x1e, 0x06, 0x30, 0x7f, 0x1e,
0x1e, 0x1e, 0x33, 0x33, 0x33, 0x66, 0x33, 0x03, 0x0f, 0x3f, 0x5f, 0x3c,
0x1e, 0x33, 0x3f, 0x7c, 0x3e, 0x3e, 0x3e, 0x03, 0x7e, 0x3f, 0x3f, 0x0c,
0x18, 0x0c, 0x7f, 0x33, 0x1e, 0xfe, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33,
0x33, 0x66, 0x33, 0x03, 0x06, 0x0c, 0x63, 0x18, 0x18, 0x33, 0x03, 0x66,
0x33, 0x33, 0x33, 0x1e, 0x06, 0x03, 0x03, 0x0c, 0x18, 0x0c, 0x63, 0x3f,
0x06, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x3e, 0x3c, 0x33, 0x7e,
0x67, 0x3f, 0xf3, 0x18, 0x30, 0x7e, 0x1e, 0xfc, 0x7e, 0x7e, 0x7e, 0x30,
0x3c, 0x1e, 0x1e, 0x1e, 0x3c, 0x1e, 0x63, 0x33, 0x3f, 0xfe, 0x73, 0x1e,
0x1e, 0x1e, 0x7e, 0x7e, 0x30, 0x18, 0x1e, 0x18, 0x3f, 0x0c, 0x63, 0x1b,
0x1e, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x1c, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x1f, 0x00, 0x00, 0x18, 0x00, 0x0c, 0xe3, 0x0e, 0x38, 0x1c, 0x00, 0x00,
0x00, 0x3f, 0x3c, 0x1c, 0x0c, 0x00, 0x00, 0xc3, 0xc3, 0x18, 0x00, 0x00,
0x44, 0xaa, 0xdb, 0x18, 0x18, 0x18, 0x6c, 0x00, 0x00, 0x6c, 0x6c, 0x00,
0x6c, 0x6c, 0x18, 0x00, 0x00, 0x00, 0x38, 0x38, 0x1f, 0x00, 0x36, 0x36,
0x00, 0x00, 0x00, 0x63, 0x63, 0x18, 0xcc, 0x33, 0x11, 0x55, 0xee, 0x18,
0x18, 0x18, 0x6c, 0x00, 0x00, 0x6c, 0x6c, 0x00, 0x6c, 0x6c, 0x18, 0x00,
0x1e, 0x0e, 0x00, 0x00, 0x00, 0x33, 0x36, 0x36, 0x0c, 0x00, 0x00, 0x33,
0x33, 0x00, 0x66, 0x66, 0x44, 0xaa, 0xdb, 0x18, 0x18, 0x1f, 0x6c, 0x00,
0x1f, 0x6f, 0x6c, 0x7f, 0x6f, 0x6c, 0x1f, 0x00, 0x30, 0x0c, 0x1e, 0x33,
0x1f, 0x37, 0x7c, 0x1c, 0x06, 0x3f, 0x3f, 0x7b, 0xdb, 0x18, 0x33, 0xcc,
0x11, 0x55, 0x77, 0x18, 0x18, 0x18, 0x6c, 0x00, 0x18, 0x60, 0x6c, 0x60,
0x60, 0x6c, 0x18, 0x00, 0x3e, 0x0c, 0x33, 0x33, 0x33, 0x3f, 0x00, 0x00,
0x03, 0x03, 0x30, 0xcc, 0xec, 0x18, 0x66, 0x66, 0x44, 0xaa, 0xdb, 0x18,
0x1f, 0x1f, 0x6f, 0x7f, 0x1f, 0x6f, 0x6c, 0x6f, 0x7f, 0x7f, 0x1f, 0x1f,
0x33, 0x0c, 0x33, 0x33, 0x33, 0x3b, 0x7e, 0x3e, 0x33, 0x03, 0x30, 0x66,
0xf6, 0x18, 0xcc, 0x33, 0x11, 0x55, 0xee, 0x18, 0x18, 0x18, 0x6c, 0x6c,
0x18, 0x6c, 0x6c, 0x6c, 0x00, 0x00, 0x00, 0x18, 0x7e, 0x1e, 0x1e, 0x7e,
0x33, 0x33, 0x00, 0x00, 0x1e, 0x00, 0x00, 0x33, 0xf3, 0x18, 0x00, 0x00,
0x44, 0xaa, 0xdb, 0x18, 0x18, 0x18, 0x6c, 0x6c, 0x18, 0x6c, 0x6c, 0x6c,
0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0xf0, 0xc0, 0x00, 0x00, 0x00, 0x11, 0x55, 0x77, 0x18,
0x18, 0x18, 0x6c, 0x6c, 0x18, 0x6c, 0x6c, 0x6c, 0x00, 0x00, 0x00, 0x18,
0x18, 0x18, 0x00, 0x18, 0x00, 0x18, 0x18, 0x6c, 0x6c, 0x00, 0x6c, 0x00,
0x6c, 0x00, 0x6c, 0x18, 0x6c, 0x00, 0x00, 0x6c, 0x18, 0x00, 0x00, 0x6c,
0x18, 0x18, 0x00, 0xff, 0x00, 0x0f, 0xf0, 0xff, 0x18, 0x18, 0x00, 0x18,
0x00, 0x18, 0x18, 0x6c, 0x6c, 0x00, 0x6c, 0x00, 0x6c, 0x00, 0x6c, 0x18,
0x6c, 0x00, 0x00, 0x6c, 0x18, 0x00, 0x00, 0x6c, 0x18, 0x18, 0x00, 0xff,
0x00, 0x0f, 0xf0, 0xff, 0x18, 0x18, 0x00, 0x18, 0x00, 0x18, 0xf8, 0x6c,
0xec, 0xfc, 0xef, 0xff, 0xec, 0xff, 0xef, 0xff, 0x6c, 0xff, 0x00, 0x6c,
0xf8, 0xf8, 0x00, 0x6c, 0xff, 0x18, 0x00, 0xff, 0x00, 0x0f, 0xf0, 0xff,
0x18, 0x18, 0x00, 0x18, 0x00, 0x18, 0x18, 0x6c, 0x0c, 0x0c, 0x00, 0x00,
0x0c, 0x00, 0x00, 0x00, 0x6c, 0x00, 0x00, 0x6c, 0x18, 0x18, 0x00, 0x6c,
0x18, 0x18, 0x00, 0xff, 0x00, 0x0f, 0xf0, 0xff, 0xf8, 0xff, 0xff, 0xf8,
0xff, 0xff, 0xf8, 0xec, 0xfc, 0xec, 0xff, 0xef, 0xec, 0xff, 0xef, 0xff,
0xff, 0xff, 0xff, 0xfc, 0xf8, 0xf8, 0xfc, 0xff, 0xff, 0x1f, 0xf8, 0xff,
0xff, 0x0f, 0xf0, 0x00, 0x00, 0x00, 0x18, 0x18, 0x00, 0x18, 0x18, 0x6c,
0x00, 0x6c, 0x00, 0x6c, 0x6c, 0x00, 0x6c, 0x00, 0x00, 0x18, 0x6c, 0x00,
0x00, 0x18, 0x6c, 0x6c, 0x18, 0x00, 0x18, 0xff, 0xff, 0x0f, 0xf0, 0x00,
0x00, 0x00, 0x18, 0x18, 0x00, 0x18, 0x18, 0x6c, 0x00, 0x6c, 0x00, 0x6c,
0x6c, 0x00, 0x6c, 0x00, 0x00, 0x18, 0x6c, 0x00, 0x00, 0x18, 0x6c, 0x6c,
0x18, 0x00, 0x18, 0xff, 0xff, 0x0f, 0xf0, 0x00, 0x00, 0x00, 0x18, 0x18,
0x00, 0x18, 0x18, 0x6c, 0x00, 0x6c, 0x00, 0x6c, 0x6c, 0x00, 0x6c, 0x00,
0x00, 0x18, 0x6c, 0x00, 0x00, 0x18, 0x6c, 0x6c, 0x18, 0x00, 0x18, 0xff,
0xff, 0x0f, 0xf0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x3f, 0x00, 0x00, 0x00,
0x3f, 0x1c, 0x1c, 0x38, 0x00, 0x60, 0x1c, 0x1e, 0x00, 0x0c, 0x06, 0x18,
0x70, 0x18, 0x0c, 0x00, 0x1c, 0x00, 0x00, 0xf0, 0x1e, 0x0e, 0x00, 0x00,
0x00, 0x1e, 0x3f, 0x7f, 0x33, 0x00, 0x66, 0x6e, 0x0c, 0x36, 0x36, 0x0c,
0x00, 0x30, 0x06, 0x33, 0x3f, 0x0c, 0x0c, 0x0c, 0xd8, 0x18, 0x0c, 0x6e,
0x36, 0x00, 0x00, 0x30, 0x36, 0x18, 0x00, 0x00, 0x6e, 0x33, 0x33, 0x36,
0x06, 0x7e, 0x66, 0x3b, 0x1e, 0x63, 0x63, 0x18, 0x7e, 0x7e, 0x03, 0x33,
0x00, 0x3f, 0x18, 0x06, 0xd8, 0x18, 0x00, 0x3b, 0x36, 0x00, 0x00, 0x30,
0x36, 0x0c, 0x3c, 0x00, 0x3b, 0x1f, 0x03, 0x36, 0x0c, 0x1b, 0x66, 0x18,
0x33, 0x7f, 0x63, 0x3e, 0xdb, 0xdb, 0x1f, 0x33, 0x3f, 0x0c, 0x0c, 0x0c,
0x18, 0x18, 0x3f, 0x00, 0x1c, 0x18, 0x00, 0x30, 0x36, 0x06, 0x3c, 0x00,
0x13, 0x33, 0x03, 0x36, 0x06, 0x1b, 0x66, 0x18, 0x33, 0x63, 0x36, 0x33,
0xdb, 0xdb, 0x03, 0x33, 0x00, 0x0c, 0x06, 0x18, 0x18, 0x18, 0x00, 0x6e,
0x00, 0x18, 0x18, 0x37, 0x36, 0x1e, 0x3c, 0x00, 0x3b, 0x1f, 0x03, 0x36,
0x33, 0x1b, 0x3e, 0x18, 0x1e, 0x36, 0x36, 0x33, 0x7e, 0x7e, 0x06, 0x33,
0x3f, 0x00, 0x00, 0x00, 0x18, 0x1b, 0x0c, 0x3b, 0x00, 0x00, 0x00, 0x36,
0x00, 0x00, 0x3c, 0x00, 0x6e, 0x03, 0x03, 0x36, 0x3f, 0x0e, 0x06, 0x18,
0x0c, 0x1c, 0x77, 0x1e, 0x00, 0x06, 0x1c, 0x33, 0x00, 0x3f, 0x3f, 0x3f,
0x18, 0x1b, 0x0c, 0x00, 0x00, 0x00, 0x00, 0x3c, 0x00, 0x00, 0x00, 0x00,
0x00, 0x03, 0x00, 0x00, 0x00, 0x00, 0x03, 0x00, 0x3f, 0x00, 0x00, 0x00,
0x00, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x18, 0x0e, 0x00, 0x00,
0x00, 0x00, 0x00, 0x38, 0x00, 0x00, 0x00, 0x00};

353
examples/screen_font.csn
Unescape View File

@ -0,0 +1,353 @@
(
; This is a demo of a bitmap font and string rendering using buffers.
; You can do this many ways.
(sc-init 800 250)
(sc-opt SCREEN_UPSCALE 5)
; Define a font. This should be less ugly once we have includes implemented...
(sym FONT g15)
(mkbf FONT (
0x0000000000000000 ; 0
0x7e81a581bd99817e ; 1
0x7effdbffc3e7ff7e ; 2
0x367f7f7f3e1c0800 ; 3
0x081c3e7f3e1c0800 ; 4
0x1c3e1c7f7f3e1c3e ; 5
0x08081c3e7f3e1c3e ; 6
0x0000183c3c180000 ; 7
0xffffe7c3c3e7ffff ; 8
0x003c664242663c00 ; 9
0xffc399bdbd99c3ff ; 10
0xf0e0f0be3333331e ; 11
0x3c6666663c187e18 ; 12
0xfcccfc0c0c0e0f07 ; 13
0xfec6fec6c6e66703 ; 14
0x995a3ce7e73c5a99 ; 15
0x01071f7f1f070100 ; 16
0x40707c7f7c704000 ; 17
0x183c7e18187e3c18 ; 18
0x6666666666006600 ; 19
0xfedbdbded8d8d800 ; 20
0x7cc61c36361c331e ; 21
0x000000007e7e7e00 ; 22
0x183c7e187e3c18ff ; 23
0x183c7e1818181800 ; 24
0x181818187e3c1800 ; 25
0x0018307f30180000 ; 26
0x000c067f060c0000 ; 27
0x00000303037f0000 ; 28
0x002466ff66240000 ; 29
0x00183c7effff0000 ; 30
0x00ffff7e3c180000 ; 31
0x0000000000000000 ; 32 ' '
0x0c1e1e0c0c000c00 ; 33 '!'
0x3636360000000000 ; 34 '"'
0x36367f367f363600 ; 35 '#'
0x0c3e031e301f0c00 ; 36 '$'
0x006333180c666300 ; 37 '%'
0x1c361c6e3b336e00 ; 38 '&'
0x0606030000000000 ; 39 '''
0x180c0606060c1800 ; 40 '('
0x060c1818180c0600 ; 41 ')'
0x00663cff3c660000 ; 42 '*'
0x000c0c3f0c0c0000 ; 43 '+'
0x00000000000c0c06 ; 44 ','
0x0000003f00000000 ; 45 '-'
0x00000000000c0c00 ; 46 '.'
0x6030180c06030100 ; 47 '/'
0x3e63737b6f673e00 ; 48 '0'
0x0c0e0c0c0c0c3f00 ; 49 '1'
0x1e33301c06333f00 ; 50 '2'
0x1e33301c30331e00 ; 51 '3'
0x383c36337f307800 ; 52 '4'
0x3f031f3030331e00 ; 53 '5'
0x1c06031f33331e00 ; 54 '6'
0x3f3330180c0c0c00 ; 55 '7'
0x1e33331e33331e00 ; 56 '8'
0x1e33333e30180e00 ; 57 '9'
0x000c0c00000c0c00 ; 58 ':'
0x000c0c00000c0c06 ; 59 ';'
0x180c0603060c1800 ; 60 '<'
0x00003f00003f0000 ; 61 '='
0x060c1830180c0600 ; 62 '>'
0x1e3330180c000c00 ; 63 '?'
0x3e637b7b7b031e00 ; 64 '@'
0x0c1e33333f333300 ; 65 'A'
0x3f66663e66663f00 ; 66 'B'
0x3c66030303663c00 ; 67 'C'
0x1f36666666361f00 ; 68 'D'
0x7f46161e16467f00 ; 69 'E'
0x7f46161e16060f00 ; 70 'F'
0x3c66030373667c00 ; 71 'G'
0x3333333f33333300 ; 72 'H'
0x1e0c0c0c0c0c1e00 ; 73 'I'
0x7830303033331e00 ; 74 'J'
0x6766361e36666700 ; 75 'K'
0x0f06060646667f00 ; 76 'L'
0x63777f7f6b636300 ; 77 'M'
0x63676f7b73636300 ; 78 'N'
0x1c36636363361c00 ; 79 'O'
0x3f66663e06060f00 ; 80 'P'
0x1e3333333b1e3800 ; 81 'Q'
0x3f66663e36666700 ; 82 'R'
0x1e33070e38331e00 ; 83 'S'
0x3f2d0c0c0c0c1e00 ; 84 'T'
0x3333333333333f00 ; 85 'U'
0x33333333331e0c00 ; 86 'V'
0x6363636b7f776300 ; 87 'W'
0x6363361c1c366300 ; 88 'X'
0x3333331e0c0c1e00 ; 89 'Y'
0x7f6331184c667f00 ; 90 'Z'
0x1e06060606061e00 ; 91 '['
0x03060c1830604000 ; 92 '\'
0x1e18181818181e00 ; 93 ']'
0x081c366300000000 ; 94 '^'
0x00000000000000ff ; 95 '_'
0x0c0c180000000000 ; 96 '`'
0x00001e303e336e00 ; 97 'a'
0x0706063e66663b00 ; 98 'b'
0x00001e3303331e00 ; 99 'c'
0x3830303e33336e00 ; 100 'd'
0x00001e333f031e00 ; 101 'e'
0x1c36060f06060f00 ; 102 'f'
0x00006e33333e301f ; 103 'g'
0x0706366e66666700 ; 104 'h'
0x0c000e0c0c0c1e00 ; 105 'i'
0x300030303033331e ; 106 'j'
0x070666361e366700 ; 107 'k'
0x0e0c0c0c0c0c1e00 ; 108 'l'
0x0000337f7f6b6300 ; 109 'm'
0x00001f3333333300 ; 110 'n'
0x00001e3333331e00 ; 111 'o'
0x00003b66663e060f ; 112 'p'
0x00006e33333e3078 ; 113 'q'
0x00003b6e66060f00 ; 114 'r'
0x00003e031e301f00 ; 115 's'
0x080c3e0c0c2c1800 ; 116 't'
0x0000333333336e00 ; 117 'u'
0x00003333331e0c00 ; 118 'v'
0x0000636b7f7f3600 ; 119 'w'
0x000063361c366300 ; 120 'x'
0x00003333333e301f ; 121 'y'
0x00003f190c263f00 ; 122 'z'
0x380c0c070c0c3800 ; 123 '{'
0x1818180018181800 ; 124 '|'
0x070c0c380c0c0700 ; 125 '}'
0x6e3b000000000000 ; 126 '~'
0x00081c3663637f00 ; 127
0x1e3303331e18301e ; 128
0x0033003333337e00 ; 129
0x38001e333f031e00 ; 130
0x7ec33c607c66fc00 ; 131
0x33001e303e337e00 ; 132
0x07001e303e337e00 ; 133
0x0c0c1e303e337e00 ; 134
0x00001e03031e301c ; 135
0x7ec33c667e063c00 ; 136
0x33001e333f031e00 ; 137
0x07001e333f031e00 ; 138
0x33000e0c0c0c1e00 ; 139
0x3e631c1818183c00 ; 140
0x07000e0c0c0c1e00 ; 141
0x631c36637f636300 ; 142
0x0c0c001e333f3300 ; 143
0x38003f061e063f00 ; 144
0x0000fe30fe33fe00 ; 145
0x7c36337f33337300 ; 146
0x1e33001e33331e00 ; 147
0x0033001e33331e00 ; 148
0x0007001e33331e00 ; 149
0x1e33003333337e00 ; 150
0x0007003333337e00 ; 151
0x00330033333e301f ; 152
0xc3183c66663c1800 ; 153
0x3300333333331e00 ; 154
0x18187e03037e1818 ; 155
0x1c36260f06673f00 ; 156
0x33331e3f0c3f0c0c ; 157
0x1f33335f63f363e3 ; 158
0x70d8183c18181b0e ; 159
0x38001e303e337e00 ; 160
0x1c000e0c0c0c1e00 ; 161
0x0038001e33331e00 ; 162
0x0038003333337e00 ; 163
0x001f001f33333300 ; 164
0x3f0033373f3b3300 ; 165
0x3c36367c007e0000 ; 166
0x1c36361c003e0000 ; 167
0x0c000c0603331e00 ; 168
0x0000003f03030000 ; 169
0x0000003f30300000 ; 170
0xc363337bcc6633f0 ; 171
0xc36333dbecf6f3c0 ; 172
0x1818001818181800 ; 173
0x00cc663366cc0000 ; 174
0x003366cc66330000 ; 175
0x4411441144114411 ; 176
0xaa55aa55aa55aa55 ; 177
0xdbeedb77dbeedb77 ; 178
0x1818181818181818 ; 179
0x181818181f181818 ; 180
0x18181f181f181818 ; 181
0x6c6c6c6c6f6c6c6c ; 182
0x000000007f6c6c6c ; 183
0x00001f181f181818 ; 184
0x6c6c6f606f6c6c6c ; 185
0x6c6c6c6c6c6c6c6c ; 186
0x00007f606f6c6c6c ; 187
0x6c6c6f607f000000 ; 188
0x6c6c6c6c7f000000 ; 189
0x18181f181f000000 ; 190
0x000000001f181818 ; 191
0x18181818f8000000 ; 192
0x18181818ff000000 ; 193
0x00000000ff181818 ; 194
0x18181818f8181818 ; 195
0x00000000ff000000 ; 196
0x18181818ff181818 ; 197
0x1818f818f8181818 ; 198
0x6c6c6c6cec6c6c6c ; 199
0x6c6cec0cfc000000 ; 200
0x0000fc0cec6c6c6c ; 201
0x6c6cef00ff000000 ; 202
0x0000ff00ef6c6c6c ; 203
0x6c6cec0cec6c6c6c ; 204
0x0000ff00ff000000 ; 205
0x6c6cef00ef6c6c6c ; 206
0x1818ff00ff000000 ; 207
0x6c6c6c6cff000000 ; 208
0x0000ff00ff181818 ; 209
0x00000000ff6c6c6c ; 210
0x6c6c6c6cfc000000 ; 211
0x1818f818f8000000 ; 212
0x0000f818f8181818 ; 213
0x00000000fc6c6c6c ; 214
0x6c6c6c6cff6c6c6c ; 215
0x1818ff18ff181818 ; 216
0x181818181f000000 ; 217
0x00000000f8181818 ; 218
0xffffffffffffffff ; 219
0x00000000ffffffff ; 220
0x0f0f0f0f0f0f0f0f ; 221
0xf0f0f0f0f0f0f0f0 ; 222
0xffffffff00000000 ; 223
0x00006e3b133b6e00 ; 224
0x001e331f331f0303 ; 225
0x003f330303030300 ; 226
0x007f363636363600 ; 227
0x3f33060c06333f00 ; 228
0x00007e1b1b1b0e00 ; 229
0x00666666663e0603 ; 230
0x006e3b1818181800 ; 231
0x3f0c1e33331e0c3f ; 232
0x1c36637f63361c00 ; 233
0x1c36636336367700 ; 234
0x380c183e33331e00 ; 235
0x00007edbdb7e0000 ; 236
0x60307edbdb7e0603 ; 237
0x1c06031f03061c00 ; 238
0x1e33333333333300 ; 239
0x003f003f003f0000 ; 240
0x0c0c3f0c0c003f00 ; 241
0x060c180c06003f00 ; 242
0x180c060c18003f00 ; 243
0x70d8d81818181818 ; 244
0x18181818181b1b0e ; 245
0x0c0c003f000c0c00 ; 246
0x006e3b006e3b0000 ; 247
0x1c36361c00000000 ; 248
0x0000001818000000 ; 249
0x0000000018000000 ; 250
0xf030303037363c38 ; 251
0x1e36363636000000 ; 252
0x0e180c061e000000 ; 253
0x00003c3c3c3c0000 ; 254
0x0000000000000000 ; 255
))
(mkbf r7 " Hello World ")
(bfpush @r7 1) ; ASCII smileys
(bfrpush @r7 2)
; It sometimes randomly doesn't show... ???
; Test
(sc-wr 0 0 #ff00ff)
(sc-blit)
(call ShowChar 10 10 #ffffff 'A')
(call ShowString 10 20 #ffff00 r7)
(sc-blit)
(bfrsz @r7 0)
(lds @cout "Type something: ")
(:read)
(ld r0 @cin (eof? (halt)))
(ld @cout r0)
(ld @r7 r0)
(call ShowString 10 30 #ff0000 r7)
(sc-blit)
(j :read)
(proc ShowString x y color str
(sym size r10)
(sym index r11)
(sym xx r12)
(bfsz size @str (z? (ret)))
(ld index 0)
(ld xx x)
(:ch)
(bfrd r0 @str index)
(call ShowChar xx y color r0)
(add xx 8)
(inc index)
(dec size (z? (ret)))
(j :ch)
)
(proc ShowChar x y color ch
(rcmp ch 0 255)
(ret.ne)
(sym s r15)
(bfrd s @FONT ch)
(rev s)
(sym xx r5)
(sym yy r6)
(sym nb r7)
(sym xmax r8)
(add xmax x 8)
(ld xx x)
(ld yy y)
(ld nb 64)
(:nb)
(and r0 s 1)
(j.z :skip)
(sc-wr xx yy color)
(:skip)
(ror s 1)
(inc xx)
(cmp xx xmax (eq? (ld xx x)(inc yy)))
(dec nb)
(j.nz :nb)
(ret)
)
(proc WaitForClose
(:j)
(sc-blit)
;(sc-poll)
(mslp 100)
(j :j)
)
)
Write Preview
Loading…
Cancel
Save