-
Posts
275 -
Joined
-
Last visited
Content Type
Forums
Events
Store
Video Gallery
Everything posted by o_e
-
Thank you Stephane for the veery quick response!!
-
Hi, Is it possible to write a function which gives the following result: ((1)(1 2 2)(1 2 2 3 3 3)(1 2 2 3 3 3 4 4 4 4)(1 2 2 3 3 3 4 4 4 4 5 5 5 5 5))etc. Thanks for any suggestions!
-
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!
-
Documentation PDF copy paste problem
o_e replied to JulioHerrlein's topic in Support & Troubleshooting
Thanks! Is the .rtfd format still possible? -
Documentation PDF copy paste problem
o_e replied to JulioHerrlein's topic in Support & Troubleshooting
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)
-
Hi, it would be nice to have a changelog for the last 2.2.26941 update.. Thanks a lot!
-
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!
-
-
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..