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

commits per Steve Daulton

Browse Source
This commit is contained in:
v.audacity 2012-02-14 05:44:23 +00:00
parent fff71ac959
commit 4f448f168a
2 changed files with 26 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
plug-ins/highpass.ny
View File

@ -64,23 +64,27 @@
(= (check q 0.1 20) 1)) (= (check q 0.1 20) 1))
(strcat error-msg (format nil (strcat error-msg (format nil
"q value ~a lies outside valid range 0.1 to 20 "q value ~a lies outside valid range 0.1 to 20
for your chosen rolloff of 12 dB per octave. for your chosen rolloff of 12 dB per octave.~%
" q)) " q))
error-msg)) error-msg))
; check for erroneous frequency cutoff value ;; check for erroneous frequency cutoff value
(setf error-msg (if (cond ((< f 1)
(= (check f 1 20000) 0) (setf error-msg
error-msg (strcat error-msg (format nil
(strcat error-msg (format nil "Cutoff frequency is set at ~a Hz~%but must be at least 1 Hz." f))))
"Cutoff frequency ~a Hz lies outside valid range 1 to 20000. ((> f (truncate (/ *sound-srate* 2.0)))
" f)))) (setf error-msg
(strcat error-msg (format nil
"Cutoff frequency is set at ~a Hz but must not~%~
be greater than ~a Hz (half of the track sample rate)."
f (truncate (/ *sound-srate* 2.0)))))))
(cond (cond
((> (length error-msg) 0) ((> (length error-msg) 0)
(setf error-msg (strcat (format nil (setf error-msg (strcat (format nil
"Error - \n\nYou have entered at least one invalid value: "Error.~%You have entered at least one invalid value:~%
") error-msg)) ") error-msg))
(format nil "~a" error-msg)) (format nil "~a" error-msg))
; ;

22
plug-ins/lowpass.ny
View File

@ -64,23 +64,27 @@
(= (check q 0.1 20) 1)) (= (check q 0.1 20) 1))
(strcat error-msg (format nil (strcat error-msg (format nil
"q value ~a lies outside valid range 0.1 to 20 "q value ~a lies outside valid range 0.1 to 20
for your chosen rolloff of 12 dB per octave. for your chosen rolloff of 12 dB per octave.~%
" q)) " q))
error-msg)) error-msg))
; check for erroneous frequency cutoff value ;; check for erroneous frequency cutoff value
(setf error-msg (if (cond ((< f 1)
(= (check f 1 20000) 0) (setf error-msg
error-msg (strcat error-msg (format nil
(strcat error-msg (format nil "Cutoff frequency is set at ~a Hz~%but must be at least 1 Hz." f))))
"Cutoff frequency ~a Hz lies outside valid range 1 to 20000. ((> f (truncate (/ *sound-srate* 2.0)))
" f)))) (setf error-msg
(strcat error-msg (format nil
"Cutoff frequency is set at ~a Hz but must not~%~
be greater than ~a Hz (half of the track sample rate)."
f (truncate (/ *sound-srate* 2.0)))))))
(cond (cond
((> (length error-msg) 0) ((> (length error-msg) 0)
(setf error-msg (strcat (format nil (setf error-msg (strcat (format nil
"Error - \n\nYou have entered at least one invalid value: "Error.~%You have entered at least one invalid value:~%
") error-msg)) ") error-msg))
(format nil "~a" error-msg)) (format nil "~a" error-msg))
; ;