;nyquist plug-in
;version 4
;type process
;preview linear
$name (_"High Pass Filter")
;manpage "High_Pass_Filter"
;debugbutton disabled
$action (_"Performing High Pass Filter...")
$author (_"Dominic Mazzoni")
$copyright (_"Released under terms of the GNU General Public License version 2")

;; highpass.ny by Dominic Mazzoni
;; Last updated August 2015
;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html .


$control frequency (_"Frequency (Hz)") float-text "" 1000 0 nil
$control rolloff (_"Rolloff (dB per octave)") choice ((_"6 dB") (_"12 dB") (_"24 dB") (_"36 dB") (_"48 dB")) 0


(cond
  ((< frequency 0.1) (_"Frequency must be at least 0.1 Hz."))
  ((>= frequency (/ *sound-srate* 2.0))
      (format nil (_"Error:~%~%Frequency (~a Hz) is too high for track sample rate.~%~%~
                   Track sample rate is ~a Hz~%~
                   Frequency must be less than ~a Hz.")
              frequency
              *sound-srate*
              (/ *sound-srate* 2.0)))
  (T  (funcall (nth rolloff '(hp highpass2 highpass4 highpass6 highpass8))
               *track* frequency)))