(bind-func static set_filter_env_attack
(lambda (inst:i8* a:float)
(let ((note (cref (cast inst [void]*) note_kernel [void]*))
(env (get_filter_env inst)))
(aset! (ref env) 0 a)
(cset! note filter_env env |4,float|)
void)))