refactor: separate files
This commit is contained in:
19
SoundGen/Fx.fs
Normal file
19
SoundGen/Fx.fs
Normal file
@@ -0,0 +1,19 @@
|
||||
module SoundGen.Fx
|
||||
|
||||
type Effect =
|
||||
| Saturator
|
||||
| Reverb
|
||||
|
||||
type Reverb = { Wet: float; Room: float }
|
||||
type Saturator = { Gain: float }
|
||||
|
||||
let saturate (param: Saturator, x: float) = tanh (param.Gain * x)
|
||||
|
||||
//
|
||||
// let process(effects:Effect list, sound:float seq) =
|
||||
// let mutable output = sound
|
||||
// effects
|
||||
// |> List.iter((fun eff ->
|
||||
// match eff with
|
||||
// |Saturator -> output <- (output |> Seq.map saturate eff)))
|
||||
//
|
||||
Reference in New Issue
Block a user