dsp   xtlang

;; 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)))))