Hello, Friends !

 

I'm using the code below to generate combinations of rhythm in 12/8 time signature.

I'd like to have my XML with correct beaming of the notes, related to the most common

 interpretation of a 12/8 time signature, i. e., beaming every 3 8th notes.

Instead, I'm getting it more beamed like a 6/4 time signature:

 

Is there some form of force the right beaming?

 

All the best !

Please help this doctorate student !

Julio

 

(setf some-pitches (integer-to-pitch (gen-integer-step 7 145 '(0))))
(setf some-lengths (span some-pitches '(e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e e -e -e -e -e -e -e -e -e -e e e e e -e -e -e -e -e -e -e -e -e e -e - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - - = = = = = = = = = - - - - = = = = = = = = = -)))
;(setf some-division '(12))
;(setf length-div (gen-divide some-division some-lengths))
(setf time-sig '(12 8))
(def-score time
           (
            :key-signature 'chromatic
            :time-signature time-sig
            :tempo 112
            :layout (clarinet-layout 'clarinet)
            )

(clarinet
 :length length-div
 :pitch some-pitches
 :channel 1
 :sound 'gm
 :program 'clarinet
 ))

(setf time-sig '((3 3 3 3) 8))

 

Hey, Janusz !

It worked !

Thanks for your patience !

This will be an immense time saver to me.

Best !

Julio

Just for info, it will be more in "Opusmodus style" to write that this way, using make-omn function:

 

(setf some-pitches (gen-repeat 145 'g4))
(setf some-lengths (span some-pitches '(e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e -e -e -e -e -e -e -e -e -e -e e e e e -e -e -e -e -e -e -e -e -e e e e e -e -e -e -e -e -e -e -e -e e -e - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - = = = = = = = = = = - - - - = = = = = = = = = - - - - = = = = = = = = = -)))
;(setf some-division '(12))
;(setf length-div (gen-divide some-division some-lengths))


(setf part (make-omn 
            :pitch some-pitches
            :length some-lengths
            ))



(setf time-sig '(12 8))
(def-score time
           (
            :key-signature 'chromatic
            :time-signature time-sig
            :tempo 112
            :layout (clarinet-layout 'clarinet)
            )
(clarinet
 :omn part
 :channel 1
 :sound 'gm
 :program 'clarinet
 ))

S.

 

Yeah, Stephane ! Thanks !

And you changed lenght-div for some-lenght. Great.

I did this today.

By the way, I generated 400 files with this method today !

All the sets mod 12. Like 100 pages, or more.

Thanks !