Hi,

 

This code:

((e a4 mf - - gs4 f - - g4 p - -)
 (-e a4 p - - gs4 - - e4 -))

 is displayed like you see in the 2 screenshots, the second of the snippet notation, the first of the ps function (with :timesignature '(9 8))

Also in the xml-file are quarter-rests* written (as in the screenshots), is there a way to set the subdivision (which looks right in the code)?

 

Thanks!

 

*which is "ok" in the first bar, but very hard to read in the second one..

 

How about this ?

Thanks!

But how do I have to implement it?

 

(setf rhy '((e a4 mf - - gs4 f - - g4 p - -)
 (-e a4 p - - gs4 - - e4 -)))

(ps 'vep
    :p1 (list rhy)
    :time-signature '((3 3 3) 8))

This does not work (see screenshot of ps), what am I missing?

Interesting... Maybe Janusz will chime up with some solution. Worked for me at that particular occasion.

Best !

 

Just compiled your score from than and it has the same problem (the subdivision of the notes is better, but the rests don't follow):

(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 '((3 3 3 3) 8))
(def-score time
           (
            :key-signature 'chromatic
            :time-signature time-sig
            :tempo 112
            :layout (clarinet-layout 'clarinet)
            ) 
(clarinet
 :length some-lengths
 :pitch some-pitches
 :channel 1
 :sound 'gm
 :program 'clarinet
 )) 

 

Possible solution:

(setf rhy '((e a4 mf -e - gs4 f -e - g4 p -e -)
            (-e a4 p -e - gs4 -e - e4 -)))

(ps 'gm
    :treble (list rhy)
    :rewrite-lengths nil
    :merge-rests nil
    :time-signature '((3 3 3) 8))

 

Thanks a bunch!!