Add saturation operator

gridbugs · Jul 28, 2023 · 17ea609 · 17ea609
1 parent 0150b66
commit 17ea609
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 0 deletions.
diff --git a/examples/demo.ml b/examples/demo.ml
@@ -23,6 +23,7 @@ let signal =
  ~cutoff_hz:((const 1.0 -.. preset) *.. const 5000.0)
  |> map ~f:(fun x -> x *. 2.0 |> Float.clamp_sym ~mag:1.0)
  |> echo ~f:(scale 0.5) ~delay_s:(const 0.4)
+ |> saturate ~boost:(const 2.0) ~threshold:(const 1.0)
 
 let () =
  with_window (fun window ->

diff --git a/src/core/dsl.ml b/src/core/dsl.ml
@@ -134,3 +134,7 @@ let echo ~f ~delay_s =
 
 let lazy_amplifier signal_ ~volume =
  Lazy_amplifier.(signal { signal = signal_; volume })
+
+let saturate signal_ ~boost ~threshold =
+ map3 signal_ boost threshold ~f:(fun x boost threshold ->
+ x *. boost |> Float.clamp_sym ~mag:threshold)
diff --git a/src/core/dsl.mli b/src/core/dsl.mli
@@ -99,3 +99,4 @@ val echo : f:(float t -> float t) -> delay_s:float t -> float t -> float t
  after a delay of [delay_s] seconds. *)
 
 val lazy_amplifier : float t -> volume:float t -> float t
+val saturate : float t -> boost:float t -> threshold:float t -> float t