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

Housekeeping

This commit is contained in:
Devine Lu Linvega 2024-02-11 11:45:51 -08:00
parent 0cc2e70c1b
commit b2cfc76267
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gui/shaviankb/shaviankb.tal
View File

@ -172,11 +172,6 @@
[ LIT2 &color 03 -Screen/sprite ] DEOk DEOk DEOk DEO [ LIT2 &color 03 -Screen/sprite ] DEOk DEOk DEOk DEO
JMP2r JMP2r
@<draw-times> ( color times -- )
OVR .Screen/sprite DEO
INC DUP ?<draw-times>
POP2 JMP2r
@<draw-frame> ( x* y* w h sprite* -- ) @<draw-frame> ( x* y* w h sprite* -- )
.Screen/addr DEO2 .Screen/addr DEO2
,&h STR ,&h STR
@ -205,14 +200,17 @@
,&w LDR <draw-frame>/repeat ,&w LDR <draw-frame>/repeat
<draw-frame>/next <draw-frame>/next
[ LIT2 81 -Screen/sprite ] DEO [ LIT2 81 -Screen/sprite ] DEO
( fill ) <draw-frame>/next
,&x LDR2 #0008 ADD2 .Screen/x DEO2 ,&x LDR2 #0008 ADD2 .Screen/x DEO2
,&y LDR2 #0008 ADD2 .Screen/y DEO2 ,&y LDR2 #0008 ADD2 .Screen/y DEO2
JMP2r JMP2r
&next .Screen/addr DEI2k #0010 ADD2 ROT DEO2 &next .Screen/addr DEI2k #0010 ADD2 ROT DEO2
JMP2r JMP2r
&repeat #00 &repeat-loop [ LIT2 81 -Screen/sprite ] DEO &repeat #8100 ROT SUB
INC GTHk ?&repeat-loop ( >> )
@<draw-times> ( color times -- )
OVR .Screen/sprite DEO
INC DUP ?<draw-times>
POP2 JMP2r POP2 JMP2r
@<update-pointer> ( color addr* -- ) @<update-pointer> ( color addr* -- )