Here are examples from the scheme clm:
(load "nrev.scm")
(define (simp start end freq amp)
(let ((os (make-oscil freq)))
(do ((i start (+ 1 i)))
((= i end))
(let ((output (* amp (oscil os))))
(outa i output)
(if *reverb* (outa i (* output .1) *reverb*))))))
; (with-sound () (simp 0 44100 440 .1)) ; no reverb
; (with-sound (:reverb nrev) (simp 0 44100 440 .1)); reverb
(define (locsimp start end freq amp)
(let ((os (make-oscil freq))
(loc (make-locsig :reverb .1)))
(do ((i start (+ 1 i)))
((= i end))
(locsig loc i (* amp (oscil os))))))
; (with-sound () (locsimp 0 44100 440 .1)) ; no reverb
; (with-sound (:reverb nrev) (locsimp 0 44100 440 .1)); reverb
_______________________________________________
Cmdist mailing list
[email protected]
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
