Browse code
(clock.tal) Moved watchface drawing outside of RESET
Devine Lu Linvega authored on 20/11/2021 18:16:24
Showing 1 changed files
| ... | ... |
@@ -84,23 +84,9 @@ |
| 84 | 84 |
DUP2 #0078 -- .date/y STZ2 |
| 85 | 85 |
#006c ++ .time/y STZ2 |
| 86 | 86 |
|
| 87 |
- ( circle ) |
|
| 88 |
- #3c00 |
|
| 89 |
- &loop |
|
| 90 |
- ( dots ) |
|
| 91 |
- DUP TOS 2** ;table ++ LDA2 |
|
| 92 |
- #0018 ;circle JSR2 |
|
| 93 |
- .Screen/x DEO2 .Screen/y DEO2 #01 .Screen/pixel DEO |
|
| 94 |
- ( markers ) |
|
| 95 |
- DUP #05 MOD ,&no-marker JCN |
|
| 96 |
- DUP TOS 2** ;table ++ LDA2 |
|
| 97 |
- STH2k #0018 ;circle JSR2 SWP2 |
|
| 98 |
- STH2r #001c ;circle JSR2 SWP2 |
|
| 99 |
- #01 ;draw-line JSR2 |
|
| 100 |
- &no-marker |
|
| 101 |
- INC GTHk ;&loop JCN2 |
|
| 102 |
- POP2 |
|
| 87 |
+ ;draw-watchface JSR2 |
|
| 103 | 88 |
|
| 89 |
+ ( time buffer ) |
|
| 104 | 90 |
LIT ': |
| 105 | 91 |
DUP .buf/s1 STZ |
| 106 | 92 |
.buf/s2 STZ |
| ... | ... |
@@ -220,6 +206,26 @@ RTN |
| 220 | 206 |
|
| 221 | 207 |
RTN |
| 222 | 208 |
|
| 209 |
+@draw-watchface ( -- ) |
|
| 210 |
+ |
|
| 211 |
+ #3c00 |
|
| 212 |
+ &loop |
|
| 213 |
+ ( dots ) |
|
| 214 |
+ DUP TOS 2** ;table ++ LDA2 |
|
| 215 |
+ #0018 ;circle JSR2 |
|
| 216 |
+ .Screen/x DEO2 .Screen/y DEO2 #01 .Screen/pixel DEO |
|
| 217 |
+ ( markers ) |
|
| 218 |
+ DUP #05 MOD ,&no-marker JCN |
|
| 219 |
+ DUP TOS 2** ;table ++ LDA2 |
|
| 220 |
+ STH2k #0018 ;circle JSR2 SWP2 |
|
| 221 |
+ STH2r #001c ;circle JSR2 SWP2 |
|
| 222 |
+ #01 ;draw-line JSR2 |
|
| 223 |
+ &no-marker |
|
| 224 |
+ INC GTHk ;&loop JCN2 |
|
| 225 |
+ POP2 |
|
| 226 |
+ |
|
| 227 |
+RTN |
|
| 228 |
+ |
|
| 223 | 229 |
@make-needles ( -- ) |
| 224 | 230 |
|
| 225 | 231 |
[ #00 .DateTime/second DEI #1e + #3c MOD ] 2** ;table ++ LDA2 |