Add 5x7 font

Also, fix PSP leak in font compilers.
This commit is contained in:
Virgil Dupras 2020-05-22 07:55:00 -04:00
parent d777a74be3
commit ae87e88c52
7 changed files with 82 additions and 23 deletions

View File

@ -1,16 +1,16 @@
: _g ( given a top-left of dot-X in BLK(, spit 5 bin lines ) : _g ( given a top-left of dot-X in BLK(, spit 5 bin lines )
5 0 DO 5 0 DO
0 3 0 DO ( a r ) 0 3 0 DO ( a r )
2 * 1 LSHIFT
OVER J 64 * I + + C@ 'X' = IF 1+ THEN OVER J 64 * I + + C@ 'X' = IF 1+ THEN
LOOP 32 * C, LOOP DROP ; LOOP 5 LSHIFT C, LOOP DROP ;
: _l ( a u -- a, spit a line of u glyphs ) : _l ( a u -- a, spit a line of u glyphs )
( u ) 0 DO ( a ) ( u ) 0 DO ( a )
DUP I 3 * + _g DUP I 3 * + _g
LOOP ; LOOP ;
: CPFNT3x5 : CPFNT3x5
0 , 0 , 0 C, ( space char ) 0 , 0 , 0 C, ( space char )
530 BLK@ BLK( 21 _l 320 + 21 _l 320 + 21 _l ( 63 ) 530 BLK@ BLK( 21 _l 320 + 21 _l 320 + 21 _l DROP ( 63 )
531 BLK@ BLK( 21 _l 320 + 10 _l ( 94! ) 531 BLK@ BLK( 21 _l 320 + 10 _l DROP ( 94! )
; ;

16
blk/523 Normal file
View File

@ -0,0 +1,16 @@
: _g ( given a top-left of dot-X in BLK(, spit 7 bin lines )
7 0 DO
0 5 0 DO ( a r )
1 LSHIFT
OVER J 64 * I + + C@ 'X' = IF 1+ THEN
LOOP 3 LSHIFT C, LOOP DROP ;
: _l ( a u -- a, spit a line of u glyphs )
( u ) 0 DO ( a )
DUP I 5 * + _g
LOOP ;
: CPFNT5x7
0 , 0 , 0 C, ( space char )
534 532 DO I BLK@ BLK( 12 _l 448 + 12 _l DROP LOOP ( 72 )
535 BLK@ BLK( 12 _l 448 + 10 _l DROP ( 94! )
;

View File

@ -10,6 +10,6 @@
LOOP ; LOOP ;
: CPFNT7x7 : CPFNT7x7
0 , 0 , 0 , 0 C, ( space char ) 0 , 0 , 0 , 0 C, ( space char )
541 536 DO I BLK@ BLK( 9 _l 448 + 9 _l LOOP ( 90 ) 541 536 DO I BLK@ BLK( 9 _l 448 + 9 _l DROP LOOP ( 90 )
542 BLK@ BLK( 4 _l ( 94! ) 542 BLK@ BLK( 4 _l DROP ( 94! )
; ;

32
blk/532
View File

@ -1,17 +1,15 @@
............................................................... ..X...X.X........X..............X....X....X...............X.
............................................................... ..X...X.X..X.X..XXXXX...X.XX....X...X......X.X.X.X..X....X..
............................................................... ..X.......XXXXXX.......X.X..X......X........X.XXX...X.......
............................................................... ..X........X.X..XXX...X...XX.......X........XXXXXXXXXXX.....
............................................................... ..........XXXXX....X.X....XX.X.....X........X.XXX...X.......
............................................................... ..X........X.X.XXXX.X...XX..X.......X......X.X.X.X..X.......
............................................................... ..X..............X.......XXX.X.......X....X.................
............................................................... ................XXX...XX..XXX..XXX...XX.XXXXX.XXX.XXXXX.XXX.
............................................................... ..............XX...X.X.X.X...XX...X.X.X.X....X........XX...X
............................................................... .............X.X..XX...X.....X....XX..X.XXXX.X........XX...X
............................................................... XXXXX.......X..X.X.X...X....X...XX.XXXXX....XXXXX....X..XXX.
............................................................... ...........X...XX..X...X...X......X...X.....XX...X..X..X...X
............................................................... ......XX..X....X...X...X..X...X...X...X.X...XX...X.X...X...X
............................................................... ......XX........XXX..XXXXXXXXX.XXX....X..XXX..XXX.X.....XXX.
............................................................... !"#$%&'()*+,-./012345678

15
blk/533 Normal file
View File

@ -0,0 +1,15 @@
.XXX...............X.....X.....XXX..XXX..XXX.XXXX..XXX.XXXX.
X...X..X....X....XX.......XX..X...XX...XX...XX...XX...XX...X
X...X..X....X...XX..XXXXX..XX.....XX..XXX...XX...XX....X...X
.XXX...........X.............X...X.X..XXXXXXXXXXX.X....X...X
....X..X....X...XX..XXXXX..XX...X..X....X...XX...XX....X...X
....X..X...X.....XX.......XX.......X...XX...XX...XX...XX...X
.XXX...............X.....X......X...XXX.X...XXXXX..XXX.XXXX.
XXXXXXXXXX.XXX.X...X.XXX....XXX..X.X....X...XX...X.XXX.XXXX.
X....X....X...XX...X..X......XX.X..X....XX.XXXX..XX...XX...X
X....X....X....X...X..X......XXX...X....X.X.XXX..XX...XX...X
XXXX.XXXX.X..XXXXXXX..X......XX....X....X...XX.X.XX...XXXXX.
X....X....X...XX...X..X......XXX...X....X...XX..XXX...XX....
X....X....X...XX...X..X..X...XX.X..X....X...XX..XXX...XX....
XXXXXX.....XXX.X...X.XXX..XXX.X..X.XXXXXX...XX...X.XXX.X....
9:;<=>?@ABCDEFGHIJKLMNOP

15
blk/534 Normal file
View File

@ -0,0 +1,15 @@
.XXX.XXXX..XXX.XXXXXX...XX...XX...XX...XX...XXXXXXXXX.......
X...XX...XX...X..X..X...XX...XX...XX...XX...XX...XX....X....
X...XX...XX......X..X...XX...XX...X.X.X..X.X....X.X.....X...
X...XXXXX..XXX...X..X...XX...XX...X..X....X....X..X......X..
X.X.XX.X......X..X..X...XX...XX.X.X.X.X...X...X...X.......X.
X..XXX..X.X...X..X..X...X.X.X.X.X.XX...X..X..X...XX........X
.XXXXX...X.XXX...X...XXX...X...X.X.X...X..X..XXXXXXXX.......
..XXX..X.........X..........................................
....X.X.X.........X.........................................
....XX...X...........XXX.X.....XXX.....X.XXX..XX....XXXX....
....X...................XX....X...X....XX...XX..X..X..XX....
....X................XXXXXXX..X......XXXXXXXXX......XXXXXX..
....X...............X...XX..X.X...X.X..XX....XXX......XX..X.
..XXX.....XXXXX......XXXXXXX...XXX...XXX.XXXXX......XX.X..X.
QRSTUVWXYZ[\]^_`abcdefgh

15
blk/535 Normal file
View File

@ -0,0 +1,15 @@
............................................................
............................................................
..X......XX..X..XX...X.X.XXX...XXX.XXX....XXXX.XX..XXX..X...
..........X.X....X..X.X.XX..X.X...XX..X..X..XXX...X....XXX..
..X......XXX.....X..X...XX...XX...XXXX....XXXX.....XXX..X...
..X...X..XX.X....X..X...XX...XX...XX........XX........X.X...
..X....XX.X..X...XX.X...XX...X.XXX.X........XX.....XXX...XX.
................................XX...X...XX.......
...............................X.....X.....X......
X...XX...XX...XX...XX...XXXXXX.X.....X.....X..X.X.
X...XX...XX...X.X.X..X.X....X.X......X......XX.X..
X...XX...XX...X..X....X....X...X.....X.....X......
X...X.X.X.X.X.X.X.X..X....X....X.....X.....X......
.XXX...X...X.X.X...XX....XXXXX..XX...X...XX.......
ijklmnopqrstuvwxyz{|}~