Thanks a lot, Stephane ! This is great ! And thank you for
showing me more functions.
However, there some issues: how to control to get a 12/8 instead of a 6/4?
Or: how to get always a time signature with x/8 ? Or always
with a X/4, or mix them ?
In the example you provide, a 12 generates a 6/4 instead of a 12/8.
I changed the code a little:
(setf some-pitches (integer-to-pitch (gen-integer-step 7 480 '(0))))
;>>> here, because I want to stay in the same note g4
(setf lengths (span some-pitches '(q q e q q q e)))
;>>> here, because I want this specific rhythm, not random sample
(setf some-division '(21 20 19 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3))
;here, there's that problem of 6/4 versus 12/8 and one more problem occurred because OM stop changing the timesignature after the number 14 (xml attached) I don't know why.
(setf length-div (gen-divide some-division some-lengths))
(setf time-sig (get-time-signature length-div))
(def-score time
(
:key-signature 'chromatic
:time-signature time-sig
:tempo 112
:layout (clarinet-layout 'clarinet)
)
(clarinet
:length lengths
:pitch some-pitches
:channel 1
:sound 'gm
:program 'clarinet
))
Best !!
Julio
test_timesigchange21to3.xml