Help for this page

Select Code to Download


  1. or download this
    use Win32::Sound;

...
1 until $WAV->Status();  # wait for completion
#   $WAV->Save("sinus.wav"); # write to disk
$WAV->Unload();          # drop it
  2. or download this
    a4 f#4/2 c4 d4 f4/2 b4 p
b4 d#4/2 d4 c4 d#4/2 a4 p
a4 d4/2 p d4 e4 f4/2 p f4 g4 a5/2 p a5 b5 c5/1 p
b5 d5/2 p d5 a5 b5/2