Jump to content

o_e

Members
  • Posts

    270
  • Joined

  • Last visited

Posts posted by o_e

  1. I have lots of selfmade docs, which are embedded nicely in the old OM version (by putting them in the ~/Opusmodus/System Library folder).

    Where do I put them in the 3.x version so I can access them via the search function (There is no System Library folder any more)?

    And do they have to be in .pdf format (which will make them pretty useless too for me, because I often make new annotations, when calling them)?

     

    Thanks for an answer!

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

     

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

  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!

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy