Clipping functionality

1 files changed, 8 insertions, 0 deletions

diff --git a/mix.bqn b/mix.bqn
index 1ad248f..21172c0 100644
--- a/mix.bqn
+++ b/mix.bqn
@@ -24,6 +24,14 @@ Stereo ⇐ ≍˜⍟(2>=)
 # Pan signal 𝕩 to position 𝕨, where 0 is hard left and 1 is hard right
 Pan ⇐ (25⌊∘×≍⟜¬∘⊣) ⥊⟜0⊸»˘ ((=⌜˜↕2)-·(××⌜0⊸⌈)·≍⟜-1-˜2×⊣)⊸(+˝∘×⎉¯1‿∞)⟜Stereo
 
+# Clipping functions clip to [¯1,1] by default
+# _norm changes this to match the format if it's an integer format
+_norm ⇐ { (𝕨𝔽⊢)⌾(÷⟜(2⋆1-˜¯1⊑o.fmt)) 𝕩 }
+# Clip signal 𝕩 to the maximum possible range.
+Clip ⇐ 1⌊¯1⌈⊢
+# 𝕨 is an integer giving "sharpness". Perform a soft clip.
+Softclip ⇐ { ÷⟜(1⊸+⌾(⋆⟜(2⋆𝕨⊣3))) 𝕩 }
+
 # Multiply leading or trailing samples of 𝕩 by 𝕨.
 Fadefront‿Fadeback ⇐ {𝕊f: {𝕨⊸×⌾((F≠𝕨)↑⊢)𝕩}⎉1 }¨ ⊢‿-