[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Denemo-devel] The angry midi delete.
From: |
Richard Shann |
Subject: |
[Denemo-devel] The angry midi delete. |
Date: |
Sun, 16 Nov 2008 16:25:03 +0000 |
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)