Ruido Blanco

 		 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;;
;;;  Una función para generar ruido blanco con envolvente
;;;
;;;                                       juanig_at_ccrma
;;;
;;;                                              (c) 2005


(define ruidob-env
  (lambda* (comienzo duracion amplitud
		        #:key
			(amp-env '(0 0.0 1 0.95)))
	   (let* ((inicio (floor (* comienzo (srate))))
		  (longitud (floor (* duracion (srate))))
		  (ruido (make-rand :frequency (* 0.52 (srate)) 
				    :amplitude amplitud))
		  (env-a (make-env :envelope amp-env
				   :duration duracion))
		  (salida (make-vct longitud)))
	     (do ((i 0 (1+ i)))
		 ((= i longitud))
	       (vct-set! salida i  (* (env env-a) (rand ruido))))
	       (vct->channel salida inicio longitud ))))

;;; (ruidob-env 0 1 0.5)

(define patron0
  (lambda (ancho)
    (do ((i 0 (1+ i))) 
	((= i 10))
      (ruidob-env (/ i ancho)  0.125 0.5))))

;;; (patron 6)