diff --git a/plug-ins/SpectralEditParametricEQ.ny b/plug-ins/SpectralEditParametricEQ.ny index d422064b0..53a3f7871 100644 --- a/plug-ins/SpectralEditParametricEQ.ny +++ b/plug-ins/SpectralEditParametricEQ.ny @@ -53,16 +53,15 @@ ((< f0 (/ *sound-srate* 2.0)) (sum (prod env (wet sig control-gain f0 f1)) (prod (diff 1.0 env) sig)))))) -(cond - ((not (get '*TRACK* 'VIEW)) ; 'View is NIL during Preview - (setf p-err (format nil "This effect requires a frequency selection in the~%~ +(catch 'error-message + (cond + ((not (get '*TRACK* 'VIEW)) ; 'View is NIL during Preview + (setf p-err (format nil "This effect requires a frequency selection in the~%~ 'Spectrogram' or 'Spectrogram (log f)' track view.~%~%")) - (catch 'error-message - (multichan-expand #'result *track*))) - ((string-not-equal (get '*TRACK* 'VIEW) "spectral" :end1 8 :end2 8) - "Use this effect in the 'Spectral Selection'\nor 'Spectral Selection log(f)' view.") - (T (setf p-err "") - (if (= control-gain 0) ; Allow dry preview - "Gain is zero. Nothing to do." - (catch 'error-message - (multichan-expand #'result *track*))))) + (multichan-expand #'result *track*)) + ((string-not-equal (get '*TRACK* 'VIEW) "spectral" :end1 8 :end2 8) + "Use this effect in the 'Spectral Selection'\nor 'Spectral Selection log(f)' view.") + (T (setf p-err "") + (if (= control-gain 0) ; Allow dry preview + "Gain is zero. Nothing to do." + (multichan-expand #'result *track*))))) diff --git a/plug-ins/SpectralEditShelves.ny b/plug-ins/SpectralEditShelves.ny index ff6c4060a..8acc1dc4d 100644 --- a/plug-ins/SpectralEditShelves.ny +++ b/plug-ins/SpectralEditShelves.ny @@ -63,18 +63,17 @@ (>= (get '*selection* 'high-hz)(/ *sound-srate* 2))) (remprop '*selection* 'high-hz)) -(cond - ((not (get '*TRACK* 'VIEW)) ; 'View is NIL during Preview - (setf p-err (format nil "This effect requires a frequency selection in the~%~ +(catch 'error-message + (cond + ((not (get '*TRACK* 'VIEW)) ; 'View is NIL during Preview + (setf p-err (format nil "This effect requires a frequency selection in the~%~ 'Spectral Selection' or 'Spectral Selection log(f)'~%~ track view.~%~%")) - (catch 'error-message - (multichan-expand #'result *track*))) - ((string-not-equal (get '*TRACK* 'VIEW) "spectral" :end1 8 :end2 8) - "Use this effect in the 'Spectral Selection'\nor 'Spectral Selection log(f)' view.") - (T (setf p-err "") - (if (= control-gain 0) ; Allow dry preview - "Gain is zero. Nothing to do." - (catch 'error-message - (multichan-expand #'result *track*))))) + (multichan-expand #'result *track*)) + ((string-not-equal (get '*TRACK* 'VIEW) "spectral" :end1 8 :end2 8) + "Use this effect in the 'Spectral Selection'\nor 'Spectral Selection log(f)' view.") + (T (setf p-err "") + (if (= control-gain 0) ; Allow dry preview + "Gain is zero. Nothing to do." + (multichan-expand #'result *track*)))))