neauoire
/
left
mirror of https://git.sr.ht/~rabbits/left
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Added shavian alphabet support

This commit is contained in:
Devine Lu Linvega 2024-02-08 16:44:57 -08:00
parent c7cfb99841
commit 484d8eaeb8
6 changed files with 58 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
7x14.icn Normal file
View File

Binary file not shown.

BIN
etc/cream12.uf2
View File

Binary file not shown.

BIN
etc/shavian7x14.icn Normal file
View File

Binary file not shown.

52
src/assets.tal
View File

@ -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

3
src/left.tal
View File

@ -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

3
untitled.txt
View File

@ -62,6 +62,9 @@ pqrstuvwxyz{|}~
INC2 INC2r GTH2k ?&l
POP2 POP2 POPr update-nav !reqdraw-textarea
𐑑 ·𐑖𐑻𐑤𐑪𐑒 𐑣𐑴𐑥𐑟 𐑖𐑰 𐑦𐑟 𐑷𐑤𐑢𐑱𐑟 𐑞 𐑢𐑫𐑥𐑩𐑯.
𐑲 𐑣𐑨𐑝 𐑕𐑧𐑤𐑛𐑩𐑥 𐑣𐑻𐑛 𐑣𐑦𐑥 𐑥𐑧𐑯𐑖𐑩𐑯 𐑣𐑻 𐑳𐑯𐑛𐑼 𐑧𐑯𐑦 𐑳𐑞𐑼 𐑯𐑱𐑥.
(LETREC main
(main λ (INPUT)
(print-line (fib INPUT))