feat: sinewaveshaper

2022-10-31 09:58:49 +04:00
parent c09dc75f76
commit df6a6da423
2 changed files with 11 additions and 5 deletions
--- a/SoundGen/Fx.fs
+++ b/SoundGen/Fx.fs
@@ -9,6 +9,9 @@ type Saturator = { Gain: float }

 let saturate (param: Saturator, x: float) = tanh (param.Gain * x)

+let sineWaveShape x  =
+    x + 2.8 * sin (2. * x)
+
 //
 // let process(effects:Effect list, sound:float seq) =
 //     let mutable output = sound