My Best Clock

[SierraKen]

Thanks b+ :).

Well I am finished now. Surprisingly I was able to find some cool patterns and designs experimenting with my old Fun With Math program and other programs. It changes to a different clock every minute change. After 10 clocks, it goes back to the beginning. It also still has the gong sound on top of the hour. This was really fun to make. I hope it's fun for you all to use and check out. 
Below this code I will also add the original clock that b+ and Petr helped me on. That way I can make this post the best one and have both since both are equally as good. I didn't add the original clock to the changing clocks one because I wanted to make something from only myself this time. It feels good to learn something and be able to do it yourself sometimes.

Edit: I just added an animated GIF as an attachment, hopefully you guys can see the 10 clock pictures with this animation. The GIF changes every second. I also added a picture of b+'s version as an attachment.

Code: QB64: [Select]

1. 'Clocks by Ken G.
2. 'A clock face changes every minute. There are 10 clock faces.
3. 'Thank you to QB64.org Forum for the help!
4.  
5. _TITLE "Clocks by Ken G."
6. SCREEN _NEWIMAGE(350, 350, 32)
7. i = _NEWIMAGE(350, 350, 32)
8. DO
9.     _LIMIT 30
10.     hours = TIMER \ 3600
11.     minutes = TIMER \ 60 - hours * 60
12.     seconds = (TIMER - hours * 3600 - minutes * 60)
13.     ho$ = LEFT$(TIME$, 2): hou = VAL(ho$)
14.     min$ = MID$(TIME$, 4, 2): minu = VAL(min$)
15.     seco$ = RIGHT$(TIME$, 2): secon = VAL(seco$)
16.     IF oldminu <> minu THEN
17.         mi = mi + 1
18.         IF mi = 1 THEN GOSUB clock1:
19.         IF mi = 2 THEN GOSUB clock2:
20.         IF mi = 3 THEN GOSUB clock3:
21.         IF mi = 4 THEN GOSUB clock4:
22.         IF mi = 5 THEN GOSUB clock5:
23.         IF mi = 6 THEN GOSUB clock6:
24.         IF mi = 7 THEN GOSUB clock7:
25.         IF mi = 8 THEN GOSUB clock8:
26.         IF mi = 9 THEN GOSUB clock9:
27.         IF mi = 10 THEN GOSUB clock10:
28.         IF mi > 10 THEN mi = 1: GOSUB clock1:
29.     END IF
30.     oldminu = minu
31.     'Seconds
32.     s = (60 - seconds) * 6 + 180
33.     x = INT(SIN(s / 180 * 3.141592) * 125) + 175
34.     y = INT(COS(s / 180 * 3.141592) * 125) + 175
35.     FOR b = -5 TO 5 STEP .1
36.         LINE (175 + b, 175)-(x, y), _RGB32(155, 83, 155)
37.         LINE (175, 175 + b)-(x, y), _RGB32(155, 83, 155)
38.     NEXT b
39.     'Minutes
40.     m = 180 - minutes * 6
41.     xx = INT(SIN(m / 180 * 3.141592) * 120) + 175
42.     yy = INT(COS(m / 180 * 3.141592) * 120) + 175
43.     FOR b = -5 TO 5 STEP .1
44.         LINE (175 + b, 175)-(xx, yy), _RGB32(0, 255, 255)
45.         LINE (175, 175 + b)-(xx, yy), _RGB32(0, 255, 255)
46.     NEXT b
47.     'Hours
48.     h = 360 - hours * 30 + 180
49.     xxx = INT(SIN(h / 180 * 3.141592) * 50) + 175
50.     yyy = INT(COS(h / 180 * 3.141592) * 50) + 175
51.     FOR b = -5 TO 5 STEP .1
52.         LINE (175 + b, 175)-(xxx, yyy), _RGB32(0, 255, 0)
53.         LINE (175, 175 + b)-(xxx, yyy), _RGB32(0, 255, 0)
54.     NEXT b
55.     FOR sz = .25 TO 5 STEP .25
56.         CIRCLE (175, 175), sz, _RGB32(0, 105, 255)
57.     NEXT sz
58.  
59.     'Chimes
60.     IF minu = 0 AND secon = 0 THEN
61.         hour2 = hou
62.         IF hour2 > 12 THEN hour2 = hour2 - 12
63.         IF hour2 = 0 THEN hour2 = 12
64.         FOR chimes = 1 TO hour2
65.             ttt = 0
66.             DO
67.                 'queue some sound
68.                 DO WHILE _SNDRAWLEN < 0.1 'you may wish to adjust this
69.                     sample = SIN(ttt * 340 * ATN(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
70.                     sample = sample * EXP(-ttt * 3) 'fade out eliminates clicks after sound
71.                     _SNDRAW sample
72.                     ttt = ttt + 1 / _SNDRATE 'sound card sample frequency determines time
73.                 LOOP
74.                 'do other stuff, but it may interrupt sound
75.             LOOP WHILE ttt < 2 'play for 2 seconds
76.             DO WHILE _SNDRAWLEN > 0 'Finish any left over queued sound!
77.             LOOP
78.         NEXT chimes
79.     END IF
80.     two:
81.     _DISPLAY
82.     CLS
83.     _PUTIMAGE (0, 0)-(350, 350), i
84. LOOP
85.  
86. clock1:
87. _DEST i
88. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
89. FOR tt = 1 TO 1000
90.     s = 0
91.     a = a + .5
92.     IF a > 175 THEN a = 1
93.     RANDOMIZE TIMER
94.     b = INT(RND * 2) + 1
95.     IF b > 1 THEN c = 255
96.     IF b = 1 THEN c = 0
97.     FOR d = 0 TO a STEP .125
98.         c = c + 1
99.         IF c > 255 THEN c = 0
100.         s = s + 1
101.         x = COS(s * 3.141592 / 180) * d
102.         y = SIN(s * 3.151492 / 180) * d
103.         CIRCLE (x + 175, y + 175), 2, _RGB32(c, 0, 0)
104.     NEXT d
105. NEXT tt
106. _DEST 0
107. a = 0
108. s = 0
109. RETURN
110.  
111. clock2:
112. c = 0
113. _DEST i
114. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
115. FOR tt = 1 TO 1000
116.     s = 0
117.     a = a + .5
118.     IF a > 175 THEN a = 1
119.     RANDOMIZE TIMER
120.     b = INT(RND * 2) + 1
121.     IF b > 1 THEN c = 255
122.     IF b = 1 THEN c = 0
123.     FOR d = a TO 0 STEP -.125
124.         c = c + 1
125.         IF c > 255 THEN c = 0
126.         s = s + 1
127.         x = COS(s * 3.141592 / 180) * d
128.         y = SIN(s * 3.151492 / 180) * d
129.         CIRCLE (x + 175, y + 175), 2, _RGB32(0, c, 0)
130.     NEXT d
131. NEXT tt
132. _DEST 0
133. c = 0
134. s = 0
135. a = 0
136. RETURN
137.  
138. clock3:
139. _DEST i
140. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
141. FOR r = 1 TO 120 STEP 5
142.     one2:
143.     seco = seco + 1
144.     s = (60 - seco) * 6 + 180
145.     x = INT(SIN(s / 180 * 3.141592) * 175) + 175
146.     y = INT(COS(s / 180 * 3.141592) * 175) + 175
147.     CIRCLE (x, y), r, _RGB32(0, 0, r * 5)
148.     IF seco > 60 THEN
149.         seco = 0
150.         GOTO two2:
151.     END IF
152.     GOTO one2:
153.     two2:
154. NEXT r
155. _DEST 0
156. s = 0
157. seco = 0
158. RETURN
159.  
160. clock4:
161. _DEST i
162. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
163. FOR rr = 0 TO 140 STEP 20
164.     RANDOMIZE TIMER
165.     c1 = INT(RND * 255)
166.     c2 = INT(RND * 255)
167.     c3 = INT(RND * 255)
168.     one3:
169.     seco = seco + 1
170.     s = (60 - seco) * 6 + (160 - rr)
171.     x = INT(SIN(s / 180 * 3.141592) * (160 - rr)) + 175
172.     y = INT(COS(s / 180 * 3.141592) * (160 - rr)) + 175
173.     CIRCLE (x, y), 2, _RGB32(c1, c2, c3)
174.     IF seco > 60 THEN
175.         seco = 0
176.         GOTO two3:
177.     END IF
178.     GOTO one3:
179.     two3:
180. NEXT rr
181. _DEST 0
182. seco = 0
183. RETURN
184.  
185. clock5:
186. _DEST i
187. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
188. c1 = 0: c2 = 100: c3 = 100
189. FOR rr = 0 TO 140 STEP .1
190.     c2 = c2 + 1
191.     c3 = c3 + 1
192.     one4:
193.     seco = seco + 1
194.     s = (60 - seco) * 6 + (160 - rr)
195.     x = INT(SIN(s / 180 * 3.141592) * (160 - rr)) + 175
196.     y = INT(COS(s / 180 * 3.141592) * (160 - rr)) + 175
197.     CIRCLE (x, y), .25, _RGB32(c1, c2, c3)
198.     IF seco > 60 THEN
199.         seco = 0
200.         GOTO two4:
201.     END IF
202.     GOTO one4:
203.     two4:
204. NEXT rr
205. _DEST 0
206. seco = 0
207. RETURN
208.  
209. clock6:
210. _DEST i
211. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
212. c1 = 100: c2 = 100: c3 = 0
213. FOR rr = 0 TO 140 STEP .1
214.     c2 = c2 + 1
215.     c3 = c3 + 1
216.     one5:
217.     seco = seco + 1
218.     s = (60 - seco) * 6 + 160
219.     x = INT(SIN(s / 180 * 3.141592) * (160 - rr)) + 175
220.     y = INT(COS(s / 180 * 3.141592) * (160 - rr)) + 175
221.     CIRCLE (x, y), .25, _RGB32(c1, c2, c3)
222.     IF seco > 60 THEN
223.         seco = 0
224.         GOTO two5:
225.     END IF
226.     GOTO one5:
227.     two5:
228. NEXT rr
229. _DEST 0
230. seco = 0
231. RETURN
232.  
233. clock7:
234. _DEST i
235. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
236. c1 = 100: c2 = 100: c3 = 100
237. FOR rr = 0 TO 140 STEP .1
238.     c1 = c1 + 1
239.     c2 = c2 + 1
240.     c3 = c3 + 1
241.     one6:
242.     seco = seco + 1
243.     s = (60 - seco) * 6 + 160 + rr
244.     x = INT(SIN(s / 180 * 3.141592) * (160 + rr)) + 175
245.     y = INT(COS(s / 180 * 3.141592) * (160 + rr)) + 175
246.     CIRCLE (x, y), .25, _RGB32(c1, c2, c3)
247.     IF seco > 60 THEN
248.         seco = 0
249.         GOTO two6:
250.     END IF
251.     GOTO one6:
252.     two6:
253. NEXT rr
254. _DEST 0
255. seco = 0
256. RETURN
257.  
258. clock8:
259. _DEST i
260. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
261. c1 = 100: c2 = 0: c3 = 0
262. FOR rr = -50 TO 50 STEP .25
263.     c1 = c1 + 1
264.     c2 = c2 + 1
265.     one7:
266.     seco = seco + .25
267.     s = (60 - seco) * 6 + 160
268.     x = INT(SIN(s / 90 * 3.141592) * 160) + 175
269.     y = INT(COS(s / 180 * 3.141592) * 160) + 175
270.     CIRCLE (x + rr, y), 2, _RGB32(c1, c2, c3)
271.     IF seco > 60 THEN
272.         seco = 0
273.         GOTO two7:
274.     END IF
275.     GOTO one7:
276.     two7:
277. NEXT rr
278. _DEST 0
279. seco = 0
280. RETURN
281.  
282. clock9:
283. _DEST i
284. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
285. c1 = 0: c2 = 50: c3 = 50
286. FOR rr = 0 TO 160 STEP .05
287.     c2 = c2 + .05
288.     c3 = c3 + .05
289.     one8:
290.     seco = seco + .05
291.     s = (60 - seco) * 6 + 160 - rr
292.     x = INT(SIN(s / 180 * 3.141592) * (160 - rr)) + 175
293.     y = INT(COS(s / 180 * 3.141592) * (160 - rr)) + 175
294.     CIRCLE (x, y), .25, _RGB32(c1, c2, c3)
295.     IF seco > 60 THEN
296.         seco = 0
297.         GOTO two8:
298.     END IF
299.     GOTO one8:
300.     two8:
301. NEXT rr
302. _DEST 0
303. seco = 0
304. RETURN
305.  
306. clock10:
307. _DEST i
308. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
309. one9:
310. seco = seco + .01
311. s = (60 - seco) * 6 + 180
312. x = INT(SIN(s / 360 * 3.141592) * 180) + 175
313. y = INT(COS(s / 1.57 * 3.141592) * 180) + 175
314. CIRCLE (x, y), 2, _RGB32(0, 255, 0)
315. IF seco > 60 THEN
316.     seco = 0
317.     GOTO two9:
318. END IF
319. GOTO one9:
320. two9:
321. _DEST 0
322. seco = 0
323. RETURN
324.  

Here is the original clock with amazing graphics for the clock face that b+ made:

Code: QB64: [Select]

1. 'Clock by Ken G and b+. Also thank you to Petr from the QB64.org forum for smooth second hand movement.
2.  
3. _TITLE "Clock by Ken G., b+, and Petr" 'b+ mod 2019-12-03
4. CONST xmax = 360, ymax = 368, xCenter = xmax / 2, yCenter = ymax / 2, p = 3.14159265, p2 = p * 2, pd2 = p / 2
5. DIM SHARED clockFace&
6. 'i = _LOADIMAGE("kclock.bmp", 32)
7. SCREEN _NEWIMAGE(360, 368, 32)
8. clockFace& = _NEWIMAGE(xmax, ymax, 32)
9. _DEST clockFace&
10. drawClockFace
11. _DEST 0
12. DO
13.     _LIMIT 30
14.     CLS
15.     _PUTIMAGE , clockFace&, 0
16.  
17.     hours = TIMER \ 3600
18.     minutes = TIMER \ 60 - hours * 60
19.     seconds = (TIMER - hours * 3600 - minutes * 60)
20.     ho$ = LEFT$(TIME$, 2): hou = VAL(ho$)
21.     min$ = MID$(TIME$, 4, 2): minu = VAL(min$)
22.     seco$ = RIGHT$(TIME$, 2): secon = VAL(seco$)
23.  
24.     'Hours
25.     h = 360 - hours * 30 + 180
26.     xxx = INT(SIN(h / 180 * 3.141592) * 100) + 180
27.     yyy = INT(COS(h / 180 * 3.141592) * 100) + 184
28.     FOR b = -8 TO 8 STEP .1
29.         LINE (180 + b, 184)-(xxx, yyy), _RGB32(155, 0, 0)
30.         LINE (180, 184 + b)-(xxx, yyy), _RGB32(155, 0, 0)
31.     NEXT b
32.  
33.     'Minutes
34.     m = 180 - minutes * 6
35.     xx = INT(SIN(m / 180 * 3.141592) * 150) + 180
36.     yy = INT(COS(m / 180 * 3.141592) * 150) + 184
37.     FOR b = -5 TO 5 STEP .1
38.         LINE (180 + b, 184)-(xx, yy), _RGB32(155, 80, 40)
39.         LINE (180, 184 + b)-(xx, yy), _RGB32(155, 80, 40)
40.     NEXT b
41.  
42.     'Seconds
43.     s = (60 - seconds) * 6 + 180
44.     x = INT(SIN(s / 180 * 3.141592) * 165) + 180
45.     y = INT(COS(s / 180 * 3.141592) * 165) + 184
46.     'FOR b = -5 TO 5 STEP .1
47.     ' LINE (180 + b, 184)-(x, y), _RGB32(255, 164, 100)
48.     LINE (180, 184)-(x, y), _RGB32(255, 164, 84)
49.     'NEXT b
50.  
51.     'fix clock arms with knob
52.     FOR rrr = 6 TO 0 STEP -.25
53.         CIRCLE (180, 184), rrr, _RGB32(1.5 * (255 - 25 * rrr), 1.5 * (128 - 17 * rrr), 1.5 * (64 - 8 * rrr))
54.     NEXT
55.  
56.     'Chimes
57.     IF minu = 0 AND secon = 0 THEN
58.         hour2 = hou
59.         IF hour2 > 12 THEN hour2 = hour2 - 12
60.         IF hour2 = 0 THEN hour2 = 12
61.         FOR chimes = 1 TO hour2
62.             ttt = 0
63.             DO
64.                 'queue some sound
65.                 DO WHILE _SNDRAWLEN < 0.1 'you may wish to adjust this
66.                     sample = SIN(ttt * 340 * ATN(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
67.                     sample = sample * EXP(-ttt * 3) 'fade out eliminates clicks after sound
68.                     _SNDRAW sample
69.                     ttt = ttt + 1 / _SNDRATE 'sound card sample frequency determines time
70.                 LOOP
71.                 'do other stuff, but it may interrupt sound
72.             LOOP WHILE ttt < 2 'play for 2 seconds
73.             DO WHILE _SNDRAWLEN > 0 'Finish any left over queued sound!
74.             LOOP
75.         NEXT chimes
76.     END IF
77.  
78.     two:
79.     _DISPLAY
80. LOOP
81.  
82. SUB drawClockFace
83.     DIM angle, r, n AS INTEGER, c AS _UNSIGNED LONG, x1, y1, x2, y2
84.     DIM level AS INTEGER, shade AS INTEGER, rr, gg, bb
85.     rr = 20: gg = 10: bb = 5
86.     CLS
87.     angle = p2 / 12: r = yCenter * .95
88.     FOR level = 0 TO 2
89.         x1 = xCenter + COS(0 - pd2) * r: y1 = yCenter + SIN(0 - pd2) * r
90.         FOR n = 1 TO 12
91.             x2 = xCenter + COS(n * angle - pd2) * r: y2 = yCenter + SIN(n * angle - pd2) * r
92.             IF n > 6 THEN shade = n - 6 ELSE shade = 6 - n
93.             IF n = 12 THEN shade = 6
94.             IF level = 1 THEN shade = 6 - shade
95.             c = _RGB32((level * 60) + rr + shade * 50, (level * 30) + gg + shade * 30, (level * 15) + bb + shade * 15)
96.             fillTriangle xCenter, yCenter, x1, y1, x2, y2, c
97.             x1 = x2: y1 = y2
98.         NEXT
99.         IF level = 0 THEN r = r - 15 ELSE r = r - 50
100.     NEXT
101. END SUB
102.  
103. SUB fillTriangle (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
104.     DIM d AS LONG
105.     STATIC a&
106.     d = _DEST
107.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
108.     _DEST a&
109.     PSET (0, 0), K
110.     _DEST d
111.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
112. END SUB
113.  

[Pete]

If your clock could talk, it might tell you, "It's not a fan." Well of course it's not, it's a clock! Of course if you speed up that second had 10- fold, well...

Kidding aside, I actually do like the other static designs better. Especially for telling time. I found myself checking my compute clock, to figure out if I was looking a 4:20 or 5:20. I did, however, like the red swirl pattern. That was also the easiest one to view and figure out the time. I could see that on an iWatch. Of course variety is the spice of life and having a setting menu, so the user could decide, classic face, favorite geometric face, AM / PM faces, or cycle through faces. Well, you can't lose there.

Pete