Jump to content

o_e

Members
  • Posts

    268
  • Joined

  • Last visited

Everything posted by o_e

  1. Hi, When I use omn-to-time-signature with (4 4), everything is fine: (setf test '(w fs5 q. e5 d5 q c5 e c5 h. b4 e a4 h a4 e q. gs4 q. gs4 e fs4 h e4 h e4 q. d4 e c4 h c4 e e fs5 q e5 e e5 q. d5 h c5)) (omn-to-time-signature test '(4 4)) =>((w fs5) (q. e5 d5 q c5) (e c5 h. b4 e a4) (h a4 e q. gs4) (q. gs4 e fs4 h e4) (h e4 q. d4 e c4) (h c4 e e fs5 q e5) (e e5 q. d5 h c5)) but when I use (5 4)or (3 4): (omn-to-time-signature test '(5 4)) => when called with arguments: > (nil) > While executing: #<ccl::standard-kernel-method no-applicable-method (t)>, in process Listener-3(38). > Type cmd-/ to continue, cmd-. to abort, cmd-\ for a list of available restarts. > If continued: Try calling it again > Type :? for other options. (omn-to-time-signature test '(3 4)) => when called with arguments: > (nil) > While executing: #<ccl::standard-kernel-method no-applicable-method (t)>, in process Listener-3(38). > Type cmd-/ to continue, cmd-. to abort, cmd-\ for a list of available restarts. > If continued: Try calling it again > Type :? for other options. so, what I'am missing..? Thanks!
  2. We are just finished a serie of 10 lessons. Maybe you could gather some other new participants and start a new serie, you could contact Stéphane Boussuge via PM and ask him if he is interested and what his conditions are..? best ole
  3. exactly that's what I've shown in my first post But most of the function work as well with an 'naked' integer as with a quoted list, and like this it is described in the doc of 'find-bar'. I assume it should be consistent among the functions, thats why I've pointed it out..
  4. I know this is only a (very) minor issue, nevertheless I'd like to know if I'am the only one having this problem.. Thanks!
  5. Hi, I'am examing find-bar and I don't get the following: ;from the docs: (setf mat '((c4 db4 ab4 f4 g4 bb4) (a4 eb4 b4 e4 d4 gb4) (db4 ab4 f4 g4 bb4 a4) (eb4 b4 e4 d4 gb4 c4))) (find-bar 1 mat) => Error: The value (1) is not of the expected type number. > While executing: ccl::+-2-into, in process Listener-1(7). > Type cmd-. to abort, cmd-\ for a list of available restarts. > Type :? for other options. ;this works fine: (find-bar '(1) mat) =>((c4 db4 ab4 f4 g4 bb4)) ?? best ole
  6. Found it in the meantime, thanks! (gen-divide 2 (flatten (find-everyother 2 '(((1 2) (3 4) (5 6) (7 8)) ((1 2) (3 4) (5 6) (7 8) (9 10) (11)))))) =>((1 2) (5 6) (1 2) (5 6) (9 10))
  7. Thanks! Do you can propose a workaround until the next update, by chance?
  8. Hi, The doc states: ;Note the handling of further nested sublists: (find-everyother 2 '(((1 2) (3 4) (5 6) (7 8)) ((1 2) (3 4) (5 6) (7 8) (9 10) (11)))) => (((1 2) (5 6)) ((1 2) (5 6) (9 10))) when I evaluate it I get: (find-everyother 2 '(((1 2) (3 4) (5 6) (7 8)) ((1 2) (3 4) (5 6) (7 8) (9 10) (11)))) =>((1 2 5 6) (1 2 5 6 9 10)) What am I missing or how can I achive the upper example? Thanks! ole
  9. Are you sure that your MuseScore lives in /Applications and is named 'MuseScore' and not 'Musescore 3' (or 'MuseScore 2' as your screenshot suggests)? Maybe you need to change : "/Applications/MuseScore.app" into "/Applications/MuseScore\3.app" Don't know what you are after exactly, but when I evaluate ps (with the numerical enter key) and then call (last-score-to-musescore), ms opens that last evaluated score (btw you can look at the score by using the (rightclick-) context menu/ PPrint last Score, then it displays in the listener..)
  10. Hi Julio, For me it works like this: (defun last-score-to-musescore () (compile-score *last-score* :output :musicxml :file "temp-last-score") (musicxml-to-editor "temp-last-score" :application "/Applications/MuseScore.app")) in the extensions folder and then calling: (last-score-to-musescore) It was shown in the forum long time ago, you can do a research.. hth ole
  11. What is also very cool, you can choose for every bar another value (length-diminution '(2/1 1/2 1/3 2/3 3/4) (gen-repeat 5 (list '(q e e e e s s s s))))
  12. So, it could also be something like this: (ps 'vep :va (list test4 :cc '(21 (gen-controller 2 '(0) :time (omn :length test4)))) ) or like this: (setf lensum (list (list '0 (find-sum (omn :length test4))))) (ps 'vep :va (list test4 :cc '(21 lensum)) ) or an increasing vibrato as in the def-score docs: (ps 'vep :va (list test4 :cc '(21 '((:asc 0 127 1/4 4)))) ) I think now I've got it, thanks (again) for your patience!
  13. Ok, now I made it work, following the trail you made: (defun novib (x) (position-replace '(0) '(0)(gen-dynamic-controller x))) then (setf test4 '(q c4 b3 d4 b3 e4 b3 fs5 - e4)) (ps 'vep :va (list test4 :cc '(21 (novib test4))) ) is this the way to go or is there something more simple to achive the same thing..?
  14. Thanks, I found that too but I need cc21, value 0 and this does not work: :cc '(21 ((0 1))) nor does: :cc (21 '((0 1))) nor does: :cc '(21 '((0 1))) so what am I missing? Thank you!
  15. I did go through the docs again, tried inside the list bracket but can't figure out the right syntax for what comes after the :cc greatful for a hint, thanks!
  16. 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)..?
  17. 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!
  18. 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?
  19. 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
  20. Yes of corse, just thinking how to organize my stuff, thanks for the super quick response!
  21. 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!
  22. 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
×
×
  • Create New...

Important Information

Terms of Use Privacy Policy