Mantel Clock with hourly chime song without extra files

[SierraKen]

I need some input on this one folks. I believe the chimes sound good, they use a code example that's on the Wiki pages that I experimented with. I also found a common song that many clocks chime every hour and then found a conversion table for Hz (frequency) and notes. I had to change the Hz a bit but kept it relative to each other when experimenting. I also added a way to listen to the hourly chime song at anytime by just pressing the Space Bar. Tell me what you think. Is the color OK? Do the chimes sound good? This is my first clock that plays a song with chimes as well as the hour chimes every hour. No extra files are used. Also thanks to Dav who told me how to use _ICON _DISPLAY. :)

Edit: The name of this clock has changed from Grandfather Clock to Mantel Clock because it looks more like a Mantel Clock.

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. DIM CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG
3. _TITLE "Mantle Clock - Press Space Bar to play hour chimes at anytime."
4. DO
5.     _LIMIT 50
6.     a = _KEYHIT
7.     IF a = 27 THEN END
8.     IF a = 32 THEN song = 1: a = 0: _DELAY 1
9.     CX = 400: CY = 300: R = 300: C = _RGB32(0, 78, 0)
10.     fillCircle CX, CY, R, C
11.     LINE (100, 300)-(700, 600), C, BF
12.     CX = 400: CY = 300: R = 200: C = _RGB32(183, 139, 100)
13.     fillCircle CX, CY, R, C
14.     FOR lines = .25 TO 10 STEP .1
15.         CIRCLE (400, 300), 250 + lines, _RGB32(0, 55, 0), 2 * _PI, _PI
16.     NEXT lines
17.     LINE (140, 300)-(150, 760), _RGB32(0, 55, 0), BF
18.     LINE (650, 300)-(660, 760), _RGB32(0, 55, 0), BF
19.  
20.     FOR sc = 1 TO 60
21.         ss = (60 - sc) * 6 + 180
22.         x2 = INT(SIN(ss / 180 * 3.141592) * 140) + 400
23.         y2 = INT(COS(ss / 180 * 3.141592) * 140) + 300
24.         CIRCLE (x2, y2), 3, _RGB32(230, 230, 230)
25.         n2 = (60 - sc) * 6 + 180
26.         x3 = INT(SIN(n2 / 180 * 3.141592) * 160) + 390
27.         y3 = INT(COS(n2 / 180 * 3.141592) * 160) + 295
28.         COLOR _RGB32(0, 0, 0), _RGB32(183, 139, 100)
29.         IF sc = 5 THEN _PRINTSTRING (x3, y3), "I"
30.         IF sc = 10 THEN _PRINTSTRING (x3, y3), "II"
31.         IF sc = 15 THEN _PRINTSTRING (x3, y3), "III"
32.         IF sc = 20 THEN _PRINTSTRING (x3, y3), "IV"
33.         IF sc = 25 THEN _PRINTSTRING (x3, y3), "V"
34.         IF sc = 30 THEN _PRINTSTRING (x3, y3), "VI"
35.         IF sc = 35 THEN _PRINTSTRING (x3, y3), "VII"
36.         IF sc = 40 THEN _PRINTSTRING (x3, y3), "VIII"
37.         IF sc = 45 THEN _PRINTSTRING (x3, y3), "IX"
38.         IF sc = 50 THEN _PRINTSTRING (x3, y3), "X"
39.         IF sc = 55 THEN _PRINTSTRING (x3, y3), "XI"
40.         IF sc = 60 THEN _PRINTSTRING (x3, y3), "XII"
41.     NEXT sc
42.     COLOR , _RGB32(0, 0, 0)
43.     clock song
44.     CX = 400: CY = 300: R = 10: C = _RGB32(0, 0, 0)
45.     fillCircle CX, CY, R, C
46.     _ICON _DISPLAY
47.     _DISPLAY
48.     CLS
49. LOOP
50.  
51. 'from Steve Gold standard
52. SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
53.     DIM Radius AS INTEGER, RadiusError AS INTEGER
54.     DIM X AS INTEGER, Y AS INTEGER
55.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
56.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
57.     LINE (CX - X, CY)-(CX + X, CY), C, BF
58.     WHILE X > Y
59.         RadiusError = RadiusError + Y * 2 + 1
60.         IF RadiusError >= 0 THEN
61.             IF X <> Y + 1 THEN
62.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
63.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
64.             END IF
65.             X = X - 1
66.             RadiusError = RadiusError - X * 2
67.         END IF
68.         Y = Y + 1
69.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
70.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
71.     WEND
72. END SUB
73.  
74. SUB clock (song)
75.     hours = TIMER \ 3600
76.     minutes = TIMER \ 60 - hours * 60
77.     seconds = (TIMER - hours * 3600 - minutes * 60)
78.     ho$ = LEFT$(TIME$, 2): hou = VAL(ho$)
79.     min$ = MID$(TIME$, 4, 2): minu = VAL(min$)
80.     seco$ = RIGHT$(TIME$, 2): secon = VAL(seco$)
81.     'Seconds
82.     s = (60 - seconds) * 6 + 180
83.     x = INT(SIN(s / 180 * 3.141592) * 120) + 400
84.     y = INT(COS(s / 180 * 3.141592) * 120) + 300
85.     FOR b = -5 TO 5 STEP .1
86.         LINE (400 + b, 300)-(x, y), _RGB32(255, 255, 128)
87.         LINE (400, 300 + b)-(x, y), _RGB32(255, 255, 128)
88.     NEXT b
89.     'Minutes
90.     m = 180 - minutes * 6
91.     xx = INT(SIN(m / 180 * 3.141592) * 120) + 400
92.     yy = INT(COS(m / 180 * 3.141592) * 120) + 300
93.     FOR b = -5 TO 5 STEP .1
94.         LINE (400 + b, 300)-(xx, yy), _RGB32(0, 0, 0)
95.         LINE (400, 300 + b)-(xx, yy), _RGB32(0, 0, 0)
96.     NEXT b
97.     'Hours
98.     h = 360 - hours * 30 + 180
99.     xxx = INT(SIN(h / 180 * 3.141592) * 90) + 400
100.     yyy = INT(COS(h / 180 * 3.141592) * 90) + 300
101.     FOR b = -5 TO 5 STEP .1
102.         LINE (400 + b, 300)-(xxx, yyy), _RGB32(0, 0, 0)
103.         LINE (400, 300 + b)-(xxx, yyy), _RGB32(0, 0, 0)
104.     NEXT b
105.     'Chimes
106.     IF (minu = 0 AND secon = 0) OR song = 1 THEN
107.         song = 0
108.         'note frequencies
109.         E = 332
110.         C = 315
111.         D = 323
112.         G = 348
113.  
114.         FOR notes = 1 TO 16
115.             IF notes = 1 THEN note = E
116.             IF notes = 2 THEN note = C
117.             IF notes = 3 THEN note = D
118.             IF notes = 4 THEN note = G
119.             IF notes = 5 THEN note = G
120.             IF notes = 6 THEN note = D
121.             IF notes = 7 THEN note = E
122.             IF notes = 8 THEN note = C
123.             IF notes = 9 THEN note = E
124.             IF notes = 10 THEN note = D
125.             IF notes = 11 THEN note = C
126.             IF notes = 12 THEN note = G
127.             IF notes = 13 THEN note = G
128.             IF notes = 14 THEN note = D
129.             IF notes = 15 THEN note = E
130.             IF notes = 16 THEN note = C
131.             DO
132.                 'queue some sound
133.                 DO WHILE _SNDRAWLEN < 0.5 'you may wish to adjust this
134.                     sample = SIN(ttt * note * ATN(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
135.                     sample = sample * EXP(-ttt * 3) 'fade out eliminates clicks after sound
136.                     _SNDRAW sample
137.                     ttt = ttt + 1 / _SNDRATE 'sound card sample frequency determines time
138.                 LOOP
139.                 'do other stuff, but it may interrupt sound
140.             LOOP WHILE ttt < 1 'play for 1 second
141.             DO WHILE _SNDRAWLEN > 0 'Finish any left over queued sound!
142.             LOOP
143.             ttt = 0
144.         NEXT notes
145.         hour2 = hou
146.         IF hour2 > 12 THEN hour2 = hour2 - 12
147.         IF hour2 = 0 THEN hour2 = 12
148.         FOR chimes = 1 TO hour2
149.             ttt = 0
150.             DO
151.                 'queue some sound
152.                 DO WHILE _SNDRAWLEN < 0.1 'you may wish to adjust this
153.                     sample = SIN(ttt * 240 * ATN(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
154.                     sample = sample * EXP(-ttt * 3) 'fade out eliminates clicks after sound
155.                     _SNDRAW sample
156.                     ttt = ttt + 1 / _SNDRATE 'sound card sample frequency determines time
157.                 LOOP
158.                 'do other stuff, but it may interrupt sound
159.             LOOP WHILE ttt < 2 'play for 2 seconds
160.             DO WHILE _SNDRAWLEN > 0 'Finish any left over queued sound!
161.             LOOP
162.         NEXT chimes
163.     END IF
164.     two:
165. END SUB
166.  

[Dav]

I like it @SierraKen. Great idea.   I played around with the chime notes, tried to make it sound like my dads old clock.  How do these sound?  I put in 0's to make a pause.  I found a good webpage that list frequencies of notes here.  The color looks good to me.

- Dav

Code: QB64: [Select]

1.             IF notes = 1 THEN note = 311.13 'D#
2.             IF notes = 2 THEN note = 246.94 'B
3.             IF notes = 3 THEN note = 277.18 'C#
4.             IF notes = 4 THEN note = 185.00 'F#
5.             IF notes = 5 THEN note = 0
6.             IF notes = 6 THEN note = 185.00 'F#
7.             IF notes = 7 THEN note = 277.18 'C#
8.             IF notes = 8 THEN note = 311.13 'D#
9.             IF notes = 9 THEN note = 246.94 'B
10.             IF notes = 10 THEN note = 0
11.             IF notes = 11 THEN note = 311.13 'D#
12.             IF notes = 12 THEN note = 277.18 'C3
13.             IF notes = 13 THEN note = 246.94 'B
14.             IF notes = 14 THEN note = 185.00 'F#
15.             IF notes = 15 THEN note = 0
16.             IF notes = 16 THEN note = 0
17.  

[SierraKen]

WOW Dav, THANK YOU!!! This is the exact song I was looking for! I added 4 more notes at the end, which are the same sequence as notes  6-9 because it's how I always remembered it. I hope everyone likes it! :))))

Edit: I just removed _ICON _DISPLAY because I believe it was causing the program to crash when I moved the program's window around sometimes.

Code: QB64: [Select]

1. 'Mantel Clock by SierraKen with help for Westminster Quarters hourly song by Dav on the QB64.org forum.
2. 'Created on 12-16-2020
3. SCREEN _NEWIMAGE(800, 600, 32)
4. DIM CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG
5. _TITLE "Mantel Clock - Press Space Bar to play hour chimes at anytime."
6. DO
7.     _LIMIT 50
8.     a = _KEYHIT
9.     IF a = 27 THEN END
10.     IF a = 32 THEN song = 1: a = 0: _DELAY 1
11.     CX = 400: CY = 300: R = 300: C = _RGB32(0, 78, 0)
12.     fillCircle CX, CY, R, C
13.     LINE (100, 300)-(700, 600), C, BF
14.     CX = 400: CY = 300: R = 200: C = _RGB32(183, 139, 100)
15.     fillCircle CX, CY, R, C
16.     FOR lines = .25 TO 10 STEP .1
17.         CIRCLE (400, 300), 250 + lines, _RGB32(0, 55, 0), 2 * _PI, _PI
18.     NEXT lines
19.     LINE (140, 300)-(150, 760), _RGB32(0, 55, 0), BF
20.     LINE (650, 300)-(660, 760), _RGB32(0, 55, 0), BF
21.  
22.     FOR sc = 1 TO 60
23.         ss = (60 - sc) * 6 + 180
24.         x2 = INT(SIN(ss / 180 * 3.141592) * 140) + 400
25.         y2 = INT(COS(ss / 180 * 3.141592) * 140) + 300
26.         CIRCLE (x2, y2), 3, _RGB32(230, 230, 230)
27.         n2 = (60 - sc) * 6 + 180
28.         x3 = INT(SIN(n2 / 180 * 3.141592) * 160) + 390
29.         y3 = INT(COS(n2 / 180 * 3.141592) * 160) + 295
30.         COLOR _RGB32(0, 0, 0), _RGB32(183, 139, 100)
31.         IF sc = 5 THEN _PRINTSTRING (x3, y3), "I"
32.         IF sc = 10 THEN _PRINTSTRING (x3, y3), "II"
33.         IF sc = 15 THEN _PRINTSTRING (x3, y3), "III"
34.         IF sc = 20 THEN _PRINTSTRING (x3, y3), "IV"
35.         IF sc = 25 THEN _PRINTSTRING (x3, y3), "V"
36.         IF sc = 30 THEN _PRINTSTRING (x3, y3), "VI"
37.         IF sc = 35 THEN _PRINTSTRING (x3, y3), "VII"
38.         IF sc = 40 THEN _PRINTSTRING (x3, y3), "VIII"
39.         IF sc = 45 THEN _PRINTSTRING (x3, y3), "IX"
40.         IF sc = 50 THEN _PRINTSTRING (x3, y3), "X"
41.         IF sc = 55 THEN _PRINTSTRING (x3, y3), "XI"
42.         IF sc = 60 THEN _PRINTSTRING (x3, y3), "XII"
43.     NEXT sc
44.     COLOR , _RGB32(0, 0, 0)
45.     clock song
46.     CX = 400: CY = 300: R = 10: C = _RGB32(0, 0, 0)
47.     fillCircle CX, CY, R, C
48.     _DISPLAY
49.     CLS
50. LOOP
51.  
52. 'from Steve Gold standard
53. SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
54.     DIM Radius AS INTEGER, RadiusError AS INTEGER
55.     DIM X AS INTEGER, Y AS INTEGER
56.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
57.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
58.     LINE (CX - X, CY)-(CX + X, CY), C, BF
59.     WHILE X > Y
60.         RadiusError = RadiusError + Y * 2 + 1
61.         IF RadiusError >= 0 THEN
62.             IF X <> Y + 1 THEN
63.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
64.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
65.             END IF
66.             X = X - 1
67.             RadiusError = RadiusError - X * 2
68.         END IF
69.         Y = Y + 1
70.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
71.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
72.     WEND
73. END SUB
74.  
75. SUB clock (song)
76.     hours = TIMER \ 3600
77.     minutes = TIMER \ 60 - hours * 60
78.     seconds = (TIMER - hours * 3600 - minutes * 60)
79.     ho$ = LEFT$(TIME$, 2): hou = VAL(ho$)
80.     min$ = MID$(TIME$, 4, 2): minu = VAL(min$)
81.     seco$ = RIGHT$(TIME$, 2): secon = VAL(seco$)
82.     'Seconds
83.     s = (60 - seconds) * 6 + 180
84.     x = INT(SIN(s / 180 * 3.141592) * 120) + 400
85.     y = INT(COS(s / 180 * 3.141592) * 120) + 300
86.     FOR b = -5 TO 5 STEP .1
87.         LINE (400 + b, 300)-(x, y), _RGB32(255, 255, 128)
88.         LINE (400, 300 + b)-(x, y), _RGB32(255, 255, 128)
89.     NEXT b
90.     'Minutes
91.     m = 180 - minutes * 6
92.     xx = INT(SIN(m / 180 * 3.141592) * 120) + 400
93.     yy = INT(COS(m / 180 * 3.141592) * 120) + 300
94.     FOR b = -5 TO 5 STEP .1
95.         LINE (400 + b, 300)-(xx, yy), _RGB32(0, 0, 0)
96.         LINE (400, 300 + b)-(xx, yy), _RGB32(0, 0, 0)
97.     NEXT b
98.     'Hours
99.     h = 360 - hours * 30 + 180
100.     xxx = INT(SIN(h / 180 * 3.141592) * 90) + 400
101.     yyy = INT(COS(h / 180 * 3.141592) * 90) + 300
102.     FOR b = -5 TO 5 STEP .1
103.         LINE (400 + b, 300)-(xxx, yyy), _RGB32(0, 0, 0)
104.         LINE (400, 300 + b)-(xxx, yyy), _RGB32(0, 0, 0)
105.     NEXT b
106.     'Chimes
107.     IF (minu = 0 AND secon = 0) OR song = 1 THEN
108.         song = 0
109.  
110.         'note frequencies
111.         FOR notes = 1 TO 20
112.             IF notes = 1 THEN note = 311.13 'D#
113.             IF notes = 2 THEN note = 246.94 'B
114.             IF notes = 3 THEN note = 277.18 'C#
115.             IF notes = 4 THEN note = 185.00 'F#
116.             IF notes = 5 THEN note = 0
117.             IF notes = 6 THEN note = 185.00 'F#
118.             IF notes = 7 THEN note = 277.18 'C#
119.             IF notes = 8 THEN note = 311.13 'D#
120.             IF notes = 9 THEN note = 246.94 'B
121.             IF notes = 10 THEN note = 0
122.             IF notes = 11 THEN note = 311.13 'D#
123.             IF notes = 12 THEN note = 277.18 'C3
124.             IF notes = 13 THEN note = 246.94 'B
125.             IF notes = 14 THEN note = 185.00 'F#
126.             IF notes = 15 THEN note = 0
127.             IF notes = 16 THEN note = 185.00 'F#
128.             IF notes = 17 THEN note = 277.18 'C#
129.             IF notes = 18 THEN note = 311.13 'D#
130.             IF notes = 19 THEN note = 246.94 'B
131.             IF notes = 20 THEN note = 0
132.  
133.             DO
134.                 'queue some sound
135.                 DO WHILE _SNDRAWLEN < 0.5 'you may wish to adjust this
136.                     sample = SIN(ttt * note * ATN(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
137.                     sample = sample * EXP(-ttt * 3) 'fade out eliminates clicks after sound
138.                     _SNDRAW sample
139.                     ttt = ttt + 1 / _SNDRATE 'sound card sample frequency determines time
140.                 LOOP
141.                 'do other stuff, but it may interrupt sound
142.             LOOP WHILE ttt < 1 'play for 1 second
143.             DO WHILE _SNDRAWLEN > 0 'Finish any left over queued sound!
144.             LOOP
145.             ttt = 0
146.         NEXT notes
147.         hour2 = hou
148.         IF hour2 > 12 THEN hour2 = hour2 - 12
149.         IF hour2 = 0 THEN hour2 = 12
150.         FOR chimes = 1 TO hour2
151.             ttt = 0
152.             DO
153.                 'queue some sound
154.                 DO WHILE _SNDRAWLEN < 0.1 'you may wish to adjust this
155.                     sample = SIN(ttt * 240 * ATN(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
156.                     sample = sample * EXP(-ttt * 3) 'fade out eliminates clicks after sound
157.                     _SNDRAW sample
158.                     ttt = ttt + 1 / _SNDRATE 'sound card sample frequency determines time
159.                 LOOP
160.                 'do other stuff, but it may interrupt sound
161.             LOOP WHILE ttt < 2 'play for 2 seconds
162.             DO WHILE _SNDRAWLEN > 0 'Finish any left over queued sound!
163.             LOOP
164.         NEXT chimes
165.     END IF
166.     two:
167. END SUB
168.  

[SierraKen]

Everyone can compare the chimes with a real one on this video:

[SierraKen]

I just removed _ICON _DISPLAY because I believe it was causing the program to crash when I moved the program's window around a bit sometimes. So please scroll up to the last one (right before the YouTube video) for the edited code.

[bplus]

Nice clock and idea for chimes. The really low notes sound a tad weak but you are making these sounds with QB64 sound commands, that's kinda amazing!

[Dav]

Good job. _SNDRAW is one of those commands I haven't messed with.  I'm gonna look into it.  If it's possible to play two notes at the same time with it, maybe I can use it with the SPLAY project I started instead of using sound files.

- Dav

[SierraKen]

Thanks B+. Yeah it uses Sound Card sounds. I think built-in ones or something. I'm pretty sure the example I use is from the "ringing bell" example here:

http://www.qb64.org/wiki/SNDRAW

Oh, and at first it does seem a little weak, but if you keep listening to it more and more, it's easier on the ears with the softer sound. For me anyway.

[SierraKen]

I also just added this to the code above:
'Mantle Clock by SierraKen with help for Westminster Quarters hourly song by Dav on the QB64.org forum.
'Created on 12-16-2020

[SierraKen]

I just found out that I have been misspelling this type of mantel. lol So I changed the code again above if you want to fix yours.

[bplus]

The guy who would catch those things for us hasn't been around lately, I hope he is doing well.

[SierraKen]

Here is a YouTube video of the clock chiming at 3pm.

[SierraKen]

Happy New Year Everyone! I just improved this Mantel Clock to make the hour hand move between numbers as the minute hand moves. Here is my gift to all of you to have a GREAT NEW YEAR!

Code: QB64: [Select]

1. 'Mantel Clock by SierraKen with help for Westminster Quarters hourly song by Dav on the QB64.org forum.
2. 'Created on 12-31-2020
3. 'Added: The hour hand moves between hours now.
4. SCREEN _NEWIMAGE(800, 600, 32)
5. DIM CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG
6. _TITLE "Mantel Clock - Press Space Bar to play hour chimes at anytime."
7. DO
8.     _LIMIT 50
9.     a = _KEYHIT
10.     IF a = 27 THEN END
11.     IF a = 32 THEN song = 1: a = 0: _DELAY 1
12.     CX = 400: CY = 300: R = 300: C = _RGB32(0, 78, 0)
13.     fillCircle CX, CY, R, C
14.     LINE (100, 300)-(700, 600), C, BF
15.     CX = 400: CY = 300: R = 200: C = _RGB32(183, 139, 100)
16.     fillCircle CX, CY, R, C
17.     FOR lines = .25 TO 10 STEP .1
18.         CIRCLE (400, 300), 250 + lines, _RGB32(0, 55, 0), 2 * _PI, _PI
19.     NEXT lines
20.     LINE (140, 300)-(150, 760), _RGB32(0, 55, 0), BF
21.     LINE (650, 300)-(660, 760), _RGB32(0, 55, 0), BF
22.  
23.     FOR sc = 1 TO 60
24.         ss = (60 - sc) * 6 + 180
25.         x2 = INT(SIN(ss / 180 * 3.141592) * 140) + 400
26.         y2 = INT(COS(ss / 180 * 3.141592) * 140) + 300
27.         CIRCLE (x2, y2), 3, _RGB32(230, 230, 230)
28.         n2 = (60 - sc) * 6 + 180
29.         x3 = INT(SIN(n2 / 180 * 3.141592) * 160) + 390
30.         y3 = INT(COS(n2 / 180 * 3.141592) * 160) + 295
31.         COLOR _RGB32(0, 0, 0), _RGB32(183, 139, 100)
32.         IF sc = 5 THEN _PRINTSTRING (x3, y3), "I"
33.         IF sc = 10 THEN _PRINTSTRING (x3, y3), "II"
34.         IF sc = 15 THEN _PRINTSTRING (x3, y3), "III"
35.         IF sc = 20 THEN _PRINTSTRING (x3, y3), "IV"
36.         IF sc = 25 THEN _PRINTSTRING (x3, y3), "V"
37.         IF sc = 30 THEN _PRINTSTRING (x3, y3), "VI"
38.         IF sc = 35 THEN _PRINTSTRING (x3, y3), "VII"
39.         IF sc = 40 THEN _PRINTSTRING (x3, y3), "VIII"
40.         IF sc = 45 THEN _PRINTSTRING (x3, y3), "IX"
41.         IF sc = 50 THEN _PRINTSTRING (x3, y3), "X"
42.         IF sc = 55 THEN _PRINTSTRING (x3, y3), "XI"
43.         IF sc = 60 THEN _PRINTSTRING (x3, y3), "XII"
44.     NEXT sc
45.     COLOR , _RGB32(0, 0, 0)
46.     clock song
47.     CX = 400: CY = 300: R = 10: C = _RGB32(0, 0, 0)
48.     fillCircle CX, CY, R, C
49.     _DISPLAY
50.     CLS
51. LOOP
52.  
53. 'from Steve Gold standard
54. SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
55.     DIM Radius AS INTEGER, RadiusError AS INTEGER
56.     DIM X AS INTEGER, Y AS INTEGER
57.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
58.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
59.     LINE (CX - X, CY)-(CX + X, CY), C, BF
60.     WHILE X > Y
61.         RadiusError = RadiusError + Y * 2 + 1
62.         IF RadiusError >= 0 THEN
63.             IF X <> Y + 1 THEN
64.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
65.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
66.             END IF
67.             X = X - 1
68.             RadiusError = RadiusError - X * 2
69.         END IF
70.         Y = Y + 1
71.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
72.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
73.     WEND
74. END SUB
75.  
76. SUB clock (song)
77.     'hours = TIMER \ 3600
78.     hours = (TIMER \ 3600)
79.     minutes = TIMER \ 60 - hours * 60
80.     seconds = (TIMER - hours * 3600 - minutes * 60)
81.     hours = hours + (minutes / 60) 'Code added to make hour hand move between numbers.
82.     ho$ = LEFT$(TIME$, 2): hou = VAL(ho$)
83.     min$ = MID$(TIME$, 4, 2): minu = VAL(min$)
84.     seco$ = RIGHT$(TIME$, 2): secon = VAL(seco$)
85.  
86.     'Seconds
87.     s = (60 - seconds) * 6 + 180
88.     x = INT(SIN(s / 180 * 3.141592) * 120) + 400
89.     y = INT(COS(s / 180 * 3.141592) * 120) + 300
90.     FOR b = -5 TO 5 STEP .1
91.         LINE (400 + b, 300)-(x, y), _RGB32(255, 255, 128)
92.         LINE (400, 300 + b)-(x, y), _RGB32(255, 255, 128)
93.     NEXT b
94.     'Minutes
95.     m = 180 - minutes * 6
96.     xx = INT(SIN(m / 180 * 3.141592) * 120) + 400
97.     yy = INT(COS(m / 180 * 3.141592) * 120) + 300
98.     FOR b = -5 TO 5 STEP .1
99.         LINE (400 + b, 300)-(xx, yy), _RGB32(0, 0, 0)
100.         LINE (400, 300 + b)-(xx, yy), _RGB32(0, 0, 0)
101.     NEXT b
102.     'Hours
103.     h = 360 - hours * 30 + 180
104.     xxx = INT(SIN(h / 180 * 3.141592) * 90) + 400
105.     yyy = INT(COS(h / 180 * 3.141592) * 90) + 300
106.     FOR b = -5 TO 5 STEP .1
107.         LINE (400 + b, 300)-(xxx, yyy), _RGB32(0, 0, 0)
108.         LINE (400, 300 + b)-(xxx, yyy), _RGB32(0, 0, 0)
109.     NEXT b
110.     'Chimes
111.     IF (minu = 0 AND secon = 0) OR song = 1 THEN
112.         song = 0
113.  
114.         'note frequencies
115.         FOR notes = 1 TO 20
116.             IF notes = 1 THEN note = 311.13 'D#
117.             IF notes = 2 THEN note = 246.94 'B
118.             IF notes = 3 THEN note = 277.18 'C#
119.             IF notes = 4 THEN note = 185.00 'F#
120.             IF notes = 5 THEN note = 0
121.             IF notes = 6 THEN note = 185.00 'F#
122.             IF notes = 7 THEN note = 277.18 'C#
123.             IF notes = 8 THEN note = 311.13 'D#
124.             IF notes = 9 THEN note = 246.94 'B
125.             IF notes = 10 THEN note = 0
126.             IF notes = 11 THEN note = 311.13 'D#
127.             IF notes = 12 THEN note = 277.18 'C3
128.             IF notes = 13 THEN note = 246.94 'B
129.             IF notes = 14 THEN note = 185.00 'F#
130.             IF notes = 15 THEN note = 0
131.             IF notes = 16 THEN note = 185.00 'F#
132.             IF notes = 17 THEN note = 277.18 'C#
133.             IF notes = 18 THEN note = 311.13 'D#
134.             IF notes = 19 THEN note = 246.94 'B
135.             IF notes = 20 THEN note = 0
136.  
137.             DO
138.                 'queue some sound
139.                 DO WHILE _SNDRAWLEN < 0.5 'you may wish to adjust this
140.                     sample = SIN(ttt * note * ATN(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
141.                     sample = sample * EXP(-ttt * 3) 'fade out eliminates clicks after sound
142.                     _SNDRAW sample
143.                     ttt = ttt + 1 / _SNDRATE 'sound card sample frequency determines time
144.                 LOOP
145.                 'do other stuff, but it may interrupt sound
146.             LOOP WHILE ttt < 1 'play for 1 second
147.             DO WHILE _SNDRAWLEN > 0 'Finish any left over queued sound!
148.             LOOP
149.             ttt = 0
150.         NEXT notes
151.         hour2 = hou
152.         IF hour2 > 12 THEN hour2 = hour2 - 12
153.         IF hour2 = 0 THEN hour2 = 12
154.         FOR chimes = 1 TO hour2
155.             ttt = 0
156.             DO
157.                 'queue some sound
158.                 DO WHILE _SNDRAWLEN < 0.1 'you may wish to adjust this
159.                     sample = SIN(ttt * 240 * ATN(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
160.                     sample = sample * EXP(-ttt * 3) 'fade out eliminates clicks after sound
161.                     _SNDRAW sample
162.                     ttt = ttt + 1 / _SNDRATE 'sound card sample frequency determines time
163.                 LOOP
164.                 'do other stuff, but it may interrupt sound
165.             LOOP WHILE ttt < 2 'play for 2 seconds
166.             DO WHILE _SNDRAWLEN > 0 'Finish any left over queued sound!
167.             LOOP
168.         NEXT chimes
169.     END IF
170.     two:
171. END SUB
172.  

[_vince]

I like the art of no extra files, nicely done

[SierraKen]

Thanks Vince!