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:
parent
cd6c9834f6
commit
f0040b09f1
@ -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)))
|
||||
|
Loading…
x
Reference in New Issue
Block a user