From 5643af00cc8922d94b91b53b37ba4a42eaa0d07c Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 18 Feb 2021 21:39:57 -0500
Subject: Clipping functionality

---
 mix.bqn | 8 ++++++++
 1 file changed, 8 insertions(+)

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 }¨ ⊢‿-
 
-- 
cgit v1.2.3