o_e Posted May 6, 2022 Posted May 6, 2022 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.. JulioHerrlein 1 Quote
o_e Posted May 6, 2022 Author Posted May 6, 2022 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? Quote
JulioHerrlein Posted May 6, 2022 Posted May 6, 2022 Interesting... Maybe Janusz will chime up with some solution. Worked for me at that particular occasion. Best ! Quote
o_e Posted May 7, 2022 Author Posted May 7, 2022 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 )) Quote
opmo Posted May 7, 2022 Posted May 7, 2022 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)) JulioHerrlein and o_e 2 Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.