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

Reverted timer height

This commit is contained in:
Devine Lu Linvega 2024-07-24 14:29:27 -07:00
parent 701c8efad5
commit 73533c0cc8
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gui/teatime/teatime.tal
View File

@ -8,6 +8,8 @@
|000
( | 15 minutes = 900 seconds, or 0x384 )
( | 0x384 / 2 = 0x1c2 )
( | each minute is 4 bars, of 15 seconds each )
( | 15 minutes )
@remaining-seconds $2
@height $2
@ -48,7 +50,7 @@
.Mouse/state DEI ?{ BRK }
( | down )
<freeze-timer>
.Mouse/y DEI2 #0010 SUB2 DUP2 #00e1 GTH2 ?{ DUP2 #22 SFT2 <set-height> }
.Mouse/y DEI2 #0010 SUB2 DUP2 #00f0 GTH2 ?{ DUP2 #22 SFT2 <set-height> }
POP2 BRK
@meta 00
@ -112,13 +114,13 @@
@<draw-markers> ( -- )
#00 .Screen/auto DEO
#00e2 #0000
#00f1 #0000
&>l ( -- )
( | every 5th )
DUP #03 AND ?{
DUP2 #0009 ADD2 .Screen/y DEO2
#0030 .Screen/x DEO2
DUP2 #0004 DIV2 NIP #03 AND #00 EQU #00 SWP #30 SFT2 ;mark-icn ADD2 .Screen/addr DEO2
DUP #02 SFT #03 AND #00 EQU #00 SWP #30 SFT2 ;mark-icn ADD2 .Screen/addr DEO2
#05 .Screen/sprite DEO }
INC2 GTH2k ?&>l
POP2 POP2 JMP2r
@ -133,7 +135,7 @@
( | bottom )
#0010 .Screen/x DEO2
#0090 .Screen/y DEO2
[ LIT2 b1 -Screen/auto ] DEO
[ LIT2 d1 -Screen/auto ] DEO
[ LIT2 01 -Screen/sprite ] DEOk DEOk DEOk DEO
( >> )