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

(timer.tal) Updated example

This commit is contained in:
Devine Lu Linvega 2024-02-25 13:16:48 -08:00
parent b00cafe0f2
commit de4a534bf4
1 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
projects/examples/gui/timer.tal
View File

@ -43,21 +43,31 @@
!&<draw>
&pause ( -- )
[ LIT2 00 _&paused ] LDR EQU
( ) DUP ,&paused STR
( ) INC ;<draw-num>/color STA
( ) INCk <set-dec-color>
,&paused STR
!&<draw>
&end ( -- )
#0000 .Screen/vector DEO2
#06 ;<draw-num>/color STA
#06 <set-dec-color>
!&<draw>
&<draw> ( -- )
#0010 DUP2 .Screen/x DEO2
.Screen/y DEO2
[ LIT2 01 -Screen/auto ] DEO
,&time LDR DUP
( x0 ) #0a DIV <draw-num>
( 0x ) #0a DIVk MUL SUB <draw-num>
JMP2r
,&time LDR !<draw-dec>
(
@|drawing )
@<set-dec-color> ( color -- )
;<draw-num>/color STA
JMP2r
@<draw-dec> ( dec -- )
#0010 DUP2 .Screen/x DEO2
.Screen/y DEO2
[ LIT2 01 -Screen/auto ] DEO
DUP
( x0 ) #0a DIV <draw-num>
( 0x ) #0a DIVk MUL SUB
( >> )
@<draw-num> ( num -- )
#00 SWP #30 SFT2 ;numbers-icns ADD2 .Screen/addr DEO2