1
0
mirror of https://github.com/cookiengineer/audacity synced 2025-08-01 16:39:30 +02:00

Bug 1210, alternative fix for unfriendly message

This commit is contained in:
Steve Daulton 2017-05-23 12:27:48 +01:00
parent cd6c9834f6
commit f0040b09f1

View File

@ -9,24 +9,21 @@
;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, September 2010.
;; Last updated August 2015.
;; 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 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)))
((< q 0.1) "Q must be at least 0.1.")
(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)))