[CM] midi-file-play

[Orm Finnendahl]

Hi all,

using the scheme version of cm I tried to set up the midi player:

(define (midi-file-play file . args)
  (let ((opts (if (null? args) " "
         (string-append (car args) " "))))
    (shell "/usr/local/bin/pmidi -p128:0 ~a ~a > /dev/null &" opts file)))

Issuing

   (midi-file-play "/tmp/test.midi")

plays the midifile correctly.

Then

        (set-midi-output-hook! midi-file-play)

should set the hook. Afterwards

       (events (ex1 20 57 70) "/tmp/test.midi")        

generates the midifile but doesn't play it.

What am I missing?

--
Orm