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

 

Did you try 

:controllers (21 '((0)))

Just tried it, makes no difference 😞

You don't put controllers into the def-instrument-sets, you define them directly in the PS function.

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

I did go through the docs again, tried

 

Quote

:cc

inside the list bracket but can't figure out the right syntax for what comes after the :cc

greatful for a hint, thanks!

 

(ps 'gm :ob (list p1 :cc '(expression (gen-dynamic-controller p1))))

(ps 'gm :b5 (list
             (list p1 :cc '(expression (gen-dynamic-controller p1)))
             (list p2 :cc '(expression (gen-dynamic-controller p2)))
             (list p3 :cc '(expression (gen-dynamic-controller p3)))
             (list p4 :cc '(expression (gen-dynamic-controller p4)))
             (list p5 :cc '(expression (gen-dynamic-controller p5)))))

 

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!

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

Check the function GEN-CONTROLLER and examples in DEF-SCORE with :controllers.

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!