gistfile1.mly

(* square wave test *)

let freq = 44100 in

(* A, 440 Hz *)
let a440 =
    let out = IO.output_string() in
    let period = freq / 440 in
    for i = 0 to period / 2 - 1 do IO.write_i16 out 32767 done;
    for i = period / 2 to period - 1 do IO.write_i16 out (-32768) done;
    IO.close_out out
in
Std.print a440;

let driver = Ao.open_live ~bits:16 ~rate:freq ~channels:1 () in
Std.finally (fun() -> Ao.close driver) begin
    fun() -> while true do Ao.play driver a440 done
end ();;