feat: multiosc oscillator

2022-11-01 09:20:22 +04:00
parent 2129b73fcb
commit 9d37e057d7
3 changed files with 39 additions and 12 deletions
--- a/SoundGen/Program.fs
+++ b/SoundGen/Program.fs
@@ -55,9 +55,9 @@ let writeToFile (ms: MemoryStream) =
    ms.WriteTo(fs)

 song
-// |> Seq.map (fun x ->
-//     let x1 = sineWaveShape 2.8 2. x
-//     saturate ({ Gain = 1.0 }, x1))
+|> Seq.map (fun x ->
+    let x1 = sineWaveShape 1.5 2.5 x
+    saturate ({ Gain = 1.0 }, x1))
 //|> reverb
 |> createWAV
 |> writeToFile