[CM] cm cvs, portmidi + supercollider?

[Rick Taube]

oops better to check for real note ons:

(define (sc-harmonize mm ms)
   ms
   (when (and (note-on-p mm)
              (> (note-on-velocity mm) 0))
     (loop for i in (pick '(0 3 7) '(0 4 7) )
        do
        (output (new simple :time 0 :dur .1
                     :freq (hertz (+ (note-on-key mm) i)))
                :to *sc*))))