Jump to content

o_e

Members
  • Posts

    276
  • Joined

  • Last visited

Posts posted by o_e

  1. Hi,

     

    it says in the doc of vector-to-velocity that the default is float values, but when I evaluate

    (setf vel (vector-to-velocity 0.1 0.9 (gen-integer 1 16)))
    =>(pppp pppp ppp pp pp p mp mp mf mf f ff ff fff ffff ffff)

    I get symbols, when I use

    (setf vel (vector-to-velocity 0.1 0.9 (gen-integer 1 16):type :float))
    =>(0.1 0.15 0.21 0.26 0.31 0.37 0.42 0.47 0.53 0.58 0.63 0.69 0.74 0.79 0.85 0.9)

    everything is fine, just want to mention it.

     

    best

     

    ole

     


     

  2. 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!

  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. 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

  5. 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

  6. 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..)

  7. 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

  8. 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!

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy