実践KSP

自前の画像を使う

on init
declare ui_slider $a (-63,64)
set_control_par_str (get_ui_id($a),$CONTROL_PAR_PICTURE,"<file name>")
set_control_par (get_ui_id($a),$CONTROL_PAR_MOUSE_BEHAVIOUR,-200)
set_control_par (get_ui_id($a),$CONTROL_PAR_DEFAULT_VALUE,0)
end on
on ui_control ($a)
set_engine_par($ENGINE_PAR_PAN,($a+63)*1000*1000/127,0,-1,-1)
end on