Sine wave: Difference between revisions
Content added Content deleted
(Added Go) |
|||
Line 109: | Line 109: | ||
say 'Still no? Ok how about:'; |
say 'Still no? Ok how about:'; |
||
shell 'play -n -c1 synth 5.0 sin %-12';</lang> |
shell 'play -n -c1 synth 5.0 sin %-12';</lang> |
||
=={{header|Phix}}== |
|||
Windows only |
|||
<lang Phix>atom k32=NULL, xBeep |
|||
procedure beep(integer frequency, duration=5000) |
|||
if platform()=WINDOWS then |
|||
if k32=NULL then |
|||
k32 = open_dll("kernel32.dll") |
|||
xBeep = define_c_proc(k32, "Beep", {C_INT,C_INT}) |
|||
end if |
|||
c_proc(xBeep,{frequency,duration}) |
|||
end if |
|||
end procedure |
|||
beep(prompt_number("Enter Frequency (100..10000 recommended):",{0x25,0x7FFF}))</lang> |