;;
;; stops all active notes on instrument
;;
(bind-func stop_running
(lambda (inst:i8*)
(let ((notes (cref (cast inst [void]*) notes NoteData**))
(i 0))
(dotimes (i MAXPOLYPHONY)
(pset! notes i (NoteData i 0 0.0 0.0 0 1.0 #f 0 (cast (create_zone (* 10 1024))))))
void)))