diff --git a/plug-ins/notch.ny b/plug-ins/notch.ny new file mode 100644 index 000000000..16a0587d6 --- /dev/null +++ b/plug-ins/notch.ny @@ -0,0 +1,24 @@ +;nyquist plug-in +;version 1 +;type process +;categories "http://lv2plug.in/ns/lv2core/#FilterPlugin" +;name "Notch Filter..." +;action "Performing Notch Filter..." +;info "By Steve Daulton and Bill Wharrie. Released under GPL v2." + +;control freq "Frequency" real "Hz" 60 0 10000 +;control q "Q (higher value reduces width)" real "" 1 0.1 20 + +;; notch.ny by Steve Daulton and Bill Wharrie, September 2010. +;; Released under terms of the GNU General Public License version 2: +;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html . + +;; (multichan-expand) provides legacy support for old versions of Audacity +;; in which the (notch2) function only supports mono tracks. + +(cond + ((> freq (/ *sound-srate* 2.0))(format nil "Error:\nFrequency too high for track sample rate.")) + ((< freq 0)(format nil "Error:\nNegative frequency is invalid.")) + ((< q 0.01)(format nil "Error:\nWidth must be at least 0.01.")) + ((= freq 0) (format nil "Nothing to be done.")) + (T (multichan-expand #'notch2 s freq q)))