Re: [Denemo-devel] A Good Idea

[Richard Shann]

Oh, and another thing - I upgraded the OutputMidiBytes command, which
maybe needs to some JACK cloning? (It was ignoring the volume and only
doing notes on/off or something...)
Richard

On Fri, 2010-03-05 at 11:31 +0000, Richard Shann wrote:
> I missed out the complete listing of that midi thru script - just in
> case you wanted to try it out:
> 
> ;;;;;;;;;
> ;;;MidiThru
> 
> (if (not (defined? 'MidiThru::Active))
>     (define MidiThru::Active #f)) 
> (format #t "Starting with ~a~%"    MidiThru::Active)
> (if MidiThru::Active
>     (begin
>       (d-PutMidi 0)
>               (d-InputFilterNames "No MIDI Filter")
>       (set! MidiThru::Active #f))
> ;;; not active
>     (let ((midi 0)
>         (command 0)
>         (velocity 0)
>         (note 0)
>         (output 0))
>       (begin
>       (set! MidiThru::Active #t)
>       (d-PlayMidiKey #x203001)
>       (d-PlayMidiKey #x203401)
>       (d-PlayMidiKey #x203701)
>       (d-InputFilterNames "MIDI Thru Filter")
>       (let loop  ()
>               (if MidiThru::Active 
>                       (begin
>                         (set! midi (d-GetMidi))
>                         (set! velocity (bit-extract midi 16 24))
>                         (set! note (bit-extract midi 8 16))
>                         (set! command (bit-extract midi 0 8))
>                         (set! output (string-append (number->string command) 
> " "
>                                                     (number->string note) " " 
> (number->string velocity)))
>                         (format #t "Trying to do midibytes ~a~%" output)
>                         (d-OutputMidiBytes output)            
>                                (loop)))))))
>                       
> ;;;;;;;;;;;;;;;; end of MidiThru
> 
> as I say, this is just for concept testing, not for git
> 
> Richard
>       
> 
> On Fri, 2010-03-05 at 09:42 +0000, Richard Shann wrote:
> > On Thu, 2010-03-04 at 18:08 -0600, Jeremiah Benham wrote:
> > > 
> > > I would like to take a look at this script so I can better
> > > understand  
> > > what it is that needs done. Is it in git?
> > 
> > no - it is trivial and needs to be done in C anyway. It is mostly
> > converting the format of d-GetMidi to d-OutputMidiBytes like this:
> > 
> >     (let loop  ()
> >             (if MidiThru::Active 
> >                     (begin
> >                       (set! midi (d-GetMidi))
> >                       (set! velocity (bit-extract midi 16 24))
> >                       (set! note (bit-extract midi 8 16))
> >                       (set! command (bit-extract midi 0 8))
> >                       (set! output (string-append (number->string command) 
> > " "
> >                                                   (number->string note) " " 
> > (number->string velocity)))
> >                       (d-OutputMidiBytes output)            
> >                              (loop)))))))
> > 
> > This won't get you any further on the MIDI recording thing - I'll reply
> > to the other mail on that.
> > Richard
> > 
> > 
> > 
> > 
> > _______________________________________________
> > Denemo-devel mailing list
> > address@hidden
> > http://lists.gnu.org/mailman/listinfo/denemo-devel
> 
> 
> 
> _______________________________________________
> Denemo-devel mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/denemo-devel