mirror of
https://github.com/cookiengineer/audacity
synced 2025-05-02 16:49:41 +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.
30 lines
1018 B
Common Lisp
30 lines
1018 B
Common Lisp
;nyquist plug-in
|
|
;version 4
|
|
;type process
|
|
;preview linear
|
|
$name (_"Notch Filter")
|
|
;manpage "Notch_Filter"
|
|
;debugbutton false
|
|
$action (_"Applying Notch Filter...")
|
|
$author (_"Steve Daulton and Bill Wharrie")
|
|
$copyright (_"Released under terms of the GNU General Public License version 2")
|
|
|
|
;; notch.ny by Steve Daulton and Bill Wharrie
|
|
;; 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 "" 60 0 nil
|
|
$control q (_"Q (higher value reduces width)") float-text "" 1 0.1 1000
|
|
|
|
(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 (notch2 *track* frequency q)))
|