mirror of
https://github.com/cookiengineer/audacity
synced 2025-04-30 07:39:42 +02:00
33 lines
1.1 KiB
Common Lisp
33 lines
1.1 KiB
Common Lisp
;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)))
|