Jump to content

Recommended Posts

Posted

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

Bildschirmfoto 2022-05-06 um 20.47.42.jpg

Bildschirmfoto 2022-05-06 um 20.48.00.jpg

Posted

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?

Bildschirmfoto 2022-05-06 um 23.07.28.jpg

Posted

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

 

Bildschirmfoto 2022-05-07 um 09.01.35.jpg

Posted

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

 

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