Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-06-16 08:09:32 +02:00
Code Issues Releases Wiki Activity

Fix for bug 1027.

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
plug-ins/SpectralEditMulti.ny
View File

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

4
plug-ins/SpectralEditParametricEQ.ny
View File

@ -59,8 +59,8 @@
'Spectrogram' or 'Spectrogram (log f)' track view.~%~%")) 'Spectrogram' or 'Spectrogram (log f)' track view.~%~%"))
(catch 'error-message (catch 'error-message
(multichan-expand #'result *track*))) (multichan-expand #'result *track*)))
((string-not-equal (get '*TRACK* 'VIEW) "spectrogram" :end1 4 :end2 4) ((string-not-equal (get '*TRACK* 'VIEW) "spectral" :end1 8 :end2 8)
"Use this effect in the 'Spectrogram'\nor 'Spectrogram (log f)' view.") "Use this effect in the 'Spectral Selection'\nor 'Spectral Selection log(f)' view.")
(T (setf p-err "") (T (setf p-err "")
(if (= control-gain 0) ; Allow dry preview (if (= control-gain 0) ; Allow dry preview
"Gain is zero. Nothing to do." "Gain is zero. Nothing to do."

4
plug-ins/SpectralEditShelves.ny
View File

@ -64,8 +64,8 @@
'Spectrogram' or 'Spectrogram (log f)' track view.~%~%")) 'Spectrogram' or 'Spectrogram (log f)' track view.~%~%"))
(catch 'error-message (catch 'error-message
(multichan-expand #'result *track*))) (multichan-expand #'result *track*)))
((string-not-equal (get '*TRACK* 'VIEW) "spectrogram" :end1 4 :end2 4) ((string-not-equal (get '*TRACK* 'VIEW) "spectral" :end1 8 :end2 8)
"Use this effect in the 'Spectrogram'\nor 'Spectrogram (log f)' view.") "Use this effect in the 'Spectral Selection'\nor 'Spectral Selection log(f)' view.")
(T (setf p-err "") (T (setf p-err "")
(if (= control-gain 0) ; Allow dry preview (if (= control-gain 0) ; Allow dry preview
"Gain is zero. Nothing to do." "Gain is zero. Nothing to do."