diff --git a/blk/522 b/blk/522 index bdb2605..7049c01 100644 --- a/blk/522 +++ b/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! ) ; diff --git a/blk/523 b/blk/523 new file mode 100644 index 0000000..4f5bec3 --- /dev/null +++ b/blk/523 @@ -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! ) +; + diff --git a/blk/524 b/blk/524 index a60ee5c..b4bb0f8 100644 --- a/blk/524 +++ b/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! ) ; diff --git a/blk/532 b/blk/532 index fa7dc69..589729d 100644 --- a/blk/532 +++ b/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 diff --git a/blk/533 b/blk/533 new file mode 100644 index 0000000..a74f57f --- /dev/null +++ b/blk/533 @@ -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 diff --git a/blk/534 b/blk/534 new file mode 100644 index 0000000..a03f060 --- /dev/null +++ b/blk/534 @@ -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 diff --git a/blk/535 b/blk/535 new file mode 100644 index 0000000..48f71ad --- /dev/null +++ b/blk/535 @@ -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{|}~