Jump to content

How to control the beaming of notation ?


Recommended Posts

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:

 

image.png.6fc8554d763712b94a688c70c8359c39.png

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
 ))

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy