mirror of https://git.sr.ht/~rabbits/left
Added shavian alphabet support
This commit is contained in:
parent
c7cfb99841
commit
484d8eaeb8
BIN
etc/cream12.uf2
BIN
etc/cream12.uf2
Binary file not shown.
Binary file not shown.
|
@ -17,6 +17,8 @@
|
|||
070f 0f0f 0f0f 0f0f 0f0f 0f0f 0f0f 0f0f ]
|
||||
@cat-icn [
|
||||
0000 ff81 81ff 81ff 0000 ff81 81ff ffff ]
|
||||
@dot-icn [
|
||||
0000 0000 0000 0018 1800 0000 0000 0000 ]
|
||||
@bubble-icn
|
||||
[ 0000 0000 0008 1c3e ]
|
||||
@tab-icn [
|
||||
|
@ -254,6 +256,56 @@ aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 0000 0000 0000 0000 0000 0000 0000 0000
|
|||
0000 2010 1010 1008 1010 1010 2000 0000
|
||||
0000 0034 5800 0000 0000 0000 0000 0000
|
||||
|
||||
@shavian ( 7x14 ) [
|
||||
0000 0060 1008 0808 0808 0808 0000 0000
|
||||
0000 0008 1868 0808 0808 0808 0000 0000
|
||||
0000 0004 0404 3c40 4040 403c 0000 0000
|
||||
0000 0008 0808 0808 0808 1060 0000 0000
|
||||
0000 0060 1008 3844 8484 8870 0000 0000
|
||||
0000 0038 4440 2010 0804 4438 0000 0000
|
||||
0000 0008 1020 2040 4040 4438 0000 0000
|
||||
0000 0008 10e0 2040 4040 4438 0000 0000
|
||||
0000 0040 4020 2010 1008 0804 0000 0000
|
||||
0000 0030 4848 4848 4848 30cc 0000 0000
|
||||
0000 0000 0000 2020 2020 2020 2010 0c00
|
||||
0000 0000 0000 4040 4040 4040 5860 4000
|
||||
0000 0000 0000 7804 0404 0478 4040 4000
|
||||
0000 0000 0000 1820 4040 4040 4040 4000
|
||||
0000 0000 0000 3844 8484 8870 4020 1800
|
||||
0000 0000 0000 3844 0408 1020 4044 3800
|
||||
0000 0000 0000 3844 0404 0408 0810 2000
|
||||
0000 0000 0000 3844 0404 0408 0e10 2000
|
||||
0000 0000 0000 0408 0810 1020 2040 4000
|
||||
0000 0000 0000 cc30 4848 4848 4848 3000
|
||||
0000 0000 0000 3840 4040 4038 0000 0000
|
||||
0000 0000 0000 0c10 1010 1060 0000 0000
|
||||
0000 0000 0000 1010 1010 1010 0000 0000
|
||||
0000 0000 0000 4040 4040 201c 0000 0000
|
||||
0000 0000 0000 0404 0404 0870 0000 0000
|
||||
0000 0000 0000 1c20 4040 4040 0000 0000
|
||||
0000 0000 0000 7008 0404 0404 0000 0000
|
||||
0000 0000 0000 4444 2828 1010 0000 0000
|
||||
0000 0000 0000 0810 6010 1008 0000 0000
|
||||
0000 0000 0000 1c20 2018 0870 0000 0000
|
||||
0000 0000 0000 3804 0404 0438 0000 0000
|
||||
0000 0000 0000 6010 1010 100c 0000 0000
|
||||
0000 0000 0000 404c 5464 0404 0000 0000
|
||||
0000 0000 0000 7c40 4040 201c 0000 0000
|
||||
0000 0000 0000 7c04 0404 0870 0000 0000
|
||||
0000 0000 0000 7c08 1010 2020 0000 0000
|
||||
0000 0000 0000 3844 4444 4438 0000 0000
|
||||
0000 0000 0000 1010 2828 4444 0000 0000
|
||||
0000 0000 0000 2010 0c10 1020 0000 0000
|
||||
0000 0000 0000 7008 0830 201c 0000 0000
|
||||
0000 0000 0000 3c42 4232 12e4 0000 0000
|
||||
0000 0000 0000 cc22 22c2 8478 0000 0000
|
||||
0000 0000 0000 1c22 2272 8264 0000 0000
|
||||
0000 0000 0000 6482 7222 221c 0000 0000
|
||||
0000 0000 0000 3c42 8282 828c 0000 0000
|
||||
0000 0000 0000 bcc2 8282 829c 0000 0000
|
||||
0000 0000 0000 4e50 6040 4040 0000 0000
|
||||
0000 0080 8080 4848 5454 2222 0000 0000 ]
|
||||
|
||||
@appicon ( 3x3 ) [
|
||||
0000 0000 0000 0000 0000 0000 0000 0000 0008 0808 4838 1808 0814 14d4 b444 2414
|
||||
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0307 070f 0000 0003 0408 0810
|
||||
|
|
|
@ -868,6 +868,7 @@
|
|||
&fixed #0007 JMP2r
|
||||
&high ( -- width* )
|
||||
LDA2k #cebb NEQ2 ?{ #000a JMP2r }
|
||||
LDA2k #f090 NEQ2 ?{ #0007 JMP2r }
|
||||
&rune ( -- width* )
|
||||
#0008 JMP2r
|
||||
|
||||
|
@ -879,6 +880,8 @@
|
|||
.state/rune LDZ ?&rune
|
||||
LDAk #20 SUB #00 SWP #50 SFT2 ;font/glyphs ADD2 JMP2r
|
||||
&high ( -- glyph* )
|
||||
LDA2k #f090 NEQ2 ?{ INC2k INC2 LDA2 #9190 SUB2 #40 SFT2 ;shavian ADD2 JMP2r }
|
||||
LDA2k #c2b7 NEQ2 ?{ ;dot-icn JMP2r }
|
||||
LDA2k #cebb NEQ2 ?{ ;lambda-icn JMP2r }
|
||||
&invisible ( -- glyph* )
|
||||
LDAk #0a EQU ?&lb
|
||||
|
|
|
@ -62,6 +62,9 @@ pqrstuvwxyz{|}~
|
|||
INC2 INC2r GTH2k ?&l
|
||||
POP2 POP2 POPr update-nav !reqdraw-textarea
|
||||
|
||||
𐑑 ·𐑖𐑻𐑤𐑪𐑒 𐑣𐑴𐑥𐑟 𐑖𐑰 𐑦𐑟 𐑷𐑤𐑢𐑱𐑟 𐑞 𐑢𐑫𐑥𐑩𐑯.
|
||||
𐑲 𐑣𐑨𐑝 𐑕𐑧𐑤𐑛𐑩𐑥 𐑣𐑻𐑛 𐑣𐑦𐑥 𐑥𐑧𐑯𐑖𐑩𐑯 𐑣𐑻 𐑳𐑯𐑛𐑼 𐑧𐑯𐑦 𐑳𐑞𐑼 𐑯𐑱𐑥.
|
||||
|
||||
(LETREC main
|
||||
(main λ (INPUT)
|
||||
(print-line (fib INPUT))
|
||||
|
|
Loading…
Reference in New Issue