MMOSC
12-04-2005, 07:25 PM
Quick script to echo Velocity values to Mod Wheel (CC #1). This will save the step of drawing Mod Wheel values when using BIAB with JABB through Kontakt2.
{ Velocity to Mod Wheel }
on init
declare ui_knob $Mod (0,127,1)
end on
on note
ignore_event ($EVENT_ID)
set_controller(1,$EVENT_VELOCITY)
play_note ($EVENT_NOTE, $EVENT_VELOCITY, 0, -1)
$Mod := $EVENT_VELOCITY
end on
{ Velocity to Mod Wheel }
on init
declare ui_knob $Mod (0,127,1)
end on
on note
ignore_event ($EVENT_ID)
set_controller(1,$EVENT_VELOCITY)
play_note ($EVENT_NOTE, $EVENT_VELOCITY, 0, -1)
$Mod := $EVENT_VELOCITY
end on