(bind-func static set_pitch_env_decay
(lambda (inst:i8* d:float)
(let ((note (cref (cast inst [void]*) note_kernel [void]*))
(env (get_pitch_env inst)))
(aset! (ref env) 1 d)
(cset! note pitch_env env |2,float|)
void)))