Ksp reference Manual

Keyboard Commands
113
KSP Reference Manual

---

Remarks
The keyboard colors reside outside of KSP, i.e. changing the color of a key is similar to changing a
KONTAKT knob with 
set_engine_par()
. It is therefore a good practice to set all keys to either
$KEY_COLOR_INACTIVE
or 
$KEY_COLOR_NONE
in the init callback or whenever changed later.
Example
(see next page)
on init
message("")
declare ui_button $Color
declare $count
declare $note_count
declare $color_count
declare %white_keys[7] := (0,2,4,5,7,9,11)
declare %colors[16] := (...
$KEY_COLOR_RED,$KEY_COLOR_ORANGE,$KEY_COLOR_LIGHT_ORANGE,...
$KEY_COLOR_WARM_YELLOW,$KEY_COLOR_YELLOW,$KEY_COLOR_LIME,...
$KEY_COLOR_GREEN,$KEY_COLOR_MINT,$KEY_COLOR_CYAN,...
$KEY_COLOR_TURQUOISE,$KEY_COLOR_BLUE,$KEY_COLOR_PLUM,...
$KEY_COLOR_VIOLET,$KEY_COLOR_PURPLE,$KEY_COLOR_MAGENTA,$KEY_COLOR_FUCHSIA)
$count := 0
while ($count < 128)
set_key_color($count,$KEY_COLOR_NONE)
inc($count)
end while
end on
on ui_control ($Color)
if ($Color = 1)
$count := 0
while ($count < 128)
set_key_color($count,$KEY_COLOR_INACTIVE)
inc($count)
end while
$note_count := 0
$color_count := 0
while ($color_count < 16)
if (search(%white_keys,(60 + $note_count) mod 12) # -1)
set_key_color(60 + $note_count,%colors[$color_count])
inc ($color_count)
end if