stop_running   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/core/instruments/instrument_params.xtm

Implementation

;;
;; 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)))


Back to Index

Similar Entries