o_e

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

span is your friend (setf num '(4 3 2)) (setf pitch '(a4 b4 c4 d4 e4)) (span pitch num) ==>(4 3 2 4 3)

Thanks!

Hi, it would be nice to have a changelog for the last 2.2.26941 update.. Thanks a lot!

Thank you!

But I can do something like this and that changes the length of the bar: (dictum '(:any e :apply q) '(e c4 d4 e4 fs4))

Is it possible to remove rest(s) with dictum? Thanks! Edit: Why this does not work? (dictum '(:apply (length-rest-remove x)) '(w c5 ped -e))

Thank you, I will study that!

Hi, Is it possible to create compound rhythms like this with ql? (q_3q 3q 3q_q.) Thanks!

Thanks Stéphane!

I found what I was after: No need to open another workspace, just rightclick the file and "open in new assistent" But I would be also good to know, how I can open multiple (different) workspaces as you suggested..?

Thanks, how would I do that, when I try File/New Workspace, the workspaces are grayed out..? Is it possible to open the same workspace multiple times?

Hi, Is it possible to have two scores (workspaces?) side by side, that would be handy to compare, copy between 2 scores (like when I open for example "Counterpoint 1.opmo"?

Hi, Sometimes OM needs a long time for calculating (for example counterpoint). It would be nice to have an indication that OM is working or did I overlook something?

Thanks a bunch!!

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

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?

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

Ok, thanks for the explanation! And in the meantime I did get why position-insert does not work on the omn level, so sorry for the noise!

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!

Ok, so I have a (so far ready)OM-score and I want to mute (= change into a rest) every other note (regardless of changing meters). How would I do that? Thanks!

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!

Its an accent grave and a comma, right? How can get some background knowledge about that, what is it called, I remember I saw that before.. Anyway thanks a lot Stéphane!! best ole

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

Sorry, but I don't get what you are after