Fix bug 2502 - Nyquist: Progress bar may not work when generating Rhythm Track
This commit is contained in:
parent
79b8c65f60
commit
e2f9090723
|
@ -6,7 +6,7 @@ $manpage "Rhythm_Track"
|
||||||
$preview linear
|
$preview linear
|
||||||
$action (_ "Generating Rhythm...")
|
$action (_ "Generating Rhythm...")
|
||||||
$author (_ "Dominic Mazzoni")
|
$author (_ "Dominic Mazzoni")
|
||||||
$release 2.3.0
|
$release 3.0.0
|
||||||
$copyright (_ "Released under terms of the GNU General Public License version 2")
|
$copyright (_ "Released under terms of the GNU General Public License version 2")
|
||||||
|
|
||||||
;; by Dominic Mazzoni, David R. Sky and Steve Daulton.
|
;; by Dominic Mazzoni, David R. Sky and Steve Daulton.
|
||||||
|
@ -186,7 +186,6 @@ $control low (_ "MIDI pitch of weak beat") int (_ "18 - 116") 80 18 116
|
||||||
;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
|
||||||
(setq len (/ (* 60.0 *sound-srate* timesig bars) tempo))
|
|
||||||
(setf beatlen (/ 60.0 tempo))
|
(setf beatlen (/ 60.0 tempo))
|
||||||
|
|
||||||
;call function to make one measure
|
;call function to make one measure
|
||||||
|
@ -205,6 +204,9 @@ $control low (_ "MIDI pitch of weak beat") int (_ "18 - 116") 80 18 116
|
||||||
;round up number of bars
|
;round up number of bars
|
||||||
(setq bars (round-up bars))
|
(setq bars (round-up bars))
|
||||||
|
|
||||||
|
;; Calculate LEN for progress bar.
|
||||||
|
(setq len (/ (* 60.0 *sound-srate* timesig bars) tempo))
|
||||||
|
|
||||||
(if (< bars 1)
|
(if (< bars 1)
|
||||||
(_ "Set either 'Number of bars' or
|
(_ "Set either 'Number of bars' or
|
||||||
'Rhythm track duration' to greater than zero.")
|
'Rhythm track duration' to greater than zero.")
|
||||||
|
|
Loading…
Reference in New Issue