o_e

Ok, thanks, I think I don't get what pitch-variation does and what the parameters do. If someone is willing to explain, I would be very greatful, I think I don't have a clue..:-) Thanks!

Just play around a little with pitch-variation a little, why does it makes no difference in the output what :type I choose? What am I missing? (setf chords '((h a2a3c4 c4a3a3) (h d4f3g2 f4g3d4))) (pitch-variation 0 1 4 (chord-pitch-unique chords) :type 'c :seed 23) ==>((h a3 c4 a2 a3) (h c4 a3 c4 a3) (h g2 f3 d4 f3) (h d4 f4 g3 f4)) (pitch-variation 0 1 4 (chord-pitch-unique chords) :type 'm :seed 23) ==>((h a3 c4 a2 a3) (h c4 a3 c4 a3) (h g2 f3 d4 f3) (h d4 f4 g3 f4)) (pitch-variation 0 1 4 (chord-pitch-unique chords) :type '? :seed 23) ==>((h a3 c4 a2 a3) (h c4 a3 c4 a3) (h d4 g2 f3 g2) (h d4 g3 d4 f4)) Thanks!

hth morse.opmo morse.rtfd.zip

Thanks! Is the .rtfd format still possible?

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!

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