Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-08-02 17:09:26 +02:00
Code Issues Releases Wiki Activity

Bug 1210, alternative fix for unfriendly message

Browse Source
This commit is contained in:
Steve Daulton 2017-05-23 12:27:48 +01:00
parent cd6c9834f6
commit f0040b09f1
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
plug-ins/notch.ny
View File

@ -9,24 +9,21 @@
;author "Steve Daulton and Bill Wharrie" ;author "Steve Daulton and Bill Wharrie"
;copyright "Released under terms of the GNU General Public License version 2" ;copyright "Released under terms of the GNU General Public License version 2"
;; notch.ny by Steve Daulton and Bill Wharrie, September 2010. ;; notch.ny by Steve Daulton and Bill Wharrie
;; Last updated August 2015.
;; Released under terms of the GNU General Public License version 2: ;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html . ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html .
;control frequency "Frequency (Hz)" float-text "" 60 0 nil ;control frequency "Frequency (Hz)" float-text "" 60 0 nil
;control q "Q (higher value reduces width)" float-text "" 1 0.1 nil ;control q "Q (higher value reduces width)" float-text "" 1 0.1 1000
(cond (cond
((< frequency 0.1) "Frequency must be at least 0.1 Hz.") ((< frequency 0.1) "Frequency must be at least 0.1 Hz.")
((>= frequency (/ *sound-srate* 2.0)) ((>= frequency (/ *sound-srate* 2.0))
(format nil "Error:~%~%Frequency (~a Hz) is too high for track sample rate.~%~%~ (format nil "Error:~%~%Frequency (~a Hz) is too high for track sample rate.~%~%~
Track sample rate is ~a Hz~%~ Track sample rate is ~a Hz.~%~
Frequency must be less than ~a Hz." Frequency must be less than ~a Hz."
frequency frequency
*sound-srate* *sound-srate*
(/ *sound-srate* 2.0))) (/ *sound-srate* 2.0)))
((< q 0.1) "Q must be at least 0.1.")
(T (notch2 *track* frequency q))) (T (notch2 *track* frequency q)))