-
Posts
264 -
Joined
-
Last visited
Content Type
Forums
Calendar
Store
Tutorials
Videos
Community Map
Everything posted by o_e
-
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..
-
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))
-
(loop for (a b) on '((q e3) (q. e3) (q g3) (q d3) (q. a3)) by #'cddr when a collect (fit-to-span 3/8 a) when b collect (fit-to-span 2/8 b)) => ((q e3 -e) (q e3) (q g3 -e) (q d3) (q. a3))
-
@André: isnt it so, that the length value is valid until the next length value regardless if its a rest or not? Please correct me if I'am wrong.. (omn :length '((-e a3f4d5 q f4d5a5) (q a3e4c5 q e4c5a5) (-e a3g4e5 h g4e5a5))) ==>((-1/8 1/8 1/4) (1/4 1/4) (-1/8 1/8 1/2))