;nyquist plug-in
;version 1
;type process
;name "Broadcast Limiter"
;action "Broadcast Limiter"
;info ""

;control vl "Threshold" real "" 1 0 1

; this plugin was written by edgar-rft@web.de and is released 
; under terms of the GNU General Public License on May 4th 2005

(setf limit (linear-to-dB vl))
(scale (/ 1 vl) (sim
  (scale 0.21  (clip s vl))
  (scale 0.21  (clip s (db-to-linear (- limit 0.25))))
  (scale 0.21  (clip s (db-to-linear (- limit 0.50))))
  (scale 0.21  (clip s (db-to-linear (- limit 0.75))))
  (scale 0.21  (clip s (db-to-linear (- limit 1.00))))
))