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

(clock.tal) Optimizations

This commit is contained in:
Devine Lu Linvega 2021-11-19 11:46:28 -05:00
parent 9ad9a51599
commit 0dc6515e08
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
projects/examples/devices/datetime.tal
View File

@ -38,6 +38,10 @@
@current $1 @current $1
@center @center
&x $2 &y $2 &x $2 &y $2
@date
&x $2 &y $2
@time
&x $2 &y $2
@needles @needles
&hx $2 &hy $2 &mx $2 &my $2 &sx $2 &sy $2 &hx $2 &hy $2 &mx $2 &my $2 &sx $2 &sy $2
@line @line
@ -60,8 +64,14 @@
;on-frame .Screen/vector DEO2 ;on-frame .Screen/vector DEO2
( center ) ( center )
.Screen/width DEI2 2// .center/x STZ2 .Screen/width DEI2 2//
.Screen/height DEI2 2// .center/y STZ2 DUP2 .center/x STZ2
DUP2 #0048 -- .date/x STZ2
#0020 -- .time/x STZ2
.Screen/height DEI2 2//
DUP2 .center/y STZ2
DUP2 #0068 -- .date/y STZ2
#0060 ++ .time/y STZ2
( circle ) ( circle )
#3c00 #3c00
@ -120,18 +130,18 @@ RTN
( auto addr ) #04 .Screen/auto DEO ( auto addr ) #04 .Screen/auto DEO
( dotw ) ( dotw )
.center/y LDZ2 #0068 -- .Screen/y DEO2 .date/x LDZ2 .Screen/x DEO2
.center/x LDZ2 #0048 -- .Screen/x DEO2 .date/y LDZ2 .Screen/y DEO2
.DateTime/dotw DEI 4* TOS ;dotw ++ ;draw-dotw JSR2 .DateTime/dotw DEI 4* TOS ;dotw ++ ;draw-dotw JSR2
( date ) ( date )
.center/x LDZ2 #0014 -- .Screen/x DEO2 .Screen/x DEI2 #001c ++ .Screen/x DEO2
.DateTime/month DEI2 .DateTime/month DEI2
SWP INC ,&number JSR SWP INC ,&number JSR
;font/slash ,&char JSR ;font/slash ,&char JSR
,&number JSR ,&number JSR
( time ) ( time )
.center/y LDZ2 #0060 ++ .Screen/y DEO2 .time/y LDZ2 .Screen/y DEO2
.center/x LDZ2 #0020 -- .Screen/x DEO2 .time/x LDZ2 .Screen/x DEO2
.DateTime/hour DEI2 .DateTime/hour DEI2
SWP ,&number JSR SWP ,&number JSR
;font/spacer ,&char JSR ;font/spacer ,&char JSR