Re: [Denemo-devel] Scheme question

[Andreas Schneider]

Thank you! Now I can skip the computation of the value and use d-PutMidi
directly with the value I got from d-GetMidi:

(set! midi (d-GetMidi #f))
(d-PutMidi midi)

That makes it much simpler.

Andreas


Am 10.11.2014 um 12:15 schrieb Richard Shann:
> While looking up that procedure ash it occurred to me I should really
> implement the extension to d-PutMidi to take a list.
> I've done this now so
> 
> (let* ((midi (d-GetMidi #f))
>         (command (list-ref midi 0))
>         (note (list-ref midi 1))
>         (velocity (list-ref midi 2)))
>       (disp command note velocity)
>         (d-PutMidi (list  command  note velocity)))
> 
> should do just as well and much simpler.
> 
> Richard