o_e

Ok, I see, thanks!

Can you please give a litte example, can't find a doc So I have to (re-) define it every time in ps, there is no default to set (just to be sure)..?

Just tried it, makes no difference 😞

Your example gives at my cpu this: (position-insert '(1 3 5 7 9) 'b3 test) =>(c4 b3 d4 b3 e4 b3 fs5 e4) so it does not make so much difference, am I the only one, can someone please try this little example, thanks!

Hi, How does position-insert work? (setf test '(c4 d4 e4 fs5 e4)) (setf test2 (position-insert '(1 3 5 7) 'b3 test)) =>(c4 b3 d4 b3 e4 b3 fs5 e4) ; 1 3 5 ? what am I missing?

Hi, I want to set the vibrato amount of the string library I use for ps to 0. Its on cc21. I can't figure out in which form I have to put it in the Def-Instrument-Sets file: :v1 (:layout treble-layout :port "OM-VE1" :channel 12 :controllers (21 '(0)) ;this does not work :sound 'sq-sf :volume 127) thanks for help! best ole

Yes of corse, just thinking how to organize my stuff, thanks for the super quick response!

Ok, one more question.. 🙂 Lets say I have a library with different sections like this: (def-library test3 (:section one x0 '(a b c) x1 '(d e f) ) (:section two a0 '(x y z) a1 '(u v w) ) ) and now I want to (randomly) call in all sections: (library 'test3 '(one two) nil :collect :all) (library 'test3 '(one two) nil :random 5) is that possible? thanks!

Ok, now I've got it, thanks a lot!

Ok, so I just save my (def-library test (:section testing bla0 '(a b c) bla1 '(e f g) )) into the Def-Library folder, adding (in-package :Opusmodus) on top The method I choose looks like this: (in-package :Opusmodus) ;; Library | Opusmodus Version 2.1.26191 | 2021-01-25 09:24:09 (def-library test (:section testing bla0 '(a b c) bla1 '(e f g))) #| Examples: (library 'test 'testing 'bla0) (library 'test 'testing nil :random 5) (library 'test 'testing nil :collect '(0 3 5)) |# Can it also be done this way (I find the automatically generated additional lines helpful)..? Or is it embarrasing 🙂

