neauoire
/
uxn-utils
mirror of https://git.sr.ht/~rabbits/uxn-utils
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Play bell

This commit is contained in:
Devine Lu Linvega 2024-07-24 15:42:07 -07:00
parent 5a514844ff
commit cab3279ddd
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gui/teatime/teatime.tal
View File

@ -39,7 +39,8 @@
[ LIT2 40 &f $1 ] INCk ,&f STR
NEQ ?{
[ LIT2 00 _&f ] STR
DUP2 #0001 SUB2 <set-seconds> }
#0001 SUB2 DUP2 <set-seconds>
ORAk ?{ <ring> } }
POP2 BRK
@on-mouse ( -> )
@ -60,6 +61,10 @@
(
@|core )
@<ring> ( -- )
( bell ) #0718 DEO
JMP2r
@<freeze-timer> ( -- )
;on-frame-freeze .Screen/vector DEO2
#c0 ;on-frame-freeze/lock STA