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

Returned fill

This commit is contained in:
Devine Lu Linvega 2024-07-24 14:49:30 -07:00
parent 73533c0cc8
commit e4824b3048
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gui/teatime/teatime.tal
View File

@ -69,7 +69,7 @@
JMP2r
@<set-height> ( distance* -- )
#20 SFT2
#00f0 SWP2 SUB2 #02 SFT2 #001f MUL2
@<set-seconds> ( seconds* -- )
DUP2 .remaining-seconds LDZ2 EQU2 ?{ .remaining-seconds STZ2 !<redraw-bar> }
@ -140,17 +140,14 @@
( >> )
@<draw-bar> ( -- )
#0010 .Screen/x DEO2
.remaining-seconds LDZ2 #02 SFT2 #0010 ADD2 .Screen/y DEO2
( y2 ) .Screen/height DEI2 #0010 SUB2
( y1 ) #0100 .remaining-seconds LDZ2 #001f DIV2 #20 SFT2 SUB2
( | paint )
[ LIT2 32 -Screen/auto ] DEO
;line-icn .Screen/addr DEO2
#85 .Screen/sprite DEO
JMP2r
#0010 .Screen/x DEO2
( | all )
[ LIT2 32 -Screen/auto ] DEO
;line-icn .Screen/addr DEO2
[ LIT2r 0a -Screen/sprite ] .height LDZ2 #0010 ADD2 #0110 SWP2 SUB2 #0010
( | fill )
[ LIT2r 05 -Screen/sprite ]
&>l ( -- )
DUP2 .Screen/y DEO2
DEOkr