d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Drawing result

This commit is contained in:
Devine Lu Linvega 2024-02-06 10:34:00 -08:00
parent 98323fa693
commit 2e99a7604c
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gui/shavian/shavian.tal
View File

@ -41,15 +41,24 @@
JMP2r
@new-pixels ( -- )
#ff .id LDZ2 #40 SFT2 ;glyphs ADD2 [ LIT2 &row $2 ] INC2k ,&row STR2
;buf parse-pixels .id LDZ2 #40 SFT2 ;glyphs ADD2 [ LIT2 &row $2 ] INC2k ,&row STR2
ADD2 STA
( clean ) #0000 ;buf STA2
JMP2r
@parse-pixels ( line* -- icn )
[ LITr 00 ] DUP2
&w ( -- )
LDAk [ LIT "0 ] EQU ?{
[ LITr 01 ] ORAr }
[ LITr 10 ] SFTr INC2 LDAk ?&w
POP2 STHr JMP2r
@is-pixels ( buf* -- f )
LDA DUP [ LIT "0 ] EQU SWP [ LIT "1 ] EQU ORA JMP2r
@<draw-glyph> ( id* -- )
DUP2 #ffff NEQ2 ?{ POP2 JMP2r }
#40 SFT2 ;glyphs ADD2 .Screen/addr DEO2
#07 .Screen/sprite DEO
JMP2r