audacia
/
audacia
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix bug 2502 - Nyquist: Progress bar may not work when generating Rhythm Track

This commit is contained in:
SteveDaulton 2020-07-15 18:58:47 +01:00
parent 79b8c65f60
commit e2f9090723
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
plug-ins/rhythmtrack.ny
View File

@ -6,7 +6,7 @@ $manpage "Rhythm_Track"
$preview linear
$action (_ "Generating Rhythm...")
$author (_ "Dominic Mazzoni")
$release 2.3.0
$release 3.0.0
$copyright (_ "Released under terms of the GNU General Public License version 2")
;; 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))
;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
(setq bars (round-up bars))
;; Calculate LEN for progress bar.
(setq len (/ (* 60.0 *sound-srate* timesig bars) tempo))
(if (< bars 1)
(_ "Set either 'Number of bars' or
'Rhythm track duration' to greater than zero.")