(bind-func static set_lfo_ad
(lambda (inst:i8* lfo_num:i32 attack:float decay:float a_slope:float d_slope:float)
(let ((krl (if (< lfo_num 4)
(cref (cast inst [void]*) effect_kernel [void]*)
(cref (cast inst [void]*) note_kernel [void]*)))
(mod_attack (cref krl mod_attack |4,float|*))
(mod_decay (cref krl mod_decay |4,float|*))
(mod_attack_slope (cref krl mod_attack_slope |4,float|*))
(mod_decay_slope (cref krl mod_decay_slope |4,float|*)))
(aset! mod_attack (% lfo_num 4) attack)
(aset! mod_decay (% lfo_num 4) decay)
(aset! mod_attack_slope (% lfo_num 4) a_slope)
(aset! mod_decay_slope (% lfo_num 4) d_slope)
void)))