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

(sixels) Housekeeping

This commit is contained in:
neauoire 2023-10-19 15:45:58 -04:00
parent 1e91ea41eb
commit 027a9d445b
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gui/sixels/sixels.tal
View File

@ -9,14 +9,20 @@
#f0b2 .System/b DEO2
#0020 DUP2 .Screen/x DEO2
.Screen/y DEO2
;sample <draw-sixel>
#0050 DUP2 .Screen/width DEO2
.Screen/height DEO2
( | begin )
;sample <draw-sixels>
BRK
@<draw-sixel> ( data* -- )
@<draw-sixels> ( data* -- )
[ LIT2 02 -Screen/auto ] DEO
.Screen/x DEI2 ,&anchor STR2
&w ( -- )
LDAk [ LIT "- ] EQU ?&line-feed
LDAk [ LIT "- ] NEQ ?{
[ LIT2 &anchor $2 ] .Screen/x DEO2
.Screen/y DEI2k #0006 ADD2 ROT DEO2
!& }
LDAk [ LIT "? ] SUB ,&t STR
#0600
&l ( -- )
@ -28,10 +34,6 @@
.Screen/y DEI2k #0006 SUB2 ROT DEO2
& INC2 LDAk ?&w
POP2 JMP2r
&line-feed ( data* -- next-data* )
[ LIT2 &anchor $2 ] .Screen/x DEO2
.Screen/y DEI2k #0006 ADD2 ROT DEO2
!&
@sample [ "???owYn||~ywo??-?IRJaVNn^NVbJRI $1 ]