e1lama/soundgen
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

wip: reverb

Browse Source
This commit is contained in:
HiveBeats
2022-10-31 22:09:31 +04:00
parent fdc5c2f112
commit 2129b73fcb
3 changed files with 27 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SoundGen/Program.fs
View File

@@ -55,8 +55,9 @@ let writeToFile (ms: MemoryStream) =
ms.WriteTo(fs)
song
|> Seq.map (fun x ->
let x1 = sineWaveShape x
saturate ({ Gain = 1.0 }, x1))
// |> Seq.map (fun x ->
// let x1 = sineWaveShape 2.8 2. x
// saturate ({ Gain = 1.0 }, x1))
//|> reverb
|> createWAV
|> writeToFile