send-midi-cc   scheme

;
; SEND-MIDI-CC
; ---------------------
;  see https://github.com/digego/extempore/blob/master/libs/external/portmidi.xtm#L877
; not loaded with xtm by default
;
; Example
; (send-midi-cc (now) *mididevice* 5 ;; control change
;                                  120 ;; value
;                                   0 ;; channel
                        ; )
(impc:aot:do-or-emit
 (define send-midi-cc
   (lambda (time device cc val channel)
     (if *mcc-verbose* (println 'mcc cc val))
     (callback time 'pm_send device *midi-cc* channel (real->integer cc) (real->integer val)))))