Browse code

(clock.tal) Added minute offset to hour needle

Devine Lu Linvega authored on 20/11/2021 17:50:41
Showing 1 changed files
... ...
@@ -83,7 +83,7 @@
83 83
 	.Screen/height DEI2 2// 
84 84
 		DUP2 .center/y STZ2
85 85
 		DUP2 #0078 -- .date/y STZ2
86
-		#0070 ++ .time/y STZ2
86
+		#006c ++ .time/y STZ2
87 87
 
88 88
 	( circle )
89 89
 	#3c00 
... ...
@@ -150,13 +150,17 @@ BRK
150 150
 
151 151
 	STH
152 152
 	.center/x LDZ2 .center/y LDZ2 
153
-		OVR2 OVR2 
154
-		OVR2 OVR2
155 153
 		OVR2 OVR2
156 154
 		.needles/zx LDZ2 .needles/zy LDZ2 #02 STHkr * ;draw-line JSR2
155
+		OVR2 OVR2
157 156
 		.needles/sx LDZ2 .needles/sy LDZ2 #02 STHkr * ;draw-line JSR2
157
+		OVR2 OVR2
158 158
 		.needles/mx LDZ2 .needles/my LDZ2 #01 STHkr * ;draw-line JSR2
159
+		OVR2 OVR2
159 160
 		.needles/hx LDZ2 .needles/hy LDZ2 #01 STHr * ;draw-line JSR2
161
+		#0001 -- .Screen/y DEO2 #0001 -- .Screen/x DEO2
162
+		;middle-icn .Screen/addr DEO2
163
+		#0a .Screen/sprite DEO
160 164
 
161 165
 RTN
162 166
 
... ...
@@ -224,7 +228,8 @@ RTN
224 228
 		#0020 ,circle JSR .needles/sx STZ2 .needles/sy STZ2 
225 229
 	[ #00 .DateTime/minute DEI ] 2** ;table ++ LDA2
226 230
 		#0022 ,circle JSR .needles/mx STZ2 .needles/my STZ2 
227
-	[ #00 .DateTime/hour DEI 12HOURS #20 SFTk NIP ADD ] 2** ;table ++ LDA2
231
+	[ #00 .DateTime/hour DEI 12HOURS #20 SFTk NIP ADD ]
232
+	( minute offset ) [ #00 .DateTime/minute DEI #0f / ++ ] 2** ;table ++ LDA2
228 233
 		#002a ,circle JSR .needles/hx STZ2 .needles/hy STZ2
229 234
 
230 235
 RTN
... ...
@@ -264,6 +269,9 @@ RTN
264 269
 	0658 0b4b 113f 1834 202a 2a20 3418 3f11
265 270
 	4b0b 5806 6502 7200
266 271
 
272
+@middle-icn
273
+	40e0 4000 0000 0000
274
+
267 275
 @font
268 276
 	&num
269 277
 	0018 2442 4242 4242 4242 4242 4224 1800
... ...
@@ -336,3 +344,4 @@ RTN
336 344
 	0202 0404 0808 1010 2020 4040 8080 0000
337 345
 	&blank
338 346
 	0000 0000 0000 0000 0000 0000 0000 0000
347
+