2011-02-15 08:24:35 +00:00
|
|
|
;nyquist plug-in
|
2015-08-19 14:25:55 +00:00
|
|
|
;version 4
|
2011-02-15 08:24:35 +00:00
|
|
|
;type process
|
2015-05-29 21:07:36 +00:00
|
|
|
;preview linear
|
2018-03-01 19:36:17 +00:00
|
|
|
$name (_"Notch Filter...")
|
2017-05-19 19:43:55 +00:00
|
|
|
;manpage "Notch_Filter"
|
2017-05-30 13:25:05 +00:00
|
|
|
;debugbutton false
|
2018-03-01 19:37:59 +00:00
|
|
|
$action (_"Applying Notch Filter...")
|
2018-03-01 19:39:44 +00:00
|
|
|
$author (_"Steve Daulton and Bill Wharrie")
|
2018-03-01 19:40:31 +00:00
|
|
|
$copyright (_"Released under terms of the GNU General Public License version 2")
|
2011-02-15 08:24:35 +00:00
|
|
|
|
2017-05-23 11:27:48 +00:00
|
|
|
;; notch.ny by Steve Daulton and Bill Wharrie
|
2011-02-15 08:24:35 +00:00
|
|
|
;; Released under terms of the GNU General Public License version 2:
|
|
|
|
|
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html .
|
|
|
|
|
|
2015-08-19 14:25:55 +00:00
|
|
|
|
2018-03-01 19:44:39 +00:00
|
|
|
$control frequency (_"Frequency (Hz)") float-text "" 60 0 nil
|
|
|
|
|
$control q (_"Q (higher value reduces width)") float-text "" 1 0.1 1000
|
2015-08-19 14:25:55 +00:00
|
|
|
|
2015-08-23 17:37:09 +00:00
|
|
|
(cond
|
|
|
|
|
((< frequency 0.1) "Frequency must be at least 0.1 Hz.")
|
|
|
|
|
((>= frequency (/ *sound-srate* 2.0))
|
2017-05-23 11:27:48 +00:00
|
|
|
(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)))
|
2015-08-23 17:37:09 +00:00
|
|
|
(T (notch2 *track* frequency q)))
|
