Monorepo for Aesthetic.Computer aesthetic.computer
at main 108 lines 4.9 kB view raw
1;;; Font bitmap data — 6x10 BDF font (Misc-Fixed-Medium-R-Normal--10) 2;;; 95 printable ASCII chars (32-126), each 10 rows, 6px wide (MSB-first in byte) 3 4(in-package :ac-native.font) 5 6(defconstant +font-w+ 6) 7(defconstant +font-h+ 10) 8 9(defvar *font-6x10* 10 (make-array '(95 10) 11 :element-type '(unsigned-byte 8) 12 :initial-contents 13 '((0 0 0 0 0 0 0 0 0 0) ; SPC (32) 14 (0 32 32 32 32 32 0 32 0 0) ; ! (33) 15 (0 80 80 80 0 0 0 0 0 0) ; " (34) 16 (0 80 80 248 80 248 80 80 0 0) ; # (35) 17 (0 32 112 160 112 40 112 32 0 0) ; $ (36) 18 (0 72 168 80 32 80 168 144 0 0) ; % (37) 19 (0 64 160 160 64 168 144 104 0 0) ; & (38) 20 (0 32 32 32 0 0 0 0 0 0) ; ' (39) 21 (0 16 32 64 64 64 32 16 0 0) ; ( (40) 22 (0 64 32 16 16 16 32 64 0 0) ; ) (41) 23 (0 0 136 80 248 80 136 0 0 0) ; * (42) 24 (0 0 32 32 248 32 32 0 0 0) ; + (43) 25 (0 0 0 0 0 0 48 32 64 0) ; , (44) 26 (0 0 0 0 248 0 0 0 0 0) ; - (45) 27 (0 0 0 0 0 0 32 112 32 0) ; . (46) 28 (0 8 8 16 32 64 128 128 0 0) ; / (47) 29 (0 32 80 136 136 136 80 32 0 0) ; 0 (48) 30 (0 32 96 160 32 32 32 248 0 0) ; 1 (49) 31 (0 112 136 8 48 64 128 248 0 0) ; 2 (50) 32 (0 248 8 16 48 8 136 112 0 0) ; 3 (51) 33 (0 16 48 80 144 248 16 16 0 0) ; 4 (52) 34 (0 248 128 176 200 8 136 112 0 0) ; 5 (53) 35 (0 48 64 128 176 200 136 112 0 0) ; 6 (54) 36 (0 248 8 16 16 32 64 64 0 0) ; 7 (55) 37 (0 112 136 136 112 136 136 112 0 0) ; 8 (56) 38 (0 112 136 152 104 8 16 96 0 0) ; 9 (57) 39 (0 0 32 112 32 0 32 112 32 0) ; : (58) 40 (0 0 32 112 32 0 48 32 64 0) ; (59) 41 (0 8 16 32 64 32 16 8 0 0) ; < (60) 42 (0 0 0 248 0 248 0 0 0 0) ; = (61) 43 (0 64 32 16 8 16 32 64 0 0) ; > (62) 44 (0 112 136 16 32 32 0 32 0 0) ; ? (63) 45 (0 112 136 152 168 176 128 112 0 0) ; @ (64) 46 (0 32 80 136 136 248 136 136 0 0) ; A (65) 47 (0 240 72 72 112 72 72 240 0 0) ; B (66) 48 (0 112 136 128 128 128 136 112 0 0) ; C (67) 49 (0 240 72 72 72 72 72 240 0 0) ; D (68) 50 (0 248 128 128 240 128 128 248 0 0) ; E (69) 51 (0 248 128 128 240 128 128 128 0 0) ; F (70) 52 (0 112 136 128 128 152 136 112 0 0) ; G (71) 53 (0 136 136 136 248 136 136 136 0 0) ; H (72) 54 (0 112 32 32 32 32 32 112 0 0) ; I (73) 55 (0 56 16 16 16 16 144 96 0 0) ; J (74) 56 (0 136 144 160 192 160 144 136 0 0) ; K (75) 57 (0 128 128 128 128 128 128 248 0 0) ; L (76) 58 (0 136 136 216 168 136 136 136 0 0) ; M (77) 59 (0 136 136 200 168 152 136 136 0 0) ; N (78) 60 (0 112 136 136 136 136 136 112 0 0) ; O (79) 61 (0 240 136 136 240 128 128 128 0 0) ; P (80) 62 (0 112 136 136 136 136 168 112 8 0) ; Q (81) 63 (0 240 136 136 240 160 144 136 0 0) ; R (82) 64 (0 112 136 128 112 8 136 112 0 0) ; S (83) 65 (0 248 32 32 32 32 32 32 0 0) ; T (84) 66 (0 136 136 136 136 136 136 112 0 0) ; U (85) 67 (0 136 136 136 80 80 80 32 0 0) ; V (86) 68 (0 136 136 136 168 168 216 136 0 0) ; W (87) 69 (0 136 136 80 32 80 136 136 0 0) ; X (88) 70 (0 136 136 80 32 32 32 32 0 0) ; Y (89) 71 (0 248 8 16 32 64 128 248 0 0) ; Z (90) 72 (0 112 64 64 64 64 64 112 0 0) ; [ (91) 73 (0 128 128 64 32 16 8 8 0 0) ; \ (92) 74 (0 112 16 16 16 16 16 112 0 0) ; ] (93) 75 (0 32 80 136 0 0 0 0 0 0) ; ^ (94) 76 (0 0 0 0 0 0 0 0 248 0) ; _ (95) 77 (32 16 0 0 0 0 0 0 0 0) ; ` (96) 78 (0 0 0 112 8 120 136 120 0 0) ; a (97) 79 (0 128 128 176 200 136 200 176 0 0) ; b (98) 80 (0 0 0 112 136 128 136 112 0 0) ; c (99) 81 (0 8 8 104 152 136 152 104 0 0) ; d (100) 82 (0 0 0 112 136 248 128 112 0 0) ; e (101) 83 (0 48 72 64 240 64 64 64 0 0) ; f (102) 84 (0 0 0 120 136 136 120 8 136 112) ; g (103) 85 (0 128 128 176 200 136 136 136 0 0) ; h (104) 86 (0 32 0 96 32 32 32 112 0 0) ; i (105) 87 (0 8 0 24 8 8 8 72 72 48) ; j (106) 88 (0 128 128 136 144 224 144 136 0 0) ; k (107) 89 (0 96 32 32 32 32 32 112 0 0) ; l (108) 90 (0 0 0 208 168 168 168 136 0 0) ; m (109) 91 (0 0 0 176 200 136 136 136 0 0) ; n (110) 92 (0 0 0 112 136 136 136 112 0 0) ; o (111) 93 (0 0 0 176 200 136 200 176 128 128) ; p (112) 94 (0 0 0 104 152 136 152 104 8 8) ; q (113) 95 (0 0 0 176 200 128 128 128 0 0) ; r (114) 96 (0 0 0 112 128 112 8 240 0 0) ; s (115) 97 (0 64 64 240 64 64 72 48 0 0) ; t (116) 98 (0 0 0 136 136 136 152 104 0 0) ; u (117) 99 (0 0 0 136 136 80 80 32 0 0) ; v (118) 100 (0 0 0 136 136 168 168 80 0 0) ; w (119) 101 (0 0 0 136 80 32 80 136 0 0) ; x (120) 102 (0 0 0 136 136 152 104 8 136 112) ; y (121) 103 (0 0 0 248 16 32 64 248 0 0) ; z (122) 104 (0 24 32 16 96 16 32 24 0 0) ; { (123) 105 (0 32 32 32 32 32 32 32 0 0) ; | (124) 106 (0 96 16 32 24 32 16 96 0 0) ; } (125) 107 (0 72 168 144 0 0 0 0 0 0) ; ~ (126) 108 )))