[Denemo-devel] Placing a beat at the start of each measure.

[Richard Shann]

with the definition
(define (MIDI-StartNoteOnChannel note channel)
  (d-DirectivePut-standalone-midibytes "MIDInote" (string-append
"0x9" (number->string channel)" " (number->string note) " %%%")))

you can now do things like

(while (d-MeasureRight)
 (MIDI-StartNoteOnChannel 66 9))

Which places a drum beat (channel 9 note 66) at the start of each
measure.

Richard