mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-24 14:28:06 +11:00
Add 5x7 font
Also, fix PSP leak in font compilers.
This commit is contained in:
parent
d777a74be3
commit
ae87e88c52
8
blk/522
8
blk/522
@ -1,16 +1,16 @@
|
||||
: _g ( given a top-left of dot-X in BLK(, spit 5 bin lines )
|
||||
5 0 DO
|
||||
0 3 0 DO ( a r )
|
||||
2 *
|
||||
1 LSHIFT
|
||||
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 )
|
||||
( u ) 0 DO ( a )
|
||||
DUP I 3 * + _g
|
||||
LOOP ;
|
||||
: CPFNT3x5
|
||||
0 , 0 , 0 C, ( space char )
|
||||
530 BLK@ BLK( 21 _l 320 + 21 _l 320 + 21 _l ( 63 )
|
||||
531 BLK@ BLK( 21 _l 320 + 10 _l ( 94! )
|
||||
530 BLK@ BLK( 21 _l 320 + 21 _l 320 + 21 _l DROP ( 63 )
|
||||
531 BLK@ BLK( 21 _l 320 + 10 _l DROP ( 94! )
|
||||
;
|
||||
|
||||
|
16
blk/523
Normal file
16
blk/523
Normal 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! )
|
||||
;
|
||||
|
4
blk/524
4
blk/524
@ -10,6 +10,6 @@
|
||||
LOOP ;
|
||||
: CPFNT7x7
|
||||
0 , 0 , 0 , 0 C, ( space char )
|
||||
541 536 DO I BLK@ BLK( 9 _l 448 + 9 _l LOOP ( 90 )
|
||||
542 BLK@ BLK( 4 _l ( 94! )
|
||||
541 536 DO I BLK@ BLK( 9 _l 448 + 9 _l DROP LOOP ( 90 )
|
||||
542 BLK@ BLK( 4 _l DROP ( 94! )
|
||||
;
|
||||
|
32
blk/532
32
blk/532
@ -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
15
blk/533
Normal 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
15
blk/534
Normal 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
15
blk/535
Normal 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{|}~
|
Loading…
Reference in New Issue
Block a user