60 lines
892 B
Forth
60 lines
892 B
Forth
|
|
open System.IO
|
|
open SoundGen
|
|
open PCMWave
|
|
open Fx
|
|
open Synth
|
|
|
|
let song =
|
|
[ note 3 0.5
|
|
note 3 0.5
|
|
note 15 0.5
|
|
note 15 0.5
|
|
|
|
note 6 0.5
|
|
note 18 0.5
|
|
note 3 0.5
|
|
note 15 0.5
|
|
|
|
note (-1) 0.5
|
|
note (-1) 0.5
|
|
note 11 0.5
|
|
note 15 0.5
|
|
|
|
note (-2) 0.5
|
|
note (-2) 0.5
|
|
note 10 0.5
|
|
note 15 0.5
|
|
//
|
|
note 3 0.5
|
|
note 3 0.5
|
|
note 15 0.5
|
|
note 15 0.5
|
|
|
|
note 6 0.5
|
|
note 18 0.5
|
|
note 3 0.5
|
|
note 15 0.5
|
|
|
|
note (-1) 0.5
|
|
note (-1) 0.5
|
|
note 11 0.5
|
|
note 15 0.5
|
|
|
|
note (-2) 0.5
|
|
note (-2) 0.5
|
|
note 10 0.5
|
|
note 15 0.5 ]
|
|
|> Seq.concat
|
|
|
|
|
|
let writeToFile (ms: MemoryStream) =
|
|
use fs =
|
|
new FileStream(Path.Combine(__SOURCE_DIRECTORY__, "test.wav"), FileMode.Create)
|
|
|
|
ms.WriteTo(fs)
|
|
|
|
song |> createWAV |> writeToFile
|
|
|
|
|