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

Detect line types

This commit is contained in:
Devine Lu Linvega 2024-02-06 10:10:38 -08:00
parent 84a85513a6
commit a6893f40fb
1 changed files with 51 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
gui/shavian/shavian.tal
View File

@ -1,8 +1,12 @@
|00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1 |00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1 |10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 |20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|0000
@id $2
@buf $40
|0100 |0100
@on-reset ( -> ) @on-reset ( -> )
@ -13,6 +17,51 @@
BRK BRK
@on-console ( -> ) @on-console ( -> )
.Console/read DEI #18 DEO .Console/read DEI
( linebreak ) DUP #0a NEQ ?{ POP parse-line BRK }
( append ) #00 ;buf scap/ STA2
BRK BRK
@parse-line ( -- )
;buf is-pixels ?new-pixels
( >> )
@new-glyph ( -- )
.id LDZ2 <phex>
#2018 DEO
;buf <pstr>
#0a18 DEO
( clean ) #0000 ;buf STA2
.id LDZ2 INC2 .id STZ2
JMP2r
@new-pixels ( -- )
( clean ) #0000 ;buf STA2
JMP2r
@is-pixels ( buf* -- f )
LDA DUP [ LIT "0 ] EQU SWP [ LIT "1 ] EQU ORA JMP2r
(
@|stdlib )
@scap ( str* -- end* )
INC2 & LDAk ?scap
JMP2r
@<pstr> ( str* -- )
LDAk #18 DEO
INC2 & LDAk ?<pstr>
POP2 JMP2r
@<phex> ( short* -- )
SWP <phex>/b
&b ( -- )
DUP #04 SFT <phex>/c
&c ( -- )
#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO
JMP2r
@glyphs