_Title "1 Without Numerals 2 With Numerals S Speak Time Space Bar For Chimes"
Print "Neon Clock Selections" Print "----------------------------------" Print "(1) Without Roman Numerals" Print "(2) With Roman Numerals" Print "You can also press 1 or 2 anytime." nexxx:
rFactor! = 0.5: gFactor! = 1: bFactor! = 0.5
x2
= (Sin(t
) * 260) + 400 y2
= (Cos(t
) * 190) + 300 max_v_index = max_v_index + 1
vert(max_v_index).x = x2
vert(max_v_index).y = y2
x2
= Int((Sin(tt
) * 230) + 400) y2
= Int((Cos(tt
) * 170) + 300) max_v_index = max_v_index + 1
vert(max_v_index).x = x2
vert(max_v_index).y = y2
tt = 23
d = 0
ss = (60 - sc) * 6 + 180
x4
= Int(Sin(ss
/ 180 * 3.141592) * 150) + 300 y4
= Int(Cos(ss
/ 180 * 3.141592) * 150) + 300 n2 = (60 - sc) * 6 + 180
x3
= Int(Sin(n2
/ 180 * 3.141592) * 140) + 290 y3
= Int(Cos(n2
/ 180 * 3.141592) * 140) + 295 skip:
minutes
= Timer \
60 - hours
* 60 seconds
= (Timer - hours
* 3600 - minutes
* 60)
pendulum tt, d
'Minutes
m = 180 - minutes * 6
xx
= Int(Sin(m
/ 180 * 3.141592) * 120) + 300 yy
= Int(Cos(m
/ 180 * 3.141592) * 120) + 304 'Hours
h = 360 - hours * 30 + 180
xxx
= Int(Sin(h
/ 180 * 3.141592) * 75) + 300 yyy
= Int(Cos(h
/ 180 * 3.141592) * 75) + 304 'Seconds
s = (60 - seconds) * 6 + 180
xxxx
= Int(Sin(s
/ 180 * 3.141592) * 125) + 300 yyyy
= Int(Cos(s
/ 180 * 3.141592) * 125) + 304 Line (300 + b
, 304)-(xxxx
, yyyy
), _RGB32(255, 0, 0) Line (300, 304 + b
)-(xxxx
, yyyy
), _RGB32(255, 0, 0)
Line (175, 175)-(425, 440), _RGB32(0, 0, 0, 20), BF
'Chimes
song = 0
'note frequencies
If notes
= 1 Then note
= 311.13 'D# If notes
= 2 Then note
= 246.94 'B If notes
= 3 Then note
= 277.18 'C# If notes
= 4 Then note
= 185.00 'F# If notes
= 6 Then note
= 185.00 'F# If notes
= 7 Then note
= 277.18 'C# If notes
= 8 Then note
= 311.13 'D# If notes
= 9 Then note
= 246.94 'B If notes
= 11 Then note
= 311.13 'D# If notes
= 12 Then note
= 277.18 'C3 If notes
= 13 Then note
= 246.94 'B If notes
= 14 Then note
= 185.00 'F# If notes
= 16 Then note
= 185.00 'F# If notes
= 17 Then note
= 277.18 'C# If notes
= 18 Then note
= 311.13 'D# If notes
= 19 Then note
= 246.94 'B
'queue some sound
sample
= Sin(ttt
* note
* Atn(1) * 8) '340Hz sine wave (ttt * 440 * 2p) sample
= sample
* Exp(-ttt
* 3) 'fade out eliminates clicks after sound ttt
= ttt
+ 1 / _SndRate 'sound card sample frequency determines time 'do other stuff, but it may interrupt sound
ttt = 0
hour2 = hou
If hour2
> 12 Then hour2
= hour2
- 12 ttt = 0
'queue some sound
sample
= Sin(ttt
* 240 * Atn(1) * 8) '340Hz sine wave (ttt * 440 * 2p) sample
= sample
* Exp(-ttt
* 3) 'fade out eliminates clicks after sound ttt
= ttt
+ 1 / _SndRate 'sound card sample frequency determines time 'do other stuff, but it may interrupt sound
two:
rom = 0
hour2 = hou
ampm$ = "P M"
ampm$ = "A M"
If hour2
> 12 Then hour2
= hour2
- 12 sentence$ = "The time is " + hour5$ + ampm$ + min3$ + " minutes and " + seco3$ + " seconds."
speak sentence$, 1, 0
'Locate 1, d + 1: Print tt
If d
= 0 Then tt
= tt
+ (.26 / 2) If d
= 1 Then tt
= tt
- (.26 / 2) x5
= (Sin(theta
) * 80) + 300 y5
= (Cos(theta
) * 80) + 300 Line (300 + sz
, 300)-(x5
, y5
), _RGB32(255, 255, 127) Line (300, 300 + sz
)-(x5
, y5
), _RGB32(255, 255, 127)
glInit = 1
'set the gl screen so that it can work normal screen coordinates
message = text
'some symbols and such can't be used with Powershell like this, as they're command symbols
'we need to strip them out of our text. (Like apostrophes!)
remove$
= "'" + Chr$(34) 'add to remove$ here, if more symbols need to be removed as future testing showcases problems out$
= "Powershell -Command " + Chr$(34) out$
= out$
+ "Add-Type -AssemblyName System.Speech; " out$
= out$
+ "$Speech = New-Object System.Speech.Synthesis.SpeechSynthesizer; " If Speaker
= 0 Then out$
= out$
+ "$Speech.SelectVoice('Microsoft David Desktop'); " If Speaker
= 1 Then out$
= out$
+ "$Speech.SelectVoice('Microsoft Zira Desktop'); " out$
= out$
+ "$Speech.Speak('" + message
+ "');" + Chr$(34)