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 [
0000 0000 0000 1028 1000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 ]
@dotdot-icn [
0000 0000 0000 0000 0000 0048 0000 0000 ]
@checkered-icn [
aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 ]
@blinker-icn [

12
src/left.tal
View File

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