Neon Clock

[SierraKen]

A couple years ago someone told us how to get neon colors using a _GL Sub. I'm guessing it's only for Windows computers but I could be wrong. Anyway, I decided to dig it up tonight and make a Neon Clock. Using CLS and _DISPLAY doesn't work with it (it flashes too much), so instead of CLS on my usual clocks, I drew the neon circles for the clock and used a LINE command to delete the clock hands. Doing this I also added the trail-effect that B+ showed me when I first started. Tell me what you think. It also chimes the hour every hour. Here is a photo of it also below. By the way, how do you view larger photos on here that others are using, I only know the Attachments, thanks.

Code: QB64: [Select]

1. _Title "Neon Clock by SierraKen"
2. Screen _NewImage(600, 600, 32)
3.  
4. Type vec2
5.     x As Single
6.     y As Single
7. End Type
8.  
9. ReDim Shared vert(4024) As vec2, max_v_index
10. Dim Shared rFactor!, gFactor!, bFactor!
11. rFactor! = 0.5: gFactor! = 1: bFactor! = 0.5
12.  
13. Cls
14. For t = 0 To 360 Step .5
15.     x2 = (Sin(t) * 260) + 400
16.     y2 = (Cos(t) * 190) + 300
17.     max_v_index = max_v_index + 1
18.     vert(max_v_index).x = x2
19.     vert(max_v_index).y = y2
20. Next t
21.  
22. For t = 1 To 359
23.     For tt = t - 2 To t + 2 Step .5
24.         x2 = Int((Sin(tt) * 230) + 400)
25.         y2 = Int((Cos(tt) * 170) + 300)
26.         max_v_index = max_v_index + 1
27.         vert(max_v_index).x = x2
28.         vert(max_v_index).y = y2
29.     Next tt
30. Next t
31.  
32. Do
33.     _Limit 30
34.  
35.     hours = Timer \ 3600
36.     minutes = Timer \ 60 - hours * 60
37.     seconds = (Timer - hours * 3600 - minutes * 60)
38.     ho$ = Left$(Time$, 2): hou = Val(ho$)
39.     min$ = Mid$(Time$, 4, 2): minu = Val(min$)
40.     seco$ = Right$(Time$, 2): secon = Val(seco$)
41.  
42.     'Minutes
43.     m = 180 - minutes * 6
44.     xx = Int(Sin(m / 180 * 3.141592) * 120) + 300
45.     yy = Int(Cos(m / 180 * 3.141592) * 120) + 304
46.     For b = -5 To 5 Step .1
47.         Line (300 + b, 304)-(xx, yy), _RGB32(0, 255, 255)
48.         Line (300, 304 + b)-(xx, yy), _RGB32(0, 255, 255)
49.     Next b
50.     'Hours
51.     h = 360 - hours * 30 + 180
52.     xxx = Int(Sin(h / 180 * 3.141592) * 100) + 300
53.     yyy = Int(Cos(h / 180 * 3.141592) * 100) + 304
54.     For b = -5 To 5 Step .1
55.         Line (300 + b, 304)-(xxx, yyy), _RGB32(0, 255, 0)
56.         Line (300, 304 + b)-(xxx, yyy), _RGB32(0, 255, 0)
57.     Next b
58.     'Seconds
59.     s = (60 - seconds) * 6 + 180
60.     xxxx = Int(Sin(s / 180 * 3.141592) * 125) + 300
61.     yyyy = Int(Cos(s / 180 * 3.141592) * 125) + 304
62.     For b = -5 To 5 Step .1
63.         Line (300 + b, 304)-(xxxx, yyyy), _RGB32(255, 0, 0)
64.         Line (300, 304 + b)-(xxxx, yyyy), _RGB32(255, 0, 0)
65.     Next b
66.     _Display
67.     Line (175, 175)-(425, 440), _RGB32(0, 0, 0, 5), BF
68.  
69.     'Chimes
70.     If minu = 0 And secon = 0 Then
71.         hour2 = hou
72.         If hour2 > 12 Then hour2 = hour2 - 12
73.         If hour2 = 0 Then hour2 = 12
74.         For chimes = 1 To hour2
75.             ttt = 0
76.             Do
77.                 'queue some sound
78.                 Do While _SndRawLen < 0.1 'you may wish to adjust this
79.                     sample = Sin(ttt * 340 * Atn(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
80.                     sample = sample * Exp(-ttt * 3) 'fade out eliminates clicks after sound
81.                     _SndRaw sample
82.                     ttt = ttt + 1 / _SndRate 'sound card sample frequency determines time
83.                 Loop
84.                 'do other stuff, but it may interrupt sound
85.             Loop While ttt < 2 'play for 2 seconds
86.             Do While _SndRawLen > 0 'Finish any left over queued sound!
87.             Loop
88.         Next chimes
89.     End If
90.     two:
91. Loop Until InKey$ = Chr$(27)
92.  
93. End
94.  
95. Sub _GL ()
96.     Static glInit
97.     If glInit = 0 Then
98.         glInit = 1
99.  
100.     End If
101.     _glViewport 0, 0, _Width, _Height
102.     'set the gl screen so that it can work normal screen coordinates
103.     _glTranslatef -1, 1, 0
104.     _glScalef 1 / 400, -1 / 300, 1
105.  
106.     _glEnable _GL_BLEND
107.  
108.     _glBlendFunc _GL_SRC_ALPHA, _GL_ONE
109.     _glEnableClientState _GL_VERTEX_ARRAY
110.     _glVertexPointer 2, _GL_FLOAT, 0, _Offset(vert())
111.     For j = 1 To 15
112.         _glColor4f rFactor!, gFactor!, bFactor!, 0.015
113.         _glPointSize j
114.         _glDrawArrays _GL_POINTS, 10, max_v_index
115.     Next
116.     _glFlush
117. End Sub
118.  

[bplus]

Nice looking clock, could probably be done without _GL.

[SierraKen]

Thanks. I just made it a bit fancier, I added details on the clock and Roman Numerals and added the grandfather clock song for every hour. Plus you can press the space bar to hear it anytime. I also changed the hour hand to be a lot smaller than the other hands. There is a photo below.

Code: QB64: [Select]

1. _Title "Neon Clock by SierraKen - Press Space Bar to hear hour anytime"
2. Screen _NewImage(600, 600, 32)
3.  
4. Type vec2
5.     x As Single
6.     y As Single
7. End Type
8.  
9. ReDim Shared vert(4024) As vec2, max_v_index
10. Dim Shared rFactor!, gFactor!, bFactor!
11. rFactor! = 0.5: gFactor! = 1: bFactor! = 0.5
12.  
13. Cls
14. For t = 0 To 360 Step .5
15.     x2 = (Sin(t) * 260) + 400
16.     y2 = (Cos(t) * 190) + 300
17.     max_v_index = max_v_index + 1
18.     vert(max_v_index).x = x2
19.     vert(max_v_index).y = y2
20. Next t
21.  
22. For t = 1 To 359
23.     For tt = t - 2 To t + 2 Step .5
24.         x2 = Int((Sin(tt) * 230) + 400)
25.         y2 = Int((Cos(tt) * 170) + 300)
26.         max_v_index = max_v_index + 1
27.         vert(max_v_index).x = x2
28.         vert(max_v_index).y = y2
29.     Next tt
30. Next t
31.  
32. Do
33.     _Limit 50
34.     For sc = 1 To 60
35.         ss = (60 - sc) * 6 + 180
36.         x4 = Int(Sin(ss / 180 * 3.141592) * 150) + 300
37.         y4 = Int(Cos(ss / 180 * 3.141592) * 150) + 300
38.         Circle (x4, y4), 3, _RGB32(230, 230, 230)
39.         n2 = (60 - sc) * 6 + 180
40.         x3 = Int(Sin(n2 / 180 * 3.141592) * 140) + 290
41.         y3 = Int(Cos(n2 / 180 * 3.141592) * 140) + 295
42.         Color _RGB32(255, 255, 255), _RGB32(0, 0, 0)
43.         If sc = 5 Then _PrintString (x3, y3), "I"
44.         If sc = 10 Then _PrintString (x3, y3), "II"
45.         If sc = 15 Then _PrintString (x3, y3), "III"
46.         If sc = 20 Then _PrintString (x3, y3), "IV"
47.         If sc = 25 Then _PrintString (x3, y3), "V"
48.         If sc = 30 Then _PrintString (x3, y3), "VI"
49.         If sc = 35 Then _PrintString (x3, y3), "VII"
50.         If sc = 40 Then _PrintString (x3, y3), "VIII"
51.         If sc = 45 Then _PrintString (x3, y3), "IX"
52.         If sc = 50 Then _PrintString (x3, y3), "X"
53.         If sc = 55 Then _PrintString (x3, y3), "XI"
54.         If sc = 60 Then _PrintString (x3, y3), "XII"
55.     Next sc
56.  
57.     hours = Timer \ 3600
58.     minutes = Timer \ 60 - hours * 60
59.     seconds = (Timer - hours * 3600 - minutes * 60)
60.     ho$ = Left$(Time$, 2): hou = Val(ho$)
61.     min$ = Mid$(Time$, 4, 2): minu = Val(min$)
62.     seco$ = Right$(Time$, 2): secon = Val(seco$)
63.  
64.     'Minutes
65.     m = 180 - minutes * 6
66.     xx = Int(Sin(m / 180 * 3.141592) * 120) + 300
67.     yy = Int(Cos(m / 180 * 3.141592) * 120) + 304
68.     For b = -5 To 5 Step .1
69.         Line (300 + b, 304)-(xx, yy), _RGB32(0, 255, 255)
70.         Line (300, 304 + b)-(xx, yy), _RGB32(0, 255, 255)
71.     Next b
72.     'Hours
73.     h = 360 - hours * 30 + 180
74.     xxx = Int(Sin(h / 180 * 3.141592) * 75) + 300
75.     yyy = Int(Cos(h / 180 * 3.141592) * 75) + 304
76.     For b = -5 To 5 Step .1
77.         Line (300 + b, 304)-(xxx, yyy), _RGB32(0, 255, 0)
78.         Line (300, 304 + b)-(xxx, yyy), _RGB32(0, 255, 0)
79.     Next b
80.     'Seconds
81.     s = (60 - seconds) * 6 + 180
82.     xxxx = Int(Sin(s / 180 * 3.141592) * 125) + 300
83.     yyyy = Int(Cos(s / 180 * 3.141592) * 125) + 304
84.     For b = -5 To 5 Step .1
85.         Line (300 + b, 304)-(xxxx, yyyy), _RGB32(255, 0, 0)
86.         Line (300, 304 + b)-(xxxx, yyyy), _RGB32(255, 0, 0)
87.     Next b
88.     _Display
89.     Line (175, 175)-(425, 440), _RGB32(0, 0, 0, 5), BF
90.  
91.     'Chimes
92.     If (minu = 0 And secon = 0) Or song = 1 Then
93.         song = 0
94.  
95.         'note frequencies
96.         For notes = 1 To 20
97.             If notes = 1 Then note = 311.13 'D#
98.             If notes = 2 Then note = 246.94 'B
99.             If notes = 3 Then note = 277.18 'C#
100.             If notes = 4 Then note = 185.00 'F#
101.             If notes = 5 Then note = 0
102.             If notes = 6 Then note = 185.00 'F#
103.             If notes = 7 Then note = 277.18 'C#
104.             If notes = 8 Then note = 311.13 'D#
105.             If notes = 9 Then note = 246.94 'B
106.             If notes = 10 Then note = 0
107.             If notes = 11 Then note = 311.13 'D#
108.             If notes = 12 Then note = 277.18 'C3
109.             If notes = 13 Then note = 246.94 'B
110.             If notes = 14 Then note = 185.00 'F#
111.             If notes = 15 Then note = 0
112.             If notes = 16 Then note = 185.00 'F#
113.             If notes = 17 Then note = 277.18 'C#
114.             If notes = 18 Then note = 311.13 'D#
115.             If notes = 19 Then note = 246.94 'B
116.             If notes = 20 Then note = 0
117.  
118.             Do
119.                 'queue some sound
120.                 Do While _SndRawLen < 0.5 'you may wish to adjust this
121.                     sample = Sin(ttt * note * Atn(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
122.                     sample = sample * Exp(-ttt * 3) 'fade out eliminates clicks after sound
123.                     _SndRaw sample
124.                     ttt = ttt + 1 / _SndRate 'sound card sample frequency determines time
125.                 Loop
126.                 'do other stuff, but it may interrupt sound
127.             Loop While ttt < 1 'play for 1 second
128.             Do While _SndRawLen > 0 'Finish any left over queued sound!
129.             Loop
130.             ttt = 0
131.         Next notes
132.         hour2 = hou
133.         If hour2 > 12 Then hour2 = hour2 - 12
134.         If hour2 = 0 Then hour2 = 12
135.         For chimes = 1 To hour2
136.             ttt = 0
137.             Do
138.                 'queue some sound
139.                 Do While _SndRawLen < 0.1 'you may wish to adjust this
140.                     sample = Sin(ttt * 240 * 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 < 2 'play for 2 seconds
147.             Do While _SndRawLen > 0 'Finish any left over queued sound!
148.             Loop
149.         Next chimes
150.     End If
151.     two:
152.     a$ = InKey$
153.     If a$ = Chr$(27) Then End
154.     If a$ = " " Then song = 1
155. Loop
156.  
157. End
158.  
159. Sub _GL ()
160.     Static glInit
161.     If glInit = 0 Then
162.         glInit = 1
163.  
164.     End If
165.     _glViewport 0, 0, _Width, _Height
166.     'set the gl screen so that it can work normal screen coordinates
167.     _glTranslatef -1, 1, 0
168.     _glScalef 1 / 400, -1 / 300, 1
169.  
170.     _glEnable _GL_BLEND
171.  
172.     _glBlendFunc _GL_SRC_ALPHA, _GL_ONE
173.     _glEnableClientState _GL_VERTEX_ARRAY
174.     _glVertexPointer 2, _GL_FLOAT, 0, _Offset(vert())
175.     For j = 1 To 15
176.         _glColor4f rFactor!, gFactor!, bFactor!, 0.015
177.         _glPointSize j
178.         _glDrawArrays _GL_POINTS, 10, max_v_index
179.     Next
180.     _glFlush
181. End Sub
182.  

[SierraKen]

Here is another update. It took me 2 days to figure it out but I finally made a clock pendulum for it. It doesn't use gravity or physics like Static's pendulums, but like many small clock pendulums, I tried to make it swing with the seconds. It might not be exact but it's as good as I can get it. One swing is one second. I also realize the first swing is a bit higher than the rest, but I'm not sure why it does that, but that's OK :). Here is a picture of it below and the code. Feel free to use the Pendulum Sub I made or any other code in your projects.

Code: QB64: [Select]

1. _Title "Neon Clock by SierraKen - Press Space Bar to hear hour anytime"
2. Screen _NewImage(600, 600, 32)
3.  
4. Type vec2
5.     x As Single
6.     y As Single
7. End Type
8.  
9. ReDim Shared vert(4024) As vec2, max_v_index
10. Dim Shared rFactor!, gFactor!, bFactor!
11. rFactor! = 0.5: gFactor! = 1: bFactor! = 0.5
12.  
13. Cls
14. For t = 0 To 360 Step .5
15.     x2 = (Sin(t) * 260) + 400
16.     y2 = (Cos(t) * 190) + 300
17.     max_v_index = max_v_index + 1
18.     vert(max_v_index).x = x2
19.     vert(max_v_index).y = y2
20. Next t
21.  
22. For t = 1 To 359
23.     For tt = t - 2 To t + 2 Step .5
24.         x2 = Int((Sin(tt) * 230) + 400)
25.         y2 = Int((Cos(tt) * 170) + 300)
26.         max_v_index = max_v_index + 1
27.         vert(max_v_index).x = x2
28.         vert(max_v_index).y = y2
29.     Next tt
30. Next t
31. tt = 23
32. d = 0
33. Do
34.     _Limit 50
35.  
36.     For sc = 1 To 60
37.         ss = (60 - sc) * 6 + 180
38.         x4 = Int(Sin(ss / 180 * 3.141592) * 150) + 300
39.         y4 = Int(Cos(ss / 180 * 3.141592) * 150) + 300
40.         Circle (x4, y4), 3, _RGB32(230, 230, 230)
41.         n2 = (60 - sc) * 6 + 180
42.         x3 = Int(Sin(n2 / 180 * 3.141592) * 140) + 290
43.         y3 = Int(Cos(n2 / 180 * 3.141592) * 140) + 295
44.         Color _RGB32(255, 255, 255), _RGB32(0, 0, 0)
45.         If sc = 5 Then _PrintString (x3, y3), "I"
46.         If sc = 10 Then _PrintString (x3, y3), "II"
47.         If sc = 15 Then _PrintString (x3, y3), "III"
48.         If sc = 20 Then _PrintString (x3, y3), "IV"
49.         If sc = 25 Then _PrintString (x3, y3), "V"
50.         If sc = 30 Then _PrintString (x3, y3), "VI"
51.         If sc = 35 Then _PrintString (x3, y3), "VII"
52.         If sc = 40 Then _PrintString (x3, y3), "VIII"
53.         If sc = 45 Then _PrintString (x3, y3), "IX"
54.         If sc = 50 Then _PrintString (x3, y3), "X"
55.         If sc = 55 Then _PrintString (x3, y3), "XI"
56.         If sc = 60 Then _PrintString (x3, y3), "XII"
57.     Next sc
58.  
59.     hours = Timer \ 3600
60.     minutes = Timer \ 60 - hours * 60
61.     seconds = (Timer - hours * 3600 - minutes * 60)
62.     ho$ = Left$(Time$, 2): hou = Val(ho$)
63.     min$ = Mid$(Time$, 4, 2): minu = Val(min$)
64.     seco$ = Right$(Time$, 2): secon = Val(seco$)
65.  
66.     pendulum tt, d
67.  
68.     'Minutes
69.     m = 180 - minutes * 6
70.     xx = Int(Sin(m / 180 * 3.141592) * 120) + 300
71.     yy = Int(Cos(m / 180 * 3.141592) * 120) + 304
72.     For b = -5 To 5 Step .1
73.         Line (300 + b, 304)-(xx, yy), _RGB32(0, 255, 255)
74.         Line (300, 304 + b)-(xx, yy), _RGB32(0, 255, 255)
75.     Next b
76.     'Hours
77.     h = 360 - hours * 30 + 180
78.     xxx = Int(Sin(h / 180 * 3.141592) * 75) + 300
79.     yyy = Int(Cos(h / 180 * 3.141592) * 75) + 304
80.     For b = -5 To 5 Step .1
81.         Line (300 + b, 304)-(xxx, yyy), _RGB32(0, 255, 0)
82.         Line (300, 304 + b)-(xxx, yyy), _RGB32(0, 255, 0)
83.     Next b
84.     'Seconds
85.     s = (60 - seconds) * 6 + 180
86.     xxxx = Int(Sin(s / 180 * 3.141592) * 125) + 300
87.     yyyy = Int(Cos(s / 180 * 3.141592) * 125) + 304
88.     For b = -5 To 5 Step .1
89.         Line (300 + b, 304)-(xxxx, yyyy), _RGB32(255, 0, 0)
90.         Line (300, 304 + b)-(xxxx, yyyy), _RGB32(255, 0, 0)
91.     Next b
92.     _Display
93.     Line (175, 175)-(425, 440), _RGB32(0, 0, 0, 20), BF
94.  
95.     'Chimes
96.     If (minu = 0 And secon = 0) Or song = 1 Then
97.         song = 0
98.  
99.         'note frequencies
100.         For notes = 1 To 20
101.             If notes = 1 Then note = 311.13 'D#
102.             If notes = 2 Then note = 246.94 'B
103.             If notes = 3 Then note = 277.18 'C#
104.             If notes = 4 Then note = 185.00 'F#
105.             If notes = 5 Then note = 0
106.             If notes = 6 Then note = 185.00 'F#
107.             If notes = 7 Then note = 277.18 'C#
108.             If notes = 8 Then note = 311.13 'D#
109.             If notes = 9 Then note = 246.94 'B
110.             If notes = 10 Then note = 0
111.             If notes = 11 Then note = 311.13 'D#
112.             If notes = 12 Then note = 277.18 'C3
113.             If notes = 13 Then note = 246.94 'B
114.             If notes = 14 Then note = 185.00 'F#
115.             If notes = 15 Then note = 0
116.             If notes = 16 Then note = 185.00 'F#
117.             If notes = 17 Then note = 277.18 'C#
118.             If notes = 18 Then note = 311.13 'D#
119.             If notes = 19 Then note = 246.94 'B
120.             If notes = 20 Then note = 0
121.  
122.             Do
123.                 'queue some sound
124.                 Do While _SndRawLen < 0.5 'you may wish to adjust this
125.                     sample = Sin(ttt * note * Atn(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
126.                     sample = sample * Exp(-ttt * 3) 'fade out eliminates clicks after sound
127.                     _SndRaw sample
128.                     ttt = ttt + 1 / _SndRate 'sound card sample frequency determines time
129.                 Loop
130.                 'do other stuff, but it may interrupt sound
131.             Loop While ttt < 1 'play for 1 second
132.             Do While _SndRawLen > 0 'Finish any left over queued sound!
133.             Loop
134.             ttt = 0
135.         Next notes
136.         hour2 = hou
137.         If hour2 > 12 Then hour2 = hour2 - 12
138.         If hour2 = 0 Then hour2 = 12
139.         For chimes = 1 To hour2
140.             ttt = 0
141.             Do
142.                 'queue some sound
143.                 Do While _SndRawLen < 0.1 'you may wish to adjust this
144.                     sample = Sin(ttt * 240 * Atn(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
145.                     sample = sample * Exp(-ttt * 3) 'fade out eliminates clicks after sound
146.                     _SndRaw sample
147.                     ttt = ttt + 1 / _SndRate 'sound card sample frequency determines time
148.                 Loop
149.                 'do other stuff, but it may interrupt sound
150.             Loop While ttt < 2 'play for 2 seconds
151.             Do While _SndRawLen > 0 'Finish any left over queued sound!
152.             Loop
153.         Next chimes
154.     End If
155.     two:
156.     a$ = InKey$
157.     If a$ = Chr$(27) Then End
158.     If a$ = " " Then song = 1
159. Loop
160.  
161. End
162.  
163. Sub pendulum (tt, d)
164.     If d = 0 Then tt = tt + (.26 / 2)
165.     If d = 1 Then tt = tt - (.26 / 2)
166.     If tt < 24.25 Then d = 0
167.     If tt > 26 Then d = 1
168.     x5 = (Sin(tt) * 80) + 300
169.     y5 = (Cos(tt) * 80) + 300
170.     For sz = -3 To 4
171.         Line (300 + sz, 300)-(x5, y5), _RGB32(255, 255, 127)
172.         Line (300, 300 + sz)-(x5, y5), _RGB32(255, 255, 127)
173.     Next sz
174.     For sz = .1 To 15 Step .1
175.         Circle (x5, y5), sz, _RGB32(255, 255, 127)
176.     Next sz
177.     _Delay .06
178.     _Display
179. End Sub
180.  
181. Sub _GL ()
182.     Static glInit
183.     If glInit = 0 Then
184.         glInit = 1
185.  
186.     End If
187.     _glViewport 0, 0, _Width, _Height
188.     'set the gl screen so that it can work normal screen coordinates
189.     _glTranslatef -1, 1, 0
190.     _glScalef 1 / 400, -1 / 300, 1
191.  
192.     _glEnable _GL_BLEND
193.  
194.     _glBlendFunc _GL_SRC_ALPHA, _GL_ONE
195.     _glEnableClientState _GL_VERTEX_ARRAY
196.     _glVertexPointer 2, _GL_FLOAT, 0, _Offset(vert())
197.     For j = 1 To 15
198.         _glColor4f rFactor!, gFactor!, bFactor!, 0.015
199.         _glPointSize j
200.         _glDrawArrays _GL_POINTS, 10, max_v_index
201.     Next
202.     _glFlush
203. End Sub
204.  

[johnno56]

Oh dear. I enjoyed the original version... Now there is no challenge to look forward to when trying to guess the correct time... But I do so like Roman Numerals... Eventually, if modifications continue, press a specific key and the computer will "tell" you the time... I miss the guessing *sigh*

[SierraKen]

Wow Johno, I wondered about that. I'll make 2 selections, one with and one without the inside details, except for the pendulum and hands. I'll also add a key to press for it to speak the time, thanks for the suggestions!

[SierraKen]

I added the computer to speak the time, in AM and PM when you press S. I also added a selections page before the clock starts to either see the Roman Numerals or not. During the clock you can also turn them off and on with 1 and 2. And of course there's the space bar that plays the chimes anytime. All of these selections are on the Title Bar. I also added a small round knob in the center of the clock.

Code: QB64: [Select]

1. _Title "1 Without Numerals  2 With Numerals  S Speak Time  Space Bar For Chimes"
2. Screen _NewImage(600, 600, 32)
3.  
4. Type vec2
5.     x As Single
6.     y As Single
7. End Type
8. Cls
9. Print "Neon Clock Selections"
10. Print "----------------------------------"
11. Print
12. Print "(1) Without Roman Numerals"
13. Print "(2) With Roman Numerals"
14. Print
15. Print "You can also press 1 or 2 anytime."
16. Print
17. Print "->";
18. Do
19.     sel$ = InKey$
20.     If sel$ = "1" Then rom = 0: GoTo nexxx:
21.     If sel$ = "2" Then rom = 1: GoTo nexxx:
22. Loop
23. nexxx:
24. Cls
25. ReDim Shared vert(4024) As vec2, max_v_index
26. Dim Shared rFactor!, gFactor!, bFactor!
27. rFactor! = 0.5: gFactor! = 1: bFactor! = 0.5
28.  
29. Cls
30. For t = 0 To 360 Step .5
31.     x2 = (Sin(t) * 260) + 400
32.     y2 = (Cos(t) * 190) + 300
33.     max_v_index = max_v_index + 1
34.     vert(max_v_index).x = x2
35.     vert(max_v_index).y = y2
36. Next t
37.  
38. For t = 1 To 359
39.     For tt = t - 2 To t + 2 Step .5
40.         x2 = Int((Sin(tt) * 230) + 400)
41.         y2 = Int((Cos(tt) * 170) + 300)
42.         max_v_index = max_v_index + 1
43.         vert(max_v_index).x = x2
44.         vert(max_v_index).y = y2
45.     Next tt
46. Next t
47. tt = 23
48. d = 0
49. Do
50.     _Limit 50
51.     If rom = 0 Then GoTo skip:
52.     For sc = 1 To 60
53.         ss = (60 - sc) * 6 + 180
54.         x4 = Int(Sin(ss / 180 * 3.141592) * 150) + 300
55.         y4 = Int(Cos(ss / 180 * 3.141592) * 150) + 300
56.         Circle (x4, y4), 3, _RGB32(230, 230, 230)
57.         n2 = (60 - sc) * 6 + 180
58.         x3 = Int(Sin(n2 / 180 * 3.141592) * 140) + 290
59.         y3 = Int(Cos(n2 / 180 * 3.141592) * 140) + 295
60.         Color _RGB32(255, 255, 255), _RGB32(0, 0, 0)
61.         If sc = 5 Then _PrintString (x3, y3), "I"
62.         If sc = 10 Then _PrintString (x3, y3), "II"
63.         If sc = 15 Then _PrintString (x3, y3), "III"
64.         If sc = 20 Then _PrintString (x3, y3), "IV"
65.         If sc = 25 Then _PrintString (x3, y3), "V"
66.         If sc = 30 Then _PrintString (x3, y3), "VI"
67.         If sc = 35 Then _PrintString (x3, y3), "VII"
68.         If sc = 40 Then _PrintString (x3, y3), "VIII"
69.         If sc = 45 Then _PrintString (x3, y3), "IX"
70.         If sc = 50 Then _PrintString (x3, y3), "X"
71.         If sc = 55 Then _PrintString (x3, y3), "XI"
72.         If sc = 60 Then _PrintString (x3, y3), "XII"
73.     Next sc
74.     skip:
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.  
82.     pendulum tt, d
83.  
84.     'Minutes
85.     m = 180 - minutes * 6
86.     xx = Int(Sin(m / 180 * 3.141592) * 120) + 300
87.     yy = Int(Cos(m / 180 * 3.141592) * 120) + 304
88.     For b = -5 To 5 Step .1
89.         Line (300 + b, 304)-(xx, yy), _RGB32(0, 255, 255)
90.         Line (300, 304 + b)-(xx, yy), _RGB32(0, 255, 255)
91.     Next b
92.     'Hours
93.     h = 360 - hours * 30 + 180
94.     xxx = Int(Sin(h / 180 * 3.141592) * 75) + 300
95.     yyy = Int(Cos(h / 180 * 3.141592) * 75) + 304
96.     For b = -5 To 5 Step .1
97.         Line (300 + b, 304)-(xxx, yyy), _RGB32(0, 255, 0)
98.         Line (300, 304 + b)-(xxx, yyy), _RGB32(0, 255, 0)
99.     Next b
100.     'Seconds
101.     s = (60 - seconds) * 6 + 180
102.     xxxx = Int(Sin(s / 180 * 3.141592) * 125) + 300
103.     yyyy = Int(Cos(s / 180 * 3.141592) * 125) + 304
104.     For b = -5 To 5 Step .1
105.         Line (300 + b, 304)-(xxxx, yyyy), _RGB32(255, 0, 0)
106.         Line (300, 304 + b)-(xxxx, yyyy), _RGB32(255, 0, 0)
107.     Next b
108.     For sz = .1 To 10 Step .1
109.         Circle (300, 300), sz, _RGB32(255, 255, 127)
110.     Next sz
111.  
112.     _Display
113.     Line (175, 175)-(425, 440), _RGB32(0, 0, 0, 20), BF
114.  
115.     'Chimes
116.     If (minu = 0 And secon = 0) Or song = 1 Then
117.         song = 0
118.  
119.         'note frequencies
120.         For notes = 1 To 20
121.             If notes = 1 Then note = 311.13 'D#
122.             If notes = 2 Then note = 246.94 'B
123.             If notes = 3 Then note = 277.18 'C#
124.             If notes = 4 Then note = 185.00 'F#
125.             If notes = 5 Then note = 0
126.             If notes = 6 Then note = 185.00 'F#
127.             If notes = 7 Then note = 277.18 'C#
128.             If notes = 8 Then note = 311.13 'D#
129.             If notes = 9 Then note = 246.94 'B
130.             If notes = 10 Then note = 0
131.             If notes = 11 Then note = 311.13 'D#
132.             If notes = 12 Then note = 277.18 'C3
133.             If notes = 13 Then note = 246.94 'B
134.             If notes = 14 Then note = 185.00 'F#
135.             If notes = 15 Then note = 0
136.             If notes = 16 Then note = 185.00 'F#
137.             If notes = 17 Then note = 277.18 'C#
138.             If notes = 18 Then note = 311.13 'D#
139.             If notes = 19 Then note = 246.94 'B
140.             If notes = 20 Then note = 0
141.  
142.             Do
143.                 'queue some sound
144.                 Do While _SndRawLen < 0.5 'you may wish to adjust this
145.                     sample = Sin(ttt * note * Atn(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
146.                     sample = sample * Exp(-ttt * 3) 'fade out eliminates clicks after sound
147.                     _SndRaw sample
148.                     ttt = ttt + 1 / _SndRate 'sound card sample frequency determines time
149.                 Loop
150.                 'do other stuff, but it may interrupt sound
151.             Loop While ttt < 1 'play for 1 second
152.             Do While _SndRawLen > 0 'Finish any left over queued sound!
153.             Loop
154.             ttt = 0
155.         Next notes
156.         hour2 = hou
157.         If hour2 > 12 Then hour2 = hour2 - 12
158.         If hour2 = 0 Then hour2 = 12
159.         For chimes = 1 To hour2
160.             ttt = 0
161.             Do
162.                 'queue some sound
163.                 Do While _SndRawLen < 0.1 'you may wish to adjust this
164.                     sample = Sin(ttt * 240 * Atn(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
165.                     sample = sample * Exp(-ttt * 3) 'fade out eliminates clicks after sound
166.                     _SndRaw sample
167.                     ttt = ttt + 1 / _SndRate 'sound card sample frequency determines time
168.                 Loop
169.                 'do other stuff, but it may interrupt sound
170.             Loop While ttt < 2 'play for 2 seconds
171.             Do While _SndRawLen > 0 'Finish any left over queued sound!
172.             Loop
173.         Next chimes
174.     End If
175.     two:
176.     a$ = InKey$
177.     If a$ = Chr$(27) Then End
178.     If a$ = " " Then song = 1
179.     If a$ = "1" Then
180.         rom = 0
181.         For sz = .1 To 180 Step .1
182.             Circle (300, 300), sz, _RGB32(0, 0, 0)
183.         Next sz
184.     End If
185.     If a$ = "2" Then rom = 1
186.     If a$ = "s" Or a$ = "S" Then
187.         hour2 = hou
188.         If hour2 > 12 Then
189.             hour2 = hour2 - 12
190.             ampm$ = "P M"
191.         Else
192.             ampm$ = "A M"
193.         End If
194.         hour3$ = Str$(hour2)
195.         hour4 = Val(hour3$)
196.         hour5$ = Str$(hour4)
197.         min2 = Val(min$)
198.         min3$ = Str$(min2)
199.         seco2 = Val(seco$)
200.         seco3$ = Str$(seco2)
201.         sentence$ = "The time is " + hour5$ + ampm$ + min3$ + " minutes and " + seco3$ + " seconds."
202.         speak sentence$, 1, 0
203.     End If
204. Loop
205.  
206. End
207.  
208. Sub pendulum (tt, d)
209.     If d = 0 Then tt = tt + (.26 / 2)
210.     If d = 1 Then tt = tt - (.26 / 2)
211.     If tt < 24.25 Then d = 0
212.     If tt > 26 Then d = 1
213.     x5 = (Sin(tt) * 80) + 300
214.     y5 = (Cos(tt) * 80) + 300
215.     For sz = -3 To 4
216.         Line (300 + sz, 300)-(x5, y5), _RGB32(255, 255, 127)
217.         Line (300, 300 + sz)-(x5, y5), _RGB32(255, 255, 127)
218.     Next sz
219.     For sz = .1 To 15 Step .1
220.         Circle (x5, y5), sz, _RGB32(255, 255, 127)
221.     Next sz
222.     _Delay .06
223.     _Display
224. End Sub
225.  
226. Sub _GL ()
227.     Static glInit
228.     If glInit = 0 Then
229.         glInit = 1
230.  
231.     End If
232.     _glViewport 0, 0, _Width, _Height
233.     'set the gl screen so that it can work normal screen coordinates
234.     _glTranslatef -1, 1, 0
235.     _glScalef 1 / 400, -1 / 300, 1
236.  
237.     _glEnable _GL_BLEND
238.  
239.     _glBlendFunc _GL_SRC_ALPHA, _GL_ONE
240.     _glEnableClientState _GL_VERTEX_ARRAY
241.     _glVertexPointer 2, _GL_FLOAT, 0, _Offset(vert())
242.     For j = 1 To 15
243.         _glColor4f rFactor!, gFactor!, bFactor!, 0.015
244.         _glPointSize j
245.         _glDrawArrays _GL_POINTS, 10, max_v_index
246.     Next
247.     _glFlush
248. End Sub
249.  
250. Sub speak (text As String, Speaker As Integer, Speed)
251.     Dim message As String, remove$, out$
252.     Dim As Long i, j
253.     message = text
254.     'some symbols and such can't be used with Powershell like this, as they're command symbols
255.     'we need to strip them out of our text.  (Like apostrophes!)
256.     remove$ = "'" + Chr$(34) 'add to remove$ here, if more symbols need to be removed as future testing showcases problems
257.     For j = 1 To Len(remove$)
258.         Do
259.             i = InStr(message, Mid$(remove$, j, 1))
260.             If i Then message = Left$(message, i - 1) + Mid$(message, i + 1)
261.         Loop Until i = 0
262.     Next
263.     out$ = "Powershell -Command " + Chr$(34)
264.     out$ = out$ + "Add-Type -AssemblyName System.Speech; "
265.     out$ = out$ + "$Speech = New-Object System.Speech.Synthesis.SpeechSynthesizer; "
266.     If Speaker = 0 Then out$ = out$ + "$Speech.SelectVoice('Microsoft David Desktop'); "
267.     If Speaker = 1 Then out$ = out$ + "$Speech.SelectVoice('Microsoft Zira Desktop'); "
268.     If Speed Then out$ = out$ + "$Speech.Rate =" + Str$(Speed) + "; "
269.     out$ = out$ + "$Speech.Speak('" + message + "');" + Chr$(34)
270.     Shell _Hide out$
271. End Sub
272.  

[SierraKen]

I forgot hour zero, which is 12 AM. Here is the update:

Code: QB64: [Select]

1. _Title "1 Without Numerals  2 With Numerals  S Speak Time  Space Bar For Chimes"
2. Screen _NewImage(600, 600, 32)
3.  
4. Type vec2
5.     x As Single
6.     y As Single
7. End Type
8. Cls
9. Print "Neon Clock Selections"
10. Print "----------------------------------"
11. Print
12. Print "(1) Without Roman Numerals"
13. Print "(2) With Roman Numerals"
14. Print
15. Print "You can also press 1 or 2 anytime."
16. Print
17. Print "->";
18. Do
19.     sel$ = InKey$
20.     If sel$ = "1" Then rom = 0: GoTo nexxx:
21.     If sel$ = "2" Then rom = 1: GoTo nexxx:
22. Loop
23. nexxx:
24. Cls
25. ReDim Shared vert(4024) As vec2, max_v_index
26. Dim Shared rFactor!, gFactor!, bFactor!
27. rFactor! = 0.5: gFactor! = 1: bFactor! = 0.5
28.  
29. Cls
30. For t = 0 To 360 Step .5
31.     x2 = (Sin(t) * 260) + 400
32.     y2 = (Cos(t) * 190) + 300
33.     max_v_index = max_v_index + 1
34.     vert(max_v_index).x = x2
35.     vert(max_v_index).y = y2
36. Next t
37.  
38. For t = 1 To 359
39.     For tt = t - 2 To t + 2 Step .5
40.         x2 = Int((Sin(tt) * 230) + 400)
41.         y2 = Int((Cos(tt) * 170) + 300)
42.         max_v_index = max_v_index + 1
43.         vert(max_v_index).x = x2
44.         vert(max_v_index).y = y2
45.     Next tt
46. Next t
47. tt = 23
48. d = 0
49. Do
50.     _Limit 50
51.     If rom = 0 Then GoTo skip:
52.     For sc = 1 To 60
53.         ss = (60 - sc) * 6 + 180
54.         x4 = Int(Sin(ss / 180 * 3.141592) * 150) + 300
55.         y4 = Int(Cos(ss / 180 * 3.141592) * 150) + 300
56.         Circle (x4, y4), 3, _RGB32(230, 230, 230)
57.         n2 = (60 - sc) * 6 + 180
58.         x3 = Int(Sin(n2 / 180 * 3.141592) * 140) + 290
59.         y3 = Int(Cos(n2 / 180 * 3.141592) * 140) + 295
60.         Color _RGB32(255, 255, 255), _RGB32(0, 0, 0)
61.         If sc = 5 Then _PrintString (x3, y3), "I"
62.         If sc = 10 Then _PrintString (x3, y3), "II"
63.         If sc = 15 Then _PrintString (x3, y3), "III"
64.         If sc = 20 Then _PrintString (x3, y3), "IV"
65.         If sc = 25 Then _PrintString (x3, y3), "V"
66.         If sc = 30 Then _PrintString (x3, y3), "VI"
67.         If sc = 35 Then _PrintString (x3, y3), "VII"
68.         If sc = 40 Then _PrintString (x3, y3), "VIII"
69.         If sc = 45 Then _PrintString (x3, y3), "IX"
70.         If sc = 50 Then _PrintString (x3, y3), "X"
71.         If sc = 55 Then _PrintString (x3, y3), "XI"
72.         If sc = 60 Then _PrintString (x3, y3), "XII"
73.     Next sc
74.     skip:
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.  
82.     pendulum tt, d
83.  
84.     'Minutes
85.     m = 180 - minutes * 6
86.     xx = Int(Sin(m / 180 * 3.141592) * 120) + 300
87.     yy = Int(Cos(m / 180 * 3.141592) * 120) + 304
88.     For b = -5 To 5 Step .1
89.         Line (300 + b, 304)-(xx, yy), _RGB32(0, 255, 255)
90.         Line (300, 304 + b)-(xx, yy), _RGB32(0, 255, 255)
91.     Next b
92.     'Hours
93.     h = 360 - hours * 30 + 180
94.     xxx = Int(Sin(h / 180 * 3.141592) * 75) + 300
95.     yyy = Int(Cos(h / 180 * 3.141592) * 75) + 304
96.     For b = -5 To 5 Step .1
97.         Line (300 + b, 304)-(xxx, yyy), _RGB32(0, 255, 0)
98.         Line (300, 304 + b)-(xxx, yyy), _RGB32(0, 255, 0)
99.     Next b
100.     'Seconds
101.     s = (60 - seconds) * 6 + 180
102.     xxxx = Int(Sin(s / 180 * 3.141592) * 125) + 300
103.     yyyy = Int(Cos(s / 180 * 3.141592) * 125) + 304
104.     For b = -5 To 5 Step .1
105.         Line (300 + b, 304)-(xxxx, yyyy), _RGB32(255, 0, 0)
106.         Line (300, 304 + b)-(xxxx, yyyy), _RGB32(255, 0, 0)
107.     Next b
108.     For sz = .1 To 10 Step .1
109.         Circle (300, 300), sz, _RGB32(255, 255, 127)
110.     Next sz
111.  
112.     _Display
113.     Line (175, 175)-(425, 440), _RGB32(0, 0, 0, 20), BF
114.  
115.     'Chimes
116.     If (minu = 0 And secon = 0) Or song = 1 Then
117.         song = 0
118.  
119.         'note frequencies
120.         For notes = 1 To 20
121.             If notes = 1 Then note = 311.13 'D#
122.             If notes = 2 Then note = 246.94 'B
123.             If notes = 3 Then note = 277.18 'C#
124.             If notes = 4 Then note = 185.00 'F#
125.             If notes = 5 Then note = 0
126.             If notes = 6 Then note = 185.00 'F#
127.             If notes = 7 Then note = 277.18 'C#
128.             If notes = 8 Then note = 311.13 'D#
129.             If notes = 9 Then note = 246.94 'B
130.             If notes = 10 Then note = 0
131.             If notes = 11 Then note = 311.13 'D#
132.             If notes = 12 Then note = 277.18 'C3
133.             If notes = 13 Then note = 246.94 'B
134.             If notes = 14 Then note = 185.00 'F#
135.             If notes = 15 Then note = 0
136.             If notes = 16 Then note = 185.00 'F#
137.             If notes = 17 Then note = 277.18 'C#
138.             If notes = 18 Then note = 311.13 'D#
139.             If notes = 19 Then note = 246.94 'B
140.             If notes = 20 Then note = 0
141.  
142.             Do
143.                 'queue some sound
144.                 Do While _SndRawLen < 0.5 'you may wish to adjust this
145.                     sample = Sin(ttt * note * Atn(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
146.                     sample = sample * Exp(-ttt * 3) 'fade out eliminates clicks after sound
147.                     _SndRaw sample
148.                     ttt = ttt + 1 / _SndRate 'sound card sample frequency determines time
149.                 Loop
150.                 'do other stuff, but it may interrupt sound
151.             Loop While ttt < 1 'play for 1 second
152.             Do While _SndRawLen > 0 'Finish any left over queued sound!
153.             Loop
154.             ttt = 0
155.         Next notes
156.         hour2 = hou
157.         If hour2 > 12 Then hour2 = hour2 - 12
158.         If hour2 = 0 Then hour2 = 12
159.         For chimes = 1 To hour2
160.             ttt = 0
161.             Do
162.                 'queue some sound
163.                 Do While _SndRawLen < 0.1 'you may wish to adjust this
164.                     sample = Sin(ttt * 240 * Atn(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
165.                     sample = sample * Exp(-ttt * 3) 'fade out eliminates clicks after sound
166.                     _SndRaw sample
167.                     ttt = ttt + 1 / _SndRate 'sound card sample frequency determines time
168.                 Loop
169.                 'do other stuff, but it may interrupt sound
170.             Loop While ttt < 2 'play for 2 seconds
171.             Do While _SndRawLen > 0 'Finish any left over queued sound!
172.             Loop
173.         Next chimes
174.     End If
175.     two:
176.     a$ = InKey$
177.     If a$ = Chr$(27) Then End
178.     If a$ = " " Then song = 1
179.     If a$ = "1" Then
180.         rom = 0
181.         For sz = .1 To 180 Step .1
182.             Circle (300, 300), sz, _RGB32(0, 0, 0)
183.         Next sz
184.     End If
185.     If a$ = "2" Then rom = 1
186.     If a$ = "s" Or a$ = "S" Then
187.         hour2 = hou
188.         If hour2 > 12 Then
189.             hour2 = hour2 - 12
190.             ampm$ = "P M"
191.         Else
192.             ampm$ = "A M"
193.         End If
194.         hour3$ = Str$(hour2)
195.         hour4 = Val(hour3$)
196.         If hour4 = 0 Then hour4 = 12
197.         hour5$ = Str$(hour4)
198.         min2 = Val(min$)
199.         min3$ = Str$(min2)
200.         seco2 = Val(seco$)
201.         seco3$ = Str$(seco2)
202.         sentence$ = "The time is " + hour5$ + ampm$ + min3$ + " minutes and " + seco3$ + " seconds."
203.         speak sentence$, 1, 0
204.     End If
205. Loop
206.  
207. End
208.  
209. Sub pendulum (tt, d)
210.     If d = 0 Then tt = tt + (.26 / 2)
211.     If d = 1 Then tt = tt - (.26 / 2)
212.     If tt < 24.25 Then d = 0
213.     If tt > 26 Then d = 1
214.     x5 = (Sin(tt) * 80) + 300
215.     y5 = (Cos(tt) * 80) + 300
216.     For sz = -3 To 4
217.         Line (300 + sz, 300)-(x5, y5), _RGB32(255, 255, 127)
218.         Line (300, 300 + sz)-(x5, y5), _RGB32(255, 255, 127)
219.     Next sz
220.     For sz = .1 To 15 Step .1
221.         Circle (x5, y5), sz, _RGB32(255, 255, 127)
222.     Next sz
223.     _Delay .06
224.     _Display
225. End Sub
226.  
227. Sub _GL ()
228.     Static glInit
229.     If glInit = 0 Then
230.         glInit = 1
231.  
232.     End If
233.     _glViewport 0, 0, _Width, _Height
234.     'set the gl screen so that it can work normal screen coordinates
235.     _glTranslatef -1, 1, 0
236.     _glScalef 1 / 400, -1 / 300, 1
237.  
238.     _glEnable _GL_BLEND
239.  
240.     _glBlendFunc _GL_SRC_ALPHA, _GL_ONE
241.     _glEnableClientState _GL_VERTEX_ARRAY
242.     _glVertexPointer 2, _GL_FLOAT, 0, _Offset(vert())
243.     For j = 1 To 15
244.         _glColor4f rFactor!, gFactor!, bFactor!, 0.015
245.         _glPointSize j
246.         _glDrawArrays _GL_POINTS, 10, max_v_index
247.     Next
248.     _glFlush
249. End Sub
250.  
251. Sub speak (text As String, Speaker As Integer, Speed)
252.     Dim message As String, remove$, out$
253.     Dim As Long i, j
254.     message = text
255.     'some symbols and such can't be used with Powershell like this, as they're command symbols
256.     'we need to strip them out of our text.  (Like apostrophes!)
257.     remove$ = "'" + Chr$(34) 'add to remove$ here, if more symbols need to be removed as future testing showcases problems
258.     For j = 1 To Len(remove$)
259.         Do
260.             i = InStr(message, Mid$(remove$, j, 1))
261.             If i Then message = Left$(message, i - 1) + Mid$(message, i + 1)
262.         Loop Until i = 0
263.     Next
264.     out$ = "Powershell -Command " + Chr$(34)
265.     out$ = out$ + "Add-Type -AssemblyName System.Speech; "
266.     out$ = out$ + "$Speech = New-Object System.Speech.Synthesis.SpeechSynthesizer; "
267.     If Speaker = 0 Then out$ = out$ + "$Speech.SelectVoice('Microsoft David Desktop'); "
268.     If Speaker = 1 Then out$ = out$ + "$Speech.SelectVoice('Microsoft Zira Desktop'); "
269.     If Speed Then out$ = out$ + "$Speech.Rate =" + Str$(Speed) + "; "
270.     out$ = out$ + "$Speech.Speak('" + message + "');" + Chr$(34)
271.     Shell _Hide out$
272. End Sub
273.  

[SierraKen]

Slight change again. I had to fix the AM/PM at 12 PM.

Code: QB64: [Select]

1. _Title "1 Without Numerals  2 With Numerals  S Speak Time  Space Bar For Chimes"
2. Screen _NewImage(600, 600, 32)
3.  
4. Type vec2
5.     x As Single
6.     y As Single
7. End Type
8. Cls
9. Print "Neon Clock Selections"
10. Print "----------------------------------"
11. Print
12. Print "(1) Without Roman Numerals"
13. Print "(2) With Roman Numerals"
14. Print
15. Print "You can also press 1 or 2 anytime."
16. Print
17. Print "->";
18. Do
19.     sel$ = InKey$
20.     If sel$ = "1" Then rom = 0: GoTo nexxx:
21.     If sel$ = "2" Then rom = 1: GoTo nexxx:
22. Loop
23. nexxx:
24. Cls
25. ReDim Shared vert(4024) As vec2, max_v_index
26. Dim Shared rFactor!, gFactor!, bFactor!
27. rFactor! = 0.5: gFactor! = 1: bFactor! = 0.5
28.  
29. Cls
30. For t = 0 To 360 Step .5
31.     x2 = (Sin(t) * 260) + 400
32.     y2 = (Cos(t) * 190) + 300
33.     max_v_index = max_v_index + 1
34.     vert(max_v_index).x = x2
35.     vert(max_v_index).y = y2
36. Next t
37.  
38. For t = 1 To 359
39.     For tt = t - 2 To t + 2 Step .5
40.         x2 = Int((Sin(tt) * 230) + 400)
41.         y2 = Int((Cos(tt) * 170) + 300)
42.         max_v_index = max_v_index + 1
43.         vert(max_v_index).x = x2
44.         vert(max_v_index).y = y2
45.     Next tt
46. Next t
47. tt = 23
48. d = 0
49. Do
50.     _Limit 50
51.     If rom = 0 Then GoTo skip:
52.     For sc = 1 To 60
53.         ss = (60 - sc) * 6 + 180
54.         x4 = Int(Sin(ss / 180 * 3.141592) * 150) + 300
55.         y4 = Int(Cos(ss / 180 * 3.141592) * 150) + 300
56.         Circle (x4, y4), 3, _RGB32(230, 230, 230)
57.         n2 = (60 - sc) * 6 + 180
58.         x3 = Int(Sin(n2 / 180 * 3.141592) * 140) + 290
59.         y3 = Int(Cos(n2 / 180 * 3.141592) * 140) + 295
60.         Color _RGB32(255, 255, 255), _RGB32(0, 0, 0)
61.         If sc = 5 Then _PrintString (x3, y3), "I"
62.         If sc = 10 Then _PrintString (x3, y3), "II"
63.         If sc = 15 Then _PrintString (x3, y3), "III"
64.         If sc = 20 Then _PrintString (x3, y3), "IV"
65.         If sc = 25 Then _PrintString (x3, y3), "V"
66.         If sc = 30 Then _PrintString (x3, y3), "VI"
67.         If sc = 35 Then _PrintString (x3, y3), "VII"
68.         If sc = 40 Then _PrintString (x3, y3), "VIII"
69.         If sc = 45 Then _PrintString (x3, y3), "IX"
70.         If sc = 50 Then _PrintString (x3, y3), "X"
71.         If sc = 55 Then _PrintString (x3, y3), "XI"
72.         If sc = 60 Then _PrintString (x3, y3), "XII"
73.     Next sc
74.     skip:
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.  
82.     pendulum tt, d
83.  
84.     'Minutes
85.     m = 180 - minutes * 6
86.     xx = Int(Sin(m / 180 * 3.141592) * 120) + 300
87.     yy = Int(Cos(m / 180 * 3.141592) * 120) + 304
88.     For b = -5 To 5 Step .1
89.         Line (300 + b, 304)-(xx, yy), _RGB32(0, 255, 255)
90.         Line (300, 304 + b)-(xx, yy), _RGB32(0, 255, 255)
91.     Next b
92.     'Hours
93.     h = 360 - hours * 30 + 180
94.     xxx = Int(Sin(h / 180 * 3.141592) * 75) + 300
95.     yyy = Int(Cos(h / 180 * 3.141592) * 75) + 304
96.     For b = -5 To 5 Step .1
97.         Line (300 + b, 304)-(xxx, yyy), _RGB32(0, 255, 0)
98.         Line (300, 304 + b)-(xxx, yyy), _RGB32(0, 255, 0)
99.     Next b
100.     'Seconds
101.     s = (60 - seconds) * 6 + 180
102.     xxxx = Int(Sin(s / 180 * 3.141592) * 125) + 300
103.     yyyy = Int(Cos(s / 180 * 3.141592) * 125) + 304
104.     For b = -5 To 5 Step .1
105.         Line (300 + b, 304)-(xxxx, yyyy), _RGB32(255, 0, 0)
106.         Line (300, 304 + b)-(xxxx, yyyy), _RGB32(255, 0, 0)
107.     Next b
108.     For sz = .1 To 10 Step .1
109.         Circle (300, 300), sz, _RGB32(255, 255, 127)
110.     Next sz
111.  
112.     _Display
113.     Line (175, 175)-(425, 440), _RGB32(0, 0, 0, 20), BF
114.  
115.     'Chimes
116.     If (minu = 0 And secon = 0) Or song = 1 Then
117.         song = 0
118.  
119.         'note frequencies
120.         For notes = 1 To 20
121.             If notes = 1 Then note = 311.13 'D#
122.             If notes = 2 Then note = 246.94 'B
123.             If notes = 3 Then note = 277.18 'C#
124.             If notes = 4 Then note = 185.00 'F#
125.             If notes = 5 Then note = 0
126.             If notes = 6 Then note = 185.00 'F#
127.             If notes = 7 Then note = 277.18 'C#
128.             If notes = 8 Then note = 311.13 'D#
129.             If notes = 9 Then note = 246.94 'B
130.             If notes = 10 Then note = 0
131.             If notes = 11 Then note = 311.13 'D#
132.             If notes = 12 Then note = 277.18 'C3
133.             If notes = 13 Then note = 246.94 'B
134.             If notes = 14 Then note = 185.00 'F#
135.             If notes = 15 Then note = 0
136.             If notes = 16 Then note = 185.00 'F#
137.             If notes = 17 Then note = 277.18 'C#
138.             If notes = 18 Then note = 311.13 'D#
139.             If notes = 19 Then note = 246.94 'B
140.             If notes = 20 Then note = 0
141.  
142.             Do
143.                 'queue some sound
144.                 Do While _SndRawLen < 0.5 'you may wish to adjust this
145.                     sample = Sin(ttt * note * Atn(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
146.                     sample = sample * Exp(-ttt * 3) 'fade out eliminates clicks after sound
147.                     _SndRaw sample
148.                     ttt = ttt + 1 / _SndRate 'sound card sample frequency determines time
149.                 Loop
150.                 'do other stuff, but it may interrupt sound
151.             Loop While ttt < 1 'play for 1 second
152.             Do While _SndRawLen > 0 'Finish any left over queued sound!
153.             Loop
154.             ttt = 0
155.         Next notes
156.         hour2 = hou
157.         If hour2 > 12 Then hour2 = hour2 - 12
158.         If hour2 = 0 Then hour2 = 12
159.         For chimes = 1 To hour2
160.             ttt = 0
161.             Do
162.                 'queue some sound
163.                 Do While _SndRawLen < 0.1 'you may wish to adjust this
164.                     sample = Sin(ttt * 240 * Atn(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
165.                     sample = sample * Exp(-ttt * 3) 'fade out eliminates clicks after sound
166.                     _SndRaw sample
167.                     ttt = ttt + 1 / _SndRate 'sound card sample frequency determines time
168.                 Loop
169.                 'do other stuff, but it may interrupt sound
170.             Loop While ttt < 2 'play for 2 seconds
171.             Do While _SndRawLen > 0 'Finish any left over queued sound!
172.             Loop
173.         Next chimes
174.     End If
175.     two:
176.     a$ = InKey$
177.     If a$ = Chr$(27) Then End
178.     If a$ = " " Then song = 1
179.     If a$ = "1" Then
180.         rom = 0
181.         For sz = .1 To 180 Step .1
182.             Circle (300, 300), sz, _RGB32(0, 0, 0)
183.         Next sz
184.     End If
185.     If a$ = "2" Then rom = 1
186.     If a$ = "s" Or a$ = "S" Then
187.         hour2 = hou
188.         If hour2 > 11 Then
189.             ampm$ = "P M"
190.         Else
191.             ampm$ = "A M"
192.         End If
193.         If hour2 > 12 Then hour2 = hour2 - 12
194.         hour3$ = Str$(hour2)
195.         hour4 = Val(hour3$)
196.         If hour4 = 0 Then hour4 = 12
197.         hour5$ = Str$(hour4)
198.         min2 = Val(min$)
199.         min3$ = Str$(min2)
200.         seco2 = Val(seco$)
201.         seco3$ = Str$(seco2)
202.         sentence$ = "The time is " + hour5$ + ampm$ + min3$ + " minutes and " + seco3$ + " seconds."
203.         speak sentence$, 1, 0
204.     End If
205. Loop
206.  
207. End
208.  
209. Sub pendulum (tt, d)
210.     If d = 0 Then tt = tt + (.26 / 2)
211.     If d = 1 Then tt = tt - (.26 / 2)
212.     If tt < 24.25 Then d = 0
213.     If tt > 26 Then d = 1
214.     x5 = (Sin(tt) * 80) + 300
215.     y5 = (Cos(tt) * 80) + 300
216.     For sz = -3 To 4
217.         Line (300 + sz, 300)-(x5, y5), _RGB32(255, 255, 127)
218.         Line (300, 300 + sz)-(x5, y5), _RGB32(255, 255, 127)
219.     Next sz
220.     For sz = .1 To 15 Step .1
221.         Circle (x5, y5), sz, _RGB32(255, 255, 127)
222.     Next sz
223.     _Delay .06
224.     _Display
225. End Sub
226.  
227. Sub _GL ()
228.     Static glInit
229.     If glInit = 0 Then
230.         glInit = 1
231.  
232.     End If
233.     _glViewport 0, 0, _Width, _Height
234.     'set the gl screen so that it can work normal screen coordinates
235.     _glTranslatef -1, 1, 0
236.     _glScalef 1 / 400, -1 / 300, 1
237.  
238.     _glEnable _GL_BLEND
239.  
240.     _glBlendFunc _GL_SRC_ALPHA, _GL_ONE
241.     _glEnableClientState _GL_VERTEX_ARRAY
242.     _glVertexPointer 2, _GL_FLOAT, 0, _Offset(vert())
243.     For j = 1 To 15
244.         _glColor4f rFactor!, gFactor!, bFactor!, 0.015
245.         _glPointSize j
246.         _glDrawArrays _GL_POINTS, 10, max_v_index
247.     Next
248.     _glFlush
249. End Sub
250.  
251. Sub speak (text As String, Speaker As Integer, Speed)
252.     Dim message As String, remove$, out$
253.     Dim As Long i, j
254.     message = text
255.     'some symbols and such can't be used with Powershell like this, as they're command symbols
256.     'we need to strip them out of our text.  (Like apostrophes!)
257.     remove$ = "'" + Chr$(34) 'add to remove$ here, if more symbols need to be removed as future testing showcases problems
258.     For j = 1 To Len(remove$)
259.         Do
260.             i = InStr(message, Mid$(remove$, j, 1))
261.             If i Then message = Left$(message, i - 1) + Mid$(message, i + 1)
262.         Loop Until i = 0
263.     Next
264.     out$ = "Powershell -Command " + Chr$(34)
265.     out$ = out$ + "Add-Type -AssemblyName System.Speech; "
266.     out$ = out$ + "$Speech = New-Object System.Speech.Synthesis.SpeechSynthesizer; "
267.     If Speaker = 0 Then out$ = out$ + "$Speech.SelectVoice('Microsoft David Desktop'); "
268.     If Speaker = 1 Then out$ = out$ + "$Speech.SelectVoice('Microsoft Zira Desktop'); "
269.     If Speed Then out$ = out$ + "$Speech.Rate =" + Str$(Speed) + "; "
270.     out$ = out$ + "$Speech.Speak('" + message + "');" + Chr$(34)
271.     Shell _Hide out$
272. End Sub
273.  

[SMcNeill]

Oh dear. I enjoyed the original version... Now there is no challenge to look forward to when trying to guess the correct time... But I do so like Roman Numerals... Eventually, if modifications continue, press a specific key and the computer will "tell" you the time... I miss the guessing *sigh*

You sound like you'd love a Roman Clock.

The Romans used 24 hour days, but they kept time from sun rise to sun set.  On the first day of summer, we have about 14 hours of daylight.  On the first day of winter, there's only about 10 hours of daylight. 

The difference in Roman time and modern time is that these hours aren't based on a whole day being broken down into 24 one-hour chunks.  The Roman day was 12 hours daylight, 12 hours darkness -- so the length of those 12 hours of daylight were about 70 minutes long in summer and only 50 minutes long in winter....

Which sounds like any modern clock that used Roman Time would certainly require a LOT of guessing!

[STxAxTIC]

Not really sure what's going on here overall, but I had to fix the pendulum:

Code: QB64: [Select]

1. _Title "1 Without Numerals  2 With Numerals  S Speak Time  Space Bar For Chimes"
2. Screen _NewImage(600, 600, 32)
3.  
4. Type vec2
5.     x As Single
6.     y As Single
7. End Type
8. Cls
9. Print "Neon Clock Selections"
10. Print "----------------------------------"
11. Print
12. Print "(1) Without Roman Numerals"
13. Print "(2) With Roman Numerals"
14. Print
15. Print "You can also press 1 or 2 anytime."
16. Print
17. Print "->";
18. Do
19.     sel$ = InKey$
20.     If sel$ = "1" Then rom = 0: GoTo nexxx:
21.     If sel$ = "2" Then rom = 1: GoTo nexxx:
22. Loop
23. nexxx:
24. Cls
25. ReDim Shared vert(4024) As vec2, max_v_index
26. Dim Shared rFactor!, gFactor!, bFactor!
27. rFactor! = 0.5: gFactor! = 1: bFactor! = 0.5
28.  
29. Cls
30. For t = 0 To 360 Step .5
31.     x2 = (Sin(t) * 260) + 400
32.     y2 = (Cos(t) * 190) + 300
33.     max_v_index = max_v_index + 1
34.     vert(max_v_index).x = x2
35.     vert(max_v_index).y = y2
36. Next t
37.  
38. For t = 1 To 359
39.     For tt = t - 2 To t + 2 Step .5
40.         x2 = Int((Sin(tt) * 230) + 400)
41.         y2 = Int((Cos(tt) * 170) + 300)
42.         max_v_index = max_v_index + 1
43.         vert(max_v_index).x = x2
44.         vert(max_v_index).y = y2
45.     Next tt
46. Next t
47. tt = 23
48. d = 0
49. Do
50.     _Limit 50
51.     If rom = 0 Then GoTo skip:
52.     For sc = 1 To 60
53.         ss = (60 - sc) * 6 + 180
54.         x4 = Int(Sin(ss / 180 * 3.141592) * 150) + 300
55.         y4 = Int(Cos(ss / 180 * 3.141592) * 150) + 300
56.         Circle (x4, y4), 3, _RGB32(230, 230, 230)
57.         n2 = (60 - sc) * 6 + 180
58.         x3 = Int(Sin(n2 / 180 * 3.141592) * 140) + 290
59.         y3 = Int(Cos(n2 / 180 * 3.141592) * 140) + 295
60.         Color _RGB32(255, 255, 255), _RGB32(0, 0, 0)
61.         If sc = 5 Then _PrintString (x3, y3), "I"
62.         If sc = 10 Then _PrintString (x3, y3), "II"
63.         If sc = 15 Then _PrintString (x3, y3), "III"
64.         If sc = 20 Then _PrintString (x3, y3), "IV"
65.         If sc = 25 Then _PrintString (x3, y3), "V"
66.         If sc = 30 Then _PrintString (x3, y3), "VI"
67.         If sc = 35 Then _PrintString (x3, y3), "VII"
68.         If sc = 40 Then _PrintString (x3, y3), "VIII"
69.         If sc = 45 Then _PrintString (x3, y3), "IX"
70.         If sc = 50 Then _PrintString (x3, y3), "X"
71.         If sc = 55 Then _PrintString (x3, y3), "XI"
72.         If sc = 60 Then _PrintString (x3, y3), "XII"
73.     Next sc
74.     skip:
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.  
82.     pendulum tt, d
83.  
84.     'Minutes
85.     m = 180 - minutes * 6
86.     xx = Int(Sin(m / 180 * 3.141592) * 120) + 300
87.     yy = Int(Cos(m / 180 * 3.141592) * 120) + 304
88.     For b = -5 To 5 Step .1
89.         Line (300 + b, 304)-(xx, yy), _RGB32(0, 255, 255)
90.         Line (300, 304 + b)-(xx, yy), _RGB32(0, 255, 255)
91.     Next b
92.     'Hours
93.     h = 360 - hours * 30 + 180
94.     xxx = Int(Sin(h / 180 * 3.141592) * 75) + 300
95.     yyy = Int(Cos(h / 180 * 3.141592) * 75) + 304
96.     For b = -5 To 5 Step .1
97.         Line (300 + b, 304)-(xxx, yyy), _RGB32(0, 255, 0)
98.         Line (300, 304 + b)-(xxx, yyy), _RGB32(0, 255, 0)
99.     Next b
100.     'Seconds
101.     s = (60 - seconds) * 6 + 180
102.     xxxx = Int(Sin(s / 180 * 3.141592) * 125) + 300
103.     yyyy = Int(Cos(s / 180 * 3.141592) * 125) + 304
104.     For b = -5 To 5 Step .1
105.         Line (300 + b, 304)-(xxxx, yyyy), _RGB32(255, 0, 0)
106.         Line (300, 304 + b)-(xxxx, yyyy), _RGB32(255, 0, 0)
107.     Next b
108.     For sz = .1 To 10 Step .1
109.         Circle (300, 300), sz, _RGB32(255, 255, 127)
110.     Next sz
111.  
112.     _Display
113.     Line (175, 175)-(425, 440), _RGB32(0, 0, 0, 20), BF
114.  
115.     'Chimes
116.     If (minu = 0 And secon = 0) Or song = 1 Then
117.         song = 0
118.  
119.         'note frequencies
120.         For notes = 1 To 20
121.             If notes = 1 Then note = 311.13 'D#
122.             If notes = 2 Then note = 246.94 'B
123.             If notes = 3 Then note = 277.18 'C#
124.             If notes = 4 Then note = 185.00 'F#
125.             If notes = 5 Then note = 0
126.             If notes = 6 Then note = 185.00 'F#
127.             If notes = 7 Then note = 277.18 'C#
128.             If notes = 8 Then note = 311.13 'D#
129.             If notes = 9 Then note = 246.94 'B
130.             If notes = 10 Then note = 0
131.             If notes = 11 Then note = 311.13 'D#
132.             If notes = 12 Then note = 277.18 'C3
133.             If notes = 13 Then note = 246.94 'B
134.             If notes = 14 Then note = 185.00 'F#
135.             If notes = 15 Then note = 0
136.             If notes = 16 Then note = 185.00 'F#
137.             If notes = 17 Then note = 277.18 'C#
138.             If notes = 18 Then note = 311.13 'D#
139.             If notes = 19 Then note = 246.94 'B
140.             If notes = 20 Then note = 0
141.  
142.             Do
143.                 'queue some sound
144.                 Do While _SndRawLen < 0.5 'you may wish to adjust this
145.                     sample = Sin(ttt * note * Atn(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
146.                     sample = sample * Exp(-ttt * 3) 'fade out eliminates clicks after sound
147.                     _SndRaw sample
148.                     ttt = ttt + 1 / _SndRate 'sound card sample frequency determines time
149.                 Loop
150.                 'do other stuff, but it may interrupt sound
151.             Loop While ttt < 1 'play for 1 second
152.             Do While _SndRawLen > 0 'Finish any left over queued sound!
153.             Loop
154.             ttt = 0
155.         Next notes
156.         hour2 = hou
157.         If hour2 > 12 Then hour2 = hour2 - 12
158.         If hour2 = 0 Then hour2 = 12
159.         For chimes = 1 To hour2
160.             ttt = 0
161.             Do
162.                 'queue some sound
163.                 Do While _SndRawLen < 0.1 'you may wish to adjust this
164.                     sample = Sin(ttt * 240 * Atn(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
165.                     sample = sample * Exp(-ttt * 3) 'fade out eliminates clicks after sound
166.                     _SndRaw sample
167.                     ttt = ttt + 1 / _SndRate 'sound card sample frequency determines time
168.                 Loop
169.                 'do other stuff, but it may interrupt sound
170.             Loop While ttt < 2 'play for 2 seconds
171.             Do While _SndRawLen > 0 'Finish any left over queued sound!
172.             Loop
173.         Next chimes
174.     End If
175.     two:
176.     a$ = InKey$
177.     If a$ = Chr$(27) Then End
178.     If a$ = " " Then song = 1
179.     If a$ = "1" Then
180.         rom = 0
181.         For sz = .1 To 180 Step .1
182.             Circle (300, 300), sz, _RGB32(0, 0, 0)
183.         Next sz
184.     End If
185.     If a$ = "2" Then rom = 1
186.     If a$ = "s" Or a$ = "S" Then
187.         hour2 = hou
188.         If hour2 > 11 Then
189.             ampm$ = "P M"
190.         Else
191.             ampm$ = "A M"
192.         End If
193.         If hour2 > 12 Then hour2 = hour2 - 12
194.         hour3$ = Str$(hour2)
195.         hour4 = Val(hour3$)
196.         If hour4 = 0 Then hour4 = 12
197.         hour5$ = Str$(hour4)
198.         min2 = Val(min$)
199.         min3$ = Str$(min2)
200.         seco2 = Val(seco$)
201.         seco3$ = Str$(seco2)
202.         sentence$ = "The time is " + hour5$ + ampm$ + min3$ + " minutes and " + seco3$ + " seconds."
203.         speak sentence$, 1, 0
204.     End If
205. Loop
206.  
207. End
208.  
209. Sub pendulum (tt, d)
210.     'Locate 1, d + 1: Print tt
211.     If d = 0 Then tt = tt + (.26 / 2)
212.     If d = 1 Then tt = tt - (.26 / 2)
213.     If tt < 24.25 Then d = 0
214.     If tt > 26 Then d = 1
215.     theta = .3 * Cos(Timer)
216.     x5 = (Sin(theta) * 80) + 300
217.     y5 = (Cos(theta) * 80) + 300
218.     For sz = -3 To 4
219.         Line (300 + sz, 300)-(x5, y5), _RGB32(255, 255, 127)
220.         Line (300, 300 + sz)-(x5, y5), _RGB32(255, 255, 127)
221.     Next sz
222.     For sz = .1 To 15 Step .1
223.         Circle (x5, y5), sz, _RGB32(255, 255, 127)
224.     Next sz
225.     _Delay .06
226.     _Display
227. End Sub
228.  
229. Sub _GL ()
230.     Static glInit
231.     If glInit = 0 Then
232.         glInit = 1
233.  
234.     End If
235.     _glViewport 0, 0, _Width, _Height
236.     'set the gl screen so that it can work normal screen coordinates
237.     _glTranslatef -1, 1, 0
238.     _glScalef 1 / 400, -1 / 300, 1
239.  
240.     _glEnable _GL_BLEND
241.  
242.     _glBlendFunc _GL_SRC_ALPHA, _GL_ONE
243.     _glEnableClientState _GL_VERTEX_ARRAY
244.     _glVertexPointer 2, _GL_FLOAT, 0, _Offset(vert())
245.     For j = 1 To 15
246.         _glColor4f rFactor!, gFactor!, bFactor!, 0.015
247.         _glPointSize j
248.         _glDrawArrays _GL_POINTS, 10, max_v_index
249.     Next
250.     _glFlush
251. End Sub
252.  
253. Sub speak (text As String, Speaker As Integer, Speed)
254.     Dim message As String, remove$, out$
255.     Dim As Long i, j
256.     message = text
257.     'some symbols and such can't be used with Powershell like this, as they're command symbols
258.     'we need to strip them out of our text.  (Like apostrophes!)
259.     remove$ = "'" + Chr$(34) 'add to remove$ here, if more symbols need to be removed as future testing showcases problems
260.     For j = 1 To Len(remove$)
261.         Do
262.             i = InStr(message, Mid$(remove$, j, 1))
263.             If i Then message = Left$(message, i - 1) + Mid$(message, i + 1)
264.         Loop Until i = 0
265.     Next
266.     out$ = "Powershell -Command " + Chr$(34)
267.     out$ = out$ + "Add-Type -AssemblyName System.Speech; "
268.     out$ = out$ + "$Speech = New-Object System.Speech.Synthesis.SpeechSynthesizer; "
269.     If Speaker = 0 Then out$ = out$ + "$Speech.SelectVoice('Microsoft David Desktop'); "
270.     If Speaker = 1 Then out$ = out$ + "$Speech.SelectVoice('Microsoft Zira Desktop'); "
271.     If Speed Then out$ = out$ + "$Speech.Rate =" + Str$(Speed) + "; "
272.     out$ = out$ + "$Speech.Speak('" + message + "');" + Chr$(34)
273.     Shell _Hide out$
274. End Sub
275.  
276.  

[SierraKen]

Even though the pendulum was swinging around every second or so (I guessed at the numbers), I will use Static's fix instead because it's a LOT more natural looking. Thank you Static!!!!!!

[SierraKen]

I took B+'s idea and made a version without the _GL sub using regular graphics. It's pretty similar. :) You still need Windows though to use the voice feature. I'll post a picture below.
By the way, it's been 4 days or so and nobody has posted on this forum, I'm surprised, where is everyone?

Code: QB64: [Select]

1. _Title "1 Without Numerals  2 With Numerals  S Speak Time  Space Bar For Chimes"
2. Screen _NewImage(600, 600, 32)
3.  
4. Cls
5. Print "Neon Clock Selections"
6. Print "----------------------------------"
7. Print
8. Print "(1) Without Roman Numerals"
9. Print "(2) With Roman Numerals"
10. Print
11. Print "You can also press 1 or 2 anytime."
12. Print
13. Print "->";
14. Do
15.     sel$ = InKey$
16.     If sel$ = "1" Then rom = 0: GoTo nexxx:
17.     If sel$ = "2" Then rom = 1: GoTo nexxx:
18. Loop
19. nexxx:
20. Cls
21. tt = 23
22. d = 0
23. Do
24.     _Limit 50
25.     For t = 0 To 360 Step .5
26.         x2 = (Sin(t) * 190) + 300
27.         y2 = (Cos(t) * 190) + 300
28.         For sz = .1 To 5 Step .1
29.             Circle (x2, y2), sz, _RGB32(127, 255, 127)
30.         Next sz
31.     Next t
32.  
33.     For t = 1 To 359
34.         For tt = t - 2 To t + 2 Step .5
35.             x2 = Int((Sin(tt) * 170) + 300)
36.             y2 = Int((Cos(tt) * 170) + 300)
37.             For sz = .1 To 5 Step .1
38.                 Circle (x2, y2), sz, _RGB32(255, 255, 255)
39.             Next sz
40.         Next tt
41.     Next t
42.     If rom = 0 Then GoTo skip:
43.     For sc = 1 To 60
44.         ss = (60 - sc) * 6 + 180
45.         x4 = Int(Sin(ss / 180 * 3.141592) * 150) + 300
46.         y4 = Int(Cos(ss / 180 * 3.141592) * 150) + 300
47.         Circle (x4, y4), 3, _RGB32(230, 230, 230)
48.         n2 = (60 - sc) * 6 + 180
49.         x3 = Int(Sin(n2 / 180 * 3.141592) * 140) + 290
50.         y3 = Int(Cos(n2 / 180 * 3.141592) * 140) + 295
51.         Color _RGB32(255, 255, 255), _RGB32(0, 0, 0)
52.         If sc = 5 Then _PrintString (x3, y3), "I"
53.         If sc = 10 Then _PrintString (x3, y3), "II"
54.         If sc = 15 Then _PrintString (x3, y3), "III"
55.         If sc = 20 Then _PrintString (x3, y3), "IV"
56.         If sc = 25 Then _PrintString (x3, y3), "V"
57.         If sc = 30 Then _PrintString (x3, y3), "VI"
58.         If sc = 35 Then _PrintString (x3, y3), "VII"
59.         If sc = 40 Then _PrintString (x3, y3), "VIII"
60.         If sc = 45 Then _PrintString (x3, y3), "IX"
61.         If sc = 50 Then _PrintString (x3, y3), "X"
62.         If sc = 55 Then _PrintString (x3, y3), "XI"
63.         If sc = 60 Then _PrintString (x3, y3), "XII"
64.     Next sc
65.     skip:
66.     hours = Timer \ 3600
67.     minutes = Timer \ 60 - hours * 60
68.     seconds = (Timer - hours * 3600 - minutes * 60)
69.     ho$ = Left$(Time$, 2): hou = Val(ho$)
70.     min$ = Mid$(Time$, 4, 2): minu = Val(min$)
71.     seco$ = Right$(Time$, 2): secon = Val(seco$)
72.  
73.     pendulum tt, d
74.  
75.     'Minutes
76.     m = 180 - minutes * 6
77.     xx = Int(Sin(m / 180 * 3.141592) * 120) + 300
78.     yy = Int(Cos(m / 180 * 3.141592) * 120) + 304
79.     For b = -5 To 5 Step .1
80.         Line (300 + b, 304)-(xx, yy), _RGB32(0, 255, 255)
81.         Line (300, 304 + b)-(xx, yy), _RGB32(0, 255, 255)
82.     Next b
83.     'Hours
84.     h = 360 - hours * 30 + 180
85.     xxx = Int(Sin(h / 180 * 3.141592) * 75) + 300
86.     yyy = Int(Cos(h / 180 * 3.141592) * 75) + 304
87.     For b = -5 To 5 Step .1
88.         Line (300 + b, 304)-(xxx, yyy), _RGB32(0, 255, 0)
89.         Line (300, 304 + b)-(xxx, yyy), _RGB32(0, 255, 0)
90.     Next b
91.     'Seconds
92.     s = (60 - seconds) * 6 + 180
93.     xxxx = Int(Sin(s / 180 * 3.141592) * 125) + 300
94.     yyyy = Int(Cos(s / 180 * 3.141592) * 125) + 304
95.     For b = -5 To 5 Step .1
96.         Line (300 + b, 304)-(xxxx, yyyy), _RGB32(255, 0, 0)
97.         Line (300, 304 + b)-(xxxx, yyyy), _RGB32(255, 0, 0)
98.     Next b
99.     For sz = .1 To 10 Step .1
100.         Circle (300, 300), sz, _RGB32(255, 255, 127)
101.     Next sz
102.  
103.     _Display
104.     Line (0, 0)-(600, 600), _RGB32(0, 0, 0, 20), BF
105.  
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.     a$ = InKey$
168.     If a$ = Chr$(27) Then End
169.     If a$ = " " Then song = 1
170.     If a$ = "1" Then
171.         rom = 0
172.         For sz = .1 To 180 Step .1
173.             Circle (300, 300), sz, _RGB32(0, 0, 0)
174.         Next sz
175.     End If
176.     If a$ = "2" Then rom = 1
177.     If a$ = "s" Or a$ = "S" Then
178.         hour2 = hou
179.         If hour2 > 11 Then
180.             ampm$ = "P M"
181.         Else
182.             ampm$ = "A M"
183.         End If
184.         If hour2 > 12 Then hour2 = hour2 - 12
185.         hour3$ = Str$(hour2)
186.         hour4 = Val(hour3$)
187.         If hour4 = 0 Then hour4 = 12
188.         hour5$ = Str$(hour4)
189.         min2 = Val(min$)
190.         min3$ = Str$(min2)
191.         seco2 = Val(seco$)
192.         seco3$ = Str$(seco2)
193.         sentence$ = "The time is " + hour5$ + ampm$ + min3$ + " minutes and " + seco3$ + " seconds."
194.         speak sentence$, 1, 0
195.     End If
196. Loop
197.  
198. End
199.  
200. Sub pendulum (tt, d)
201.     If d = 0 Then tt = tt + (.26 / 2)
202.     If d = 1 Then tt = tt - (.26 / 2)
203.     If tt < 24.25 Then d = 0
204.     If tt > 26 Then d = 1
205.     theta = .3 * Cos(Timer)
206.     x5 = (Sin(theta) * 80) + 300
207.     y5 = (Cos(theta) * 80) + 300
208.     For sz = -3 To 4
209.         Line (300 + sz, 300)-(x5, y5), _RGB32(255, 255, 127)
210.         Line (300, 300 + sz)-(x5, y5), _RGB32(255, 255, 127)
211.     Next sz
212.     For sz = .1 To 15 Step .1
213.         Circle (x5, y5), sz, _RGB32(255, 255, 127)
214.     Next sz
215.     _Delay .06
216.     _Display
217. End Sub
218.  
219. Sub speak (text As String, Speaker As Integer, Speed)
220.     Dim message As String, remove$, out$
221.     Dim As Long i, j
222.     message = text
223.     'some symbols and such can't be used with Powershell like this, as they're command symbols
224.     'we need to strip them out of our text.  (Like apostrophes!)
225.     remove$ = "'" + Chr$(34) 'add to remove$ here, if more symbols need to be removed as future testing showcases problems
226.     For j = 1 To Len(remove$)
227.         Do
228.             i = InStr(message, Mid$(remove$, j, 1))
229.             If i Then message = Left$(message, i - 1) + Mid$(message, i + 1)
230.         Loop Until i = 0
231.     Next
232.     out$ = "Powershell -Command " + Chr$(34)
233.     out$ = out$ + "Add-Type -AssemblyName System.Speech; "
234.     out$ = out$ + "$Speech = New-Object System.Speech.Synthesis.SpeechSynthesizer; "
235.     If Speaker = 0 Then out$ = out$ + "$Speech.SelectVoice('Microsoft David Desktop'); "
236.     If Speaker = 1 Then out$ = out$ + "$Speech.SelectVoice('Microsoft Zira Desktop'); "
237.     If Speed Then out$ = out$ + "$Speech.Rate =" + Str$(Speed) + "; "
238.     out$ = out$ + "$Speech.Speak('" + message + "');" + Chr$(34)
239.     Shell _Hide out$
240. End Sub
241.  

[bplus]

By the way, it's been 4 days or so and nobody has posted on this forum, I'm surprised, where is everyone?

Yeah I've been on other projects and reading.

We think somethings happened to Fellippe, posts removed and is listed as guest.

[SierraKen]

Wow that is really bizarre. Hope he's OK. I'll pray for him.