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

Function to draw special characters

This commit is contained in:
Devine Lu Linvega 2024-03-08 20:39:32 -08:00
parent 93320946b4
commit 434ba5077f
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/assets.tal
View File

@ -30,6 +30,8 @@
@linebreak-icn [ @linebreak-icn [
0000 0000 0000 1028 1000 0000 0000 0000 0000 0000 0000 1028 1000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 ] 0000 0000 0000 0000 0000 0000 0000 0000 ]
@dotdot-icn [
0000 0000 0000 0000 0000 0048 0000 0000 ]
@checkered-icn [ @checkered-icn [
aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 ] aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 ]
@blinker-icn [ @blinker-icn [

12
src/left.tal
View File

@ -1224,6 +1224,13 @@
POP2 STH2r ADD2 .Screen/x DEO2 POP2 STH2r ADD2 .Screen/x DEO2
JMP2r JMP2r
@<draw-short-glyph> ( length* addr* -- )
.Screen/addr DEO2
.Screen/x DEI2
( ) ;<draw-utf8-glyph>/color LDA .Screen/sprite DEO
ADD2 .Screen/x DEO2
JMP2r
@<draw-navbar> ( -- ) @<draw-navbar> ( -- )
( | clear ) ( | clear )
#0090 .Screen/x DEO2 #0090 .Screen/x DEO2
@ -1299,10 +1306,7 @@
( | rewind ) ( | rewind )
find-prev-spacer LDA2k [ LIT2 "@| ] NEQ2 ?{ INC2 INC2 } find-prev-spacer LDA2k [ LIT2 "@| ] NEQ2 ?{ INC2 INC2 }
&>w ( -- ) &>w ( -- )
.Screen/x DEI2 #007c LTH2 ?{ .Screen/x DEI2 #007c LTH2 ?{ #0006 ;dotdot-icn <draw-short-glyph>
;<draw-utf8-glyph>/color LDA ;<draw-chr>/color STA
[ LIT2 ".. ] <draw-chr>
<draw-chr>
!&end } !&end }
<draw-utf8-glyph> <draw-utf8-glyph>
next-glyph LDAk #20 GTH ?&>w next-glyph LDAk #20 GTH ?&>w