[CM] [Faudiostream-devel] New bus system for rt-stalin

[Kjetil S. Matheussen]

On Mon, 22 Dec 2008, Kjetil S. Matheussen wrote:

>
> ;; Freeverb reverberation, using Faust:
>
> (define-stalin (freeverb get-sound)
>   (<faust> :in (vct (get-sound))
>            (url "http://faudiostream.cvs.sourceforge.net/viewvc/*checkout*/faudiostream/faust/examples/freeverb.dsp")))
>
>
>
> ;; Put it together:
>
> (<rt-stalin>
>  (sound
>    (out (freeverb (lambda ()
>                     (in (midi-synth)))))))
>

Oops, that was weirdly verbosedly programmed. Shorter version:

(define-stalin (freeverb sound)
   (<faust> :in (vct sound)
            (url "http://faudiostream.cvs.sourceforge.net/viewvc/*checkout*/faudiostream/faust/examples/freeverb.dsp")))

(<rt-stalin>
  (sound
    (out (freeverb (in (midi-synth))))))