Fix for bug 1027.

This commit is contained in:
Steve Daulton 2015-06-12 10:37:41 +01:00
parent 4d2825e3d1
commit 6c8e391df3
3 changed files with 6 additions and 6 deletions

View File

@ -45,7 +45,7 @@
(T (sum (prod env (wet sig f0 f1 fc))
(prod (diff 1.0 env) sig))))))
(if (string-not-equal (get '*TRACK* 'VIEW) "spectrogram" :end1 4 :end2 4)
"Use this effect in the 'Spectrogram'\nor 'Spectrogram (log f)' view."
(if (string-not-equal (get '*TRACK* 'VIEW) "spectral" :end1 8 :end2 8)
"Use this effect in the 'Spectral Selection'\nor 'Spectral Selection log(f)' view."
(catch 'error-message
(multichan-expand #'result *track*)))

View File

@ -59,8 +59,8 @@
'Spectrogram' or 'Spectrogram (log f)' track view.~%~%"))
(catch 'error-message
(multichan-expand #'result *track*)))
((string-not-equal (get '*TRACK* 'VIEW) "spectrogram" :end1 4 :end2 4)
"Use this effect in the 'Spectrogram'\nor 'Spectrogram (log f)' view.")
((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."

View File

@ -64,8 +64,8 @@
'Spectrogram' or 'Spectrogram (log f)' track view.~%~%"))
(catch 'error-message
(multichan-expand #'result *track*)))
((string-not-equal (get '*TRACK* 'VIEW) "spectrogram" :end1 4 :end2 4)
"Use this effect in the 'Spectrogram'\nor 'Spectrogram (log f)' view.")
((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."