Re: Scheme performers/translators

2021-09-30 Thread David Kastrup
Han-Wen Nienhuys writes: > On Thu, Sep 30, 2021 at 12:24 AM David Kastrup wrote: >> >> Well, this is not as much supporting the MIDI layer as it is >> employing the translator level for messing with music during >> iteration. It's sort of annoying that it doesn't work by default. > > It doesn't

Re: Scheme performers/translators

2021-09-30 Thread Han-Wen Nienhuys
On Thu, Sep 30, 2021 at 12:24 AM David Kastrup wrote: > > Aaron Hill writes: > > > On 2021-09-29 12:39 pm, David Kastrup wrote: > >> The question is whether we should do something like this as default, > >> possibly conditioned on whether any acknowledgers are present? Because > >> even if we ca

Re: Scheme performers/translators

2021-09-29 Thread David Kastrup
Aaron Hill writes: > On 2021-09-29 12:39 pm, David Kastrup wrote: >> The question is whether we should do something like this as default, >> possibly conditioned on whether any acknowledgers are present? Because >> even if we cannot react to Midi data structures (since they are not >> Scheme-acc

Re: Scheme performers/translators

2021-09-29 Thread Aaron Hill
On 2021-09-29 12:39 pm, David Kastrup wrote: The question is whether we should do something like this as default, possibly conditioned on whether any acknowledgers are present? Because even if we cannot react to Midi data structures (since they are not Scheme-accessible for now), sometimes a tra

Re: Scheme performers/translators

2021-09-29 Thread David Kastrup
David Kastrup writes: > So I tried the following > > Stress_performer = > #(define-scheme-function (strong weak) (index? index?) >(lambda (ctx) > (define fired #f) > (define (emit weight) >(ly:broadcast (ly:event-source ctx) >(ly:make-stream-event >

Scheme performers/translators

2021-09-29 Thread David Kastrup
So I tried the following Stress_performer = #(define-scheme-function (strong weak) (index? index?) (lambda (ctx) (define fired #f) (define (emit weight) (ly:broadcast (ly:event-source ctx) (ly:make-stream-event (ly:make-event-class '