mirror of
https://github.com/cookiengineer/audacity
synced 2025-04-30 07:39:42 +02:00
da39cc451f
... The code that parses the header was always just throwing them out. The code that populates menus deduces whether to add ellipses, as there are controls or not, regardless what the $name line said.
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)))
|