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

(icnsix) Working copy

This commit is contained in:
neauoire 2023-10-28 20:39:23 -07:00
parent 2c237005d3
commit e53a86d98b
1 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
gui/sixels/icnsix.tal
View File

@ -46,15 +46,31 @@
STH2k STH2k
#00 ;img/width LDA #30 SFT2 #0000 #00 ;img/width LDA #30 SFT2 #0000
&w ( -- ) &w ( -- )
DUP2 STH2kr get-pixel phex/b #2018 DEO ( DUP2 phex #2018 DEO
STH2kr phex #2018 DEO )
DUP2 STH2kr get-sixel #18 DEO
( #0a18 DEO )
INC2 GTH2k ?&w INC2 GTH2k ?&w
POP2 POP2 POP2 POP2 POP2r
POP2r [ LIT "- ] #18 DEO
INC2 GTH2k ?&v #0006 ADD2 GTH2k ?&v
POP2 POP2 POP2 POP2
JMP2r JMP2r
@get-sixel ( x* y* -- byte )
SWP2 ,&x STR2
[ LITr 00 ]
DUP2 #0006 ADD2 SWP2
&l ( -- )
[ LITr 10 ] SFTr
[ LIT2 &x $2 ] OVR2 get-pixel STH ORAr
INC2 GTH2k ?&l
POP2 POP2
STHr [ LIT "? ] ADD
JMP2r
@get-row ( x* y* -- row* ) @get-row ( x* y* -- row* )
STH2k STH2k
( ) #03 SFT2 SWP2 ( ) #03 SFT2 SWP2