(bind-func set_pitch_env (lambda (inst:i8* a:float d) (let ((note (cref (cast inst [void]*) note_kernel [void]*))) (cset! note pitch_env (array a d) |2,float|) void)))