Ok, to complete my own example (hope that may help others): First you have to define a library (like I did already successful): (def-library test (:section testing bla0 '(a b c) bla1 '(e f g) )) to save it (permanent) as a file into ~/Opusmodus/Def-Libraries/Def-Library you have to do the following: (create-library 'test 'testing 'bla (library 'test 'testing nil :collect :all) :file "test" ) correct or do I miss something? Thanks for your patience!

Hi, Please have merci with me, but I'am not able to build a library (permanent). I've tried to follow the docs, so I first use def-library: (def-library test (:section testing bla1 '(a b c) bla2 '(e f g) )) This seems to work, testing with: (library 'test 'testing 'bla2) ==>(e f g) Next step in my understanding would be: (create-library 'test 'testing 'bla :file "test" ) that gives an error: ==>Error: Incorrect keyword arguments in ("test") What am I missing, surely something very silly that I overlooked, greatful for some help.. Thanks! ole

Hi, I'am having hard times to understand what is pitch-transpose doing, please have a look, thanks! (pitch-transpose -12 '((fs1) (f1) (g-1g1bb2e6gs6a6bb6) (gs-1bb1bb2e6gs6a6bb6) (bb-1cs2bb2a3e6gs6a6bb6cs7))) ;==> ((fs1) (f1) (g1 g1bb1e5gs5a5bb5) (gs1 bb0bb1e5gs5a5bb5) (bb0 cs1bb1a2e5gs5a5bb5cs6)) ; x? x? x? (pitch-transpose 12 '((fs1) (f1) (g-1g1bb2e6gs6a6bb6) (gs-1bb1bb2e6gs6a6bb6) (bb-1cs2bb2a3e6gs6a6bb6cs7))) ;==> ((fs2) (f2) (g1 g2bb3e7gs7a7bb7) (gs1 bb2bb3e7gs7a7bb7) (bb0 cs3bb3a4e7gs7a7bb7cs7)) ; x?

Can you please ellaborate a little, thanks! ole

Hi, I'am examin the distribute-seq function and don't get the exact logic behind it: (setf pitch '(c4 cs4 d4 ds4 e4 f4 fs4 g4 gs4 a4 as4 b4)) #| 1 2 3 4 5 6 7 8 9 10 11 12 |# (setf l-v1 '(1/8 -1/8 2/8 -1/8 5/8) l-v2 '(1/8 1/8 -1/8 2/8 1/8) l-va '(-2/8 1/8 -5/8 1/8) l-vc '(-1/8 3/8 1/8 1/8) ) (setf align (distribute-seq pitch l-v1 l-v2 l-va l-vc)) ==>((c4 e4 gs4) (cs4 d4 fs4 a4) (f4 b4) (ds4 g4 as4)) ;;;from the docs, what is the rule for the distribution (when the lists are of different size)? ;;;Do the list of pitches (have to) match the list of length values? #| -----------------that's what I would expect:------------------- 1 5 9 l-v1 '(1/8 -1/8 2/8 -1/8 5/8) 2 6 10 12 l-v2 '(1/8 1/8 -1/8 2/8 1/8) 3 7 l-va '(-2/8 1/8 -5/8 1/8) 4 8 11 l-vc '(-1/8 3/8 1/8 1/8) -----------------that's how it works:------------------------ 1 5 9 l-v1 '(1/8 -1/8 2/8 -1/8 5/8) 2 3 7 10 l-v2 '(1/8 1/8 -1/8 2/8 1/8) 6 12 l-va '(-2/8 1/8 -5/8 1/8) 4 8 11 l-vc '(-1/8 3/8 1/8 1/8) ----------------that's what Stéphane would expect (and what would also make sense to me): 1 6 11 l-v1 '(1/8 -1/8 2/8 -1/8 5/8) 2 3 8 12 l-v2 '(1/8 1/8 -1/8 2/8 1/8) 4 9 l-va '(-2/8 1/8 -5/8 1/8) 5 7 10 l-vc '(-1/8 3/8 1/8 1/8) |# greatful for some insight, thanks! ole

Hi, I found a system that work for me, if someone is interested.. All the best and stay healthy! ole Notes WWW.DROPBOX.COM Dropbox is a free service that lets you bring your photos, docs, and videos anywhere and share them easily. Never email yourself a file again!

Your OMN example works like I expected it, why does my example above did not work, what am I missing?

It would be great if I could make the annotations directly in the doc file.. I've already tried to copy the doc file in the Opusmodus/System Library (where also the docs for my own functions live) but it was cumbersome to handle the big amount of (double) files. It would be great to type the name of the function in the search field (or highlight an control-tab a function in the code) and see the doc and my annotations in the same place (file).. Maybe the update routine can be changed so that the doc files are not replaced but supplemented? Maybe that could be an option to make a sort of manual update, where on can decide..

I experimented a little more and found out that length-to-rest can not handle chords (I would like to make a feature request..) But I still don't get the pitches, I would expect the pitches from the list where length-to-rest is applied to?? Can someone please chime in? Thanks!

Hi, I would like to make annotations in the doc files of the functions, so when I come back I can see at a glance if I've already worked with that function.. Now the docs are overwritten with every update, is there a way to preserve our personal annotations? OM is so big and complex, such possiiblity really would help me! Thanks!

Hi, I'am having hard times to understand length-to-rest: (setf one '(-q e f5 mp 3q b5 mp 3e f6 mp 3e g5 p 3wq. gs5eb6 p))
 (setf two (length-to-rest 'q one :type 'under))
 ==>(-q -e -3q -3e - 3wq. f5 mp)
 
 ;;simplified example works as expected
 (setf three '(q f4 3q b4 a4 b4 e d4 3wq gb5eb5))
 (setf four (length-to-rest 'q three :type 'under))
 ==>(q f4 -3q - - -e 3wq gb5eb5) what am I missing? thanks for help!

Hi, Just want to ask one more time if there are someone else interested in continuing with the Zoom into OM Sessions. At the moment we are 3 People and the more Participants we become the cheaper it gets for everyone.. Please PM me in case, thanks!

@ André: if you are willing to share some soundsets for CT, I would love to use them (as a template).. best ole

like this..? (setf one (gen-integer 7 1)) (setf two (gen-repeat (length one) '(3))) (setf three (reverse one)) (mapcar #'(lambda (x y z) (list x y z)) one two three) hth

Thanks a lot!!