Jump to content

o_e

Members
  • Posts

    268
  • Joined

  • Last visited

Posts posted by o_e

  1. (setf num '(4 3 2 2 3 4 5)) 
    (setf pitch '(a4 b4 c4 d4 e4))
    
    (if (< (length num) (length pitch)) pitch num) 
    =>(4 3 2 2 3 4 5)
    ;;;;;;
    (setf num '(4 3 2)) 
    (setf pitch '(a4 b4 c4 d4 e4))
    
    (if (< (length num) (length pitch)) pitch num) 
    =>(a4 b4 c4 d4 e4)

    hth

     

    Edit: I think you need cond to compare the length of three lists with each other:

    (setf durations '(q e q e s))
    
    (setf chords '(c4e4g4 e4g4c5)) 
    
    (setf repetitions '(7 1 6 2 5 3 4 4))
    
    (cond ((> (length chords) (and (length durations) (length repetitions))) chords)
          ((> (length durations) (and (length chords) (length repetitions))) durations)
          ((> (length repetitions) (and (length chords) (length durations))) repetitions))

     

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

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

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

  5. I see a second cs4 in Julios second example and can't find it in Stéphanes solution, what am I missing?

     

    And should'nt that work:

    (:apply (position-insert 1 'cs4 x) :bar 7)

    ? It does give a strange result..

     

    Thanks for an answer!

  6. Hi,

     

    (setf test-flatten (flatten 
                       '((q a4 -e gs4 e4 -)
                        (q a4 e - e4 d4) 
                        (-e g4 e4 - q a4) 
                        (-h.) 
                        (-q e a4 gs4 - g4))))
    
    (setf por (length-rest-position test-flatten)) 
    ==>(1 4 7 10 13 15 16 19)
    
      (setf sr (position-filter por test-flatten))
    ==>(-e - - -)
    ;should be this:
    ;  (-e - - - - -h. -q -e)
    ;or do I miss something?

    Thanks for assistance!

  7. Hi,

     

    (setf test '((q a4 mf e a4 p e gs4 f  e4 mp g4 p) 
                   (q a4 e e gs4 e4 d4)))
    (setf one '(1 3))
    (dictum '(:remove :event :bar 1 :event one) test)

    This gives an error, is there a way to use variables for keywords?

     

    Thanks and Happy Easter everybody 🙂

     

    Edit: Just checked another function (randomly choosen). Here a variable for a keyword works fine.

    My guess is that it has to do with the quotation mark inside the dictum, is there a way around this?

     

    (setf test-2  '((q a4 mf e a4 p e gs4 f  e4 mp g4 p) 
                   (q a4 e e gs4 e4 d4) 
                   (e e4 g4 e4 g4 q a4)))
    (setf sec '(0 2))
    (pitch-transpose '(7 -5 ) test-2 :section sec)
    ==>((q e5 e p eb5 f b4 mp d5 p) (q a4 p e e gs4 e4 d4) (e b3 p d4 b3 d4 q e4))

     

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy