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

Cleanuo

This commit is contained in:
Devine Lu Linvega 2024-07-24 12:02:59 -07:00
parent e224acb8a6
commit 48be8013cd
1 changed files with 10 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
gui/teatime/teatime.tal
View File

@ -9,7 +9,6 @@
|000 |000
@remaining-seconds $2 @remaining-seconds $2
@last-second $1
@height $2 @height $2
|100 |100
@ -40,9 +39,7 @@
[ LIT2 40 &f $1 ] INCk ,&f STR [ LIT2 40 &f $1 ] INCk ,&f STR
NEQ ?{ NEQ ?{
[ LIT2 00 _&f ] STR [ LIT2 00 _&f ] STR
DUP2 #0001 SUB2 DUP2 .remaining-seconds STZ2 DUP2 #0001 SUB2 <set-seconds> }
#0007 DIV2 .height STZ2
<redraw-bar> }
POP2 BRK POP2 BRK
@on-mouse ( -> ) @on-mouse ( -> )
@ -68,6 +65,11 @@
#c0 ;on-frame-freeze/lock STA #c0 ;on-frame-freeze/lock STA
JMP2r JMP2r
@<set-seconds> ( seconds* -- )
DUP2 .remaining-seconds STZ2
#0007 DIV2 .height STZ2
JMP2r
@<set-distance> ( distance* -- ) @<set-distance> ( distance* -- )
DUP2 .height EQU2k ?{ DUP2 .height EQU2k ?{
STZ2 STZ2
@ -79,9 +81,6 @@
@<redraw> ( -- ) @<redraw> ( -- )
<redraw-bar> <redraw-bar>
( >> )
@<draw-background> ( -- )
( | markers ) ( | markers )
;tick-icn .Screen/addr DEO2 ;tick-icn .Screen/addr DEO2
[ LIT2 f1 -Screen/auto ] DEO [ LIT2 f1 -Screen/auto ] DEO
@ -97,19 +96,19 @@
#000c .Screen/y DEO2 #000c .Screen/y DEO2
[ LIT2 02 -Screen/auto ] DEO [ LIT2 02 -Screen/auto ] DEO
[ LIT2r =label-tilemap ] #1f00 [ LIT2r =label-tilemap ] #1f00
&>w ( -- ) &>l ( -- )
LDAkr #00 STHr INC2r ;digits ADD2 .Screen/addr DEO2 LDAkr #00 STHr INC2r ;digits ADD2 .Screen/addr DEO2
[ LIT2 05 -Screen/sprite ] DEO [ LIT2 05 -Screen/sprite ] DEO
INC GTHk ?&>w INC GTHk ?&>l
POP2 POP2
( | labels, cont ) ( | labels, cont )
#0040 .Screen/x DEO2 #0040 .Screen/x DEO2
#000c .Screen/y DEO2 #000c .Screen/y DEO2
#1f00 #1f00
&>w2 ( -- ) &>ll ( -- )
LDAkr #00 STHr INC2r ;digits ADD2 .Screen/addr DEO2 LDAkr #00 STHr INC2r ;digits ADD2 .Screen/addr DEO2
[ LIT2 05 -Screen/sprite ] DEO [ LIT2 05 -Screen/sprite ] DEO
INC GTHk ?&>w2 INC GTHk ?&>ll
POP2 POP2r JMP2r POP2 POP2r JMP2r
@<redraw-bar> ( -- ) @<redraw-bar> ( -- )
@ -167,18 +166,11 @@
( (
@|assets ) @|assets )
@pointer-icn [ 80c0 e0f0 f8e0 1000 ]
&drag [ c381 0000 0000 81c3 ]
@hand-icn [ 4040 787c fcfc 7c38 ] @hand-icn [ 4040 787c fcfc 7c38 ]
&down [ 0000 787c fcfc 7c38 ] &down [ 0000 787c fcfc 7c38 ]
@arrow-icn [ 80c0 e0f0 f8fc f0c0 ]
@tick-icn [ 7e00 0000 7000 0000 ] @tick-icn [ 7e00 0000 7000 0000 ]
@blank-icn [ 0000 0000 0000 0000 ]
@fill-icn [ ffff ffff ffff ffff ] @fill-icn [ ffff ffff ffff ffff ]
@line-icn [ ff00 0000 0000 0000 ] @line-icn [ ff00 0000 0000 0000 ]