Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-06-22 23:30:07 +02:00
Code Issues Releases Wiki Activity

Fixed table size for soft clip Limiter

Browse Source 
Fixes exceeding max table size at high sample rates.
This commit is contained in:
Steve Daulton 2016-08-16 20:53:50 +01:00
parent 888b41aafc
commit c042b0c7c6
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
plug-ins/limiter.ny
View File

@ -86,7 +86,8 @@
(defun soft-clip-table () (defun soft-clip-table ()
"Lookup table for soft clipping wave-shaper" "Lookup table for soft clipping wave-shaper"
(abs-env (abs-env
(Control-srate-abs *sound-srate* (sound-srate-abs 44100
(Control-srate-abs 44100
(let* ((knee (- 1 (/ 1.0 pi))) (let* ((knee (- 1 (/ 1.0 pi)))
(kcurve (mult knee (osc (hz-to-step (/ (* 4 knee))) knee))) (kcurve (mult knee (osc (hz-to-step (/ (* 4 knee))) knee)))
(ikcurve (mult knee (osc (hz-to-step (/ (* 4 knee))) knee *sine-table* -90))) (ikcurve (mult knee (osc (hz-to-step (/ (* 4 knee))) knee *sine-table* -90)))
@ -99,7 +100,7 @@
(sim (sim
(at-abs 0 (cue ikcurve)) (at-abs 0 (cue ikcurve))
(at-abs 0 (cue lin)) (at-abs 0 (cue lin))
(at-abs (+ knee (/ 2.0 pi)) (cue kcurve)))))))) (at-abs (+ knee (/ 2.0 pi)) (cue kcurve)))))))))
(defun soft-clip (sig) (defun soft-clip (sig)
(let* ((knee (- 1 (/ 1.0 pi))) (let* ((knee (- 1 (/ 1.0 pi)))