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

feat: waveshaper contains softclipping

Browse Source
This commit is contained in:
HiveBeats
2022-11-01 12:39:07 +04:00
parent 4edafbe664
commit 71927731d3
2 changed files with 135 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
SoundGen/Fx.fs
View File

@@ -1,18 +1,23 @@
module SoundGen.Fx
open Settings
type Effect =
| Saturator
| Reverb
type Reverb = { Wet: float; Room: float }
type Saturator = { Gain: float }
type ReverbParam = { Wet: float; Room: float }
type SaturatorParam = { Gain: float }
type WaveshaperParam = {Gain: float; Factor: float;}
let saturate (param: Saturator, x: float) = tanh (param.Gain * x)
let saturator (param: SaturatorParam) (x: float) = tanh (param.Gain * x)
let sineWaveShape gain factor x = x + gain * sin (factor * x)
let waveshaper (param: WaveshaperParam) x =
(x + param.Gain * sin (param.Factor * x))
|> saturator { Gain = 1.0 }
let reverb (buffer: float seq) =
let delayMilliseconds = 500.//((1./8.) * beatDuration) // 500 is half a second
let delayMilliseconds = 500. //((1./8.) * beatDuration) // 500 is half a second
let delaySamples =
(delayMilliseconds * 48.0) |> int // assumes 44100 Hz sample rate