;nyquist plug-in
;version 1
;type process
;name "Subsonic Filter"
;action ""
;info ""
;control frequency "Frequenz" real "" 20 10 100
;control steepness "Steilheit" int "" 1 1 4

(cond
((= steepness 1) (if (arrayp s)
(vector (highpass2 (aref s 0) frequency) (highpass2 (aref s 1) frequency))
(highpass2 s frequency)))
((= steepness 2) (if (arrayp s)
(vector (highpass4 (aref s 0) frequency) (highpass4 (aref s 1) frequency))
(highpass4 s frequency)))
((= steepness 3) (if (arrayp s)
(vector (highpass6 (aref s 0) frequency) (highpass6 (aref s 1) frequency))
(highpass6 s frequency)))
((= steepness 4) (if (arrayp s)
(vector (highpass8 (aref s 0) frequency) (highpass8 (aref s 1) frequency))
(highpass8 s frequency))))