Browse code
(clock.tal) Optimizations
Devine Lu Linvega authored on 19/11/2021 16:46:28
Showing 1 changed files
| ... | ... |
@@ -38,6 +38,10 @@ |
| 38 | 38 |
@current $1 |
| 39 | 39 |
@center |
| 40 | 40 |
&x $2 &y $2 |
| 41 |
+@date |
|
| 42 |
+ &x $2 &y $2 |
|
| 43 |
+@time |
|
| 44 |
+ &x $2 &y $2 |
|
| 41 | 45 |
@needles |
| 42 | 46 |
&hx $2 &hy $2 &mx $2 &my $2 &sx $2 &sy $2 |
| 43 | 47 |
@line |
| ... | ... |
@@ -60,8 +64,14 @@ |
| 60 | 64 |
;on-frame .Screen/vector DEO2 |
| 61 | 65 |
|
| 62 | 66 |
( center ) |
| 63 |
- .Screen/width DEI2 2// .center/x STZ2 |
|
| 64 |
- .Screen/height DEI2 2// .center/y STZ2 |
|
| 67 |
+ .Screen/width DEI2 2// |
|
| 68 |
+ DUP2 .center/x STZ2 |
|
| 69 |
+ DUP2 #0048 -- .date/x STZ2 |
|
| 70 |
+ #0020 -- .time/x STZ2 |
|
| 71 |
+ .Screen/height DEI2 2// |
|
| 72 |
+ DUP2 .center/y STZ2 |
|
| 73 |
+ DUP2 #0068 -- .date/y STZ2 |
|
| 74 |
+ #0060 ++ .time/y STZ2 |
|
| 65 | 75 |
|
| 66 | 76 |
( circle ) |
| 67 | 77 |
#3c00 |
| ... | ... |
@@ -120,18 +130,18 @@ RTN |
| 120 | 130 |
( auto addr ) #04 .Screen/auto DEO |
| 121 | 131 |
|
| 122 | 132 |
( dotw ) |
| 123 |
- .center/y LDZ2 #0068 -- .Screen/y DEO2 |
|
| 124 |
- .center/x LDZ2 #0048 -- .Screen/x DEO2 |
|
| 133 |
+ .date/x LDZ2 .Screen/x DEO2 |
|
| 134 |
+ .date/y LDZ2 .Screen/y DEO2 |
|
| 125 | 135 |
.DateTime/dotw DEI 4* TOS ;dotw ++ ;draw-dotw JSR2 |
| 126 | 136 |
( date ) |
| 127 |
- .center/x LDZ2 #0014 -- .Screen/x DEO2 |
|
| 137 |
+ .Screen/x DEI2 #001c ++ .Screen/x DEO2 |
|
| 128 | 138 |
.DateTime/month DEI2 |
| 129 | 139 |
SWP INC ,&number JSR |
| 130 | 140 |
;font/slash ,&char JSR |
| 131 | 141 |
,&number JSR |
| 132 | 142 |
( time ) |
| 133 |
- .center/y LDZ2 #0060 ++ .Screen/y DEO2 |
|
| 134 |
- .center/x LDZ2 #0020 -- .Screen/x DEO2 |
|
| 143 |
+ .time/y LDZ2 .Screen/y DEO2 |
|
| 144 |
+ .time/x LDZ2 .Screen/x DEO2 |
|
| 135 | 145 |
.DateTime/hour DEI2 |
| 136 | 146 |
SWP ,&number JSR |
| 137 | 147 |
;font/spacer ,&char JSR |