diff --git a/gui/teatime/teatime.tal b/gui/teatime/teatime.tal index 323d423..3e07dc6 100644 --- a/gui/teatime/teatime.tal +++ b/gui/teatime/teatime.tal @@ -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 ) - .Mouse/y DEI2 #0010 SUB2 DUP2 #00e1 GTH2 ?{ DUP2 #22 SFT2 } + .Mouse/y DEI2 #0010 SUB2 DUP2 #00f0 GTH2 ?{ DUP2 #22 SFT2 } POP2 BRK @meta 00 @@ -112,13 +114,13 @@ @ ( -- ) #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 ( >> )