dsp   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/contrib/polysynth.xtm

Implementation

;; let's add some delay (via a stereo pair of delays) to the
;; global audio output
;;
;; NOTE: then 100000 is extra memory for our
;; delays
(bind-func dsp:[SAMPLE,SAMPLE,i64,i64,SAMPLE*]* 1000000
  (let ((delayl (delay_c (convert (* SAMPLERATE 0.25))))
        (delayr (delay_c (convert (* SAMPLERATE 0.33333333)))))
    (lambda (in:SAMPLE time:i64 chan:i64 dat:SAMPLE*)
      (cond ((= chan 0)
             (delayl (+ (* 0.7 (synth in time chan dat))
                        (* 2.0 (saw_synth in time chan dat)))
                     0.5 0.3))
            ((= chan 1)
             (delayr (+ (* 0.7 (synth in time chan dat))
                        (* 2.0 (saw_synth in time chan dat)))
                     0.5 0.3))
            (else 0.0)))))


Back to Index

Similar Entries

  • _dsp:set!    scheme
  • dsp    xtlang
  • dsp    xtlang
  • dsp    xtlang
  • dsp    xtlang
  • dsp    xtlang
  • dsp    xtlang
  • dsp    xtlang
  • dsp1:DSP    xtlang
  • dsp1:DSP    xtlang
  • dsp1:DSP    xtlang
  • dsp2:DSP    xtlang
  • dsp2:DSP    xtlang
  • dsp3:DSP    xtlang
  • dsp3:DSP    xtlang
  • dsp4:DSP    xtlang
  • dsp5:DSP    xtlang
  • dsp:DSP    xtlang
  • dsp:DSP    xtlang
  • dsp:DSP    xtlang
  • dsp:DSP    xtlang
  • dsp:DSP    xtlang
  • dsp:DSP    xtlang
  • dsp:DSP    xtlang
  • dsp:DSP    xtlang
  • dsp:DSP    xtlang
  • dsp:DSP    xtlang
  • dsp:DSP    xtlang
  • dsp:DSP    xtlang
  • dsp:DSP    xtlang
  • dsp:DSP    xtlang
  • dsp:DSP    xtlang
  • dsp:DSP    xtlang
  • dsp:DSP    xtlang
  • dsp:DSP    xtlang
  • dsp:DSP    xtlang
  • dsp:VDSP    xtlang
  • dsp:set!    macro
  • dsp_load    xtlang
  • dsp_randn    xtlang
  • dsp_randn    xtlang
  • dspmt:DSPMT    xtlang
  • dspmt:DSPMT    xtlang
  • dspsum:DSPMT    xtlang
  • pure_dsp    xtlang