diff --git a/7x14.icn b/7x14.icn new file mode 100644 index 0000000..4c5478d Binary files /dev/null and b/7x14.icn differ diff --git a/etc/cream12.uf2 b/etc/cream12.uf2 index abf46e3..9ef04e3 100644 Binary files a/etc/cream12.uf2 and b/etc/cream12.uf2 differ diff --git a/etc/shavian7x14.icn b/etc/shavian7x14.icn new file mode 100644 index 0000000..d2c2da2 Binary files /dev/null and b/etc/shavian7x14.icn differ diff --git a/src/assets.tal b/src/assets.tal index 4c0d20b..8c03e4e 100644 --- a/src/assets.tal +++ b/src/assets.tal @@ -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 diff --git a/src/left.tal b/src/left.tal index 29efbeb..8f7a747 100644 --- a/src/left.tal +++ b/src/left.tal @@ -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 diff --git a/untitled.txt b/untitled.txt index b7a4c2b..02f203c 100644 --- a/untitled.txt +++ b/untitled.txt @@ -62,6 +62,9 @@ pqrstuvwxyz{|}~ INC2 INC2r GTH2k ?&l POP2 POP2 POPr update-nav !reqdraw-textarea +๐‘‘ ยท๐‘–๐‘ป๐‘ค๐‘ช๐‘’ ๐‘ฃ๐‘ด๐‘ฅ๐‘Ÿ ๐‘–๐‘ฐ ๐‘ฆ๐‘Ÿ ๐‘ท๐‘ค๐‘ข๐‘ฑ๐‘Ÿ ๐‘ž ๐‘ข๐‘ซ๐‘ฅ๐‘ฉ๐‘ฏ. +๐‘ฒ ๐‘ฃ๐‘จ๐‘ ๐‘•๐‘ง๐‘ค๐‘›๐‘ฉ๐‘ฅ ๐‘ฃ๐‘ป๐‘› ๐‘ฃ๐‘ฆ๐‘ฅ ๐‘ฅ๐‘ง๐‘ฏ๐‘–๐‘ฉ๐‘ฏ ๐‘ฃ๐‘ป ๐‘ณ๐‘ฏ๐‘›๐‘ผ ๐‘ง๐‘ฏ๐‘ฆ ๐‘ณ๐‘ž๐‘ผ ๐‘ฏ๐‘ฑ๐‘ฅ. + (LETREC main (main ฮป (INPUT) (print-line (fib INPUT))