[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Denemo-devel] Scheme question
From: |
Richard Shann |
Subject: |
Re: [Denemo-devel] Scheme question |
Date: |
Sat, 25 Oct 2014 20:34:31 +0100 |
On Sat, 2014-10-25 at 20:53 +0200, Andreas Schneider wrote:
> Trying to write an input filter for my master keyboard, I use the angry
> delete as template and, as a first step, want to display the incoming
> midi events. This is what I have:
>
> ;;; Master keyboard filter
> (let ((midi 0)
> (command 0)
> (bank 0)
> (note 0)
> (velocity 0)
> (loop 0))
> (d-InputFilterNames (_ "Master Keyboard MIDI Filter"))
> (d-SetMidiCapture #t)
> (set! loop (lambda ()
> (begin
> (set! midi (d-GetMidi))
> (set! velocity (bit-extract midi 16 24))
> (set! command (bit-extract midi 0 4))
> (set! bank (bit-extract midi 4 8))
> (display "command " command ", bank " bank ", velocity "
> velocity)
> (if (= command 0)
> (display "Filter stopping")
> (loop)))))
> (loop))
> (d-SetMidiCapture #f)
>
> It gives the error
> (#f Wrong number of arguments to ~A (#<procedure display (_ #:optional
> _)>) #f)
> What do I do wrong?
I think you mis-remembered the name of the procedure - display is a
scheme procedure, disp is the Denemo procedure:
(disp "command " command ", bank " bank ", velocity " velocity)
Richard
>
> Thanks
>
> Andreas
>
> _______________________________________________
> Denemo-devel mailing list
> address@hidden
> https://lists.gnu.org/mailman/listinfo/denemo-devel
- [Denemo-devel] Scheme question, Andreas Schneider, 2014/10/25
- Re: [Denemo-devel] Scheme question,
Richard Shann <=
- Re: [Denemo-devel] Scheme question, Andreas Schneider, 2014/10/25
- Re: [Denemo-devel] Scheme question, Richard Shann, 2014/10/25
- Re: [Denemo-devel] Scheme question, Andreas Schneider, 2014/10/26
- Re: [Denemo-devel] Scheme question, Richard Shann, 2014/10/26
- Re: [Denemo-devel] Scheme question, Andreas Schneider, 2014/10/26
- Re: [Denemo-devel] Scheme question, Richard Shann, 2014/10/29