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

Save output

This commit is contained in:
Devine Lu Linvega 2024-02-06 11:42:07 -08:00
parent b9cd9bedf5
commit 03933fdbcf
4 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
gui/shavian/6x13.icn Normal file
View File

Binary file not shown.

BIN
gui/shavian/7x14.icn Normal file
View File

Binary file not shown.

3
gui/shavian/build.sh
View File

@ -23,5 +23,6 @@ then
cp $DST $CPY cp $DST $CPY
fi fi
cat 6x13.txt | $EMU $DST cat 6x13.txt | $EMU $DST > 6x13.icn
cat 7x14.txt | $EMU $DST > 7x14.icn

10
gui/shavian/shavian.tal
View File

@ -1,3 +1,5 @@
( cat in.txt | uxnemu shavian.rom > out.icn )
|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
@ -26,7 +28,7 @@
.Console/read DEI .Console/read DEI
( linebreak ) DUP #0a NEQ ?{ POP parse-line BRK } ( linebreak ) DUP #0a NEQ ?{ POP parse-line BRK }
( append ) #00 ;buf scap/ STA2 ( append ) #00 ;buf scap/ STA2
( #010e DEO ) BRK BRK
@parse-line ( -- ) @parse-line ( -- )
;buf LDA DUP [ LIT "0 ] EQU SWP [ LIT "1 ] EQU ORA ?new-pixels ;buf LDA DUP [ LIT "0 ] EQU SWP [ LIT "1 ] EQU ORA ?new-pixels
@ -36,12 +38,14 @@
( clean ) #0000 ;buf STA2 ( clean ) #0000 ;buf STA2
.id LDZ2 <draw-glyph> .id LDZ2 <draw-glyph>
.id LDZ2 INC2 .id STZ2 .id LDZ2 INC2 .id STZ2
#0002 ;new-pixels/row STA2 #0003 ;new-pixels/row STA2
JMP2r JMP2r
@new-pixels ( -- ) @new-pixels ( -- )
;buf parse-pixels .id LDZ2 #40 SFT2 ;glyphs ADD2 [ LIT2 &row 0002 ] INC2k ,&row STR2 ;buf parse-pixels
( store ) DUP .id LDZ2 #40 SFT2 ;glyphs ADD2 [ LIT2 &row 0003 ] INC2k ,&row STR2
ADD2 STA ADD2 STA
( output ) #18 DEO
( clean ) #0000 ;buf STA2 ( clean ) #0000 ;buf STA2
JMP2r JMP2r