[Denemo-devel] The angry midi delete.

[Richard Shann]

A refinement of the Angry Delete:
only filter NOTEON (0x90)
Richard
;;;;;;;;;;;;
(define midi 0)
(define velocity 0)
(define command 0)

(define loop  (lambda ()
                (begin
                  
                  (set! midi (d-GetMidi))
                  (set! velocity (bit-extract midi 16 24))
                  (set! command (bit-extract midi 0 8))
                  (if (and (= command #x90)(> velocity 70))
                      (d-DeletePreviousObject))
                  (d-PutMidi midi)
                  (loop))))
(loop)