Que bueno!!,
y acá va el trailer en SCHEME (80+ caracteres pero mas ruido).
(define* (asyfm :optional (input 0.0))
(let* ((phase 0)
(r 0.75)
(r1 (/ 1 r))
(index 1.046)
(modphase (* (asyfm-ratio gen) phase))
(res (* (exp (* 0.5 index (- r r1) (+ 1 (cos modphase))))
(cos (+ phase (* 0.5 index (+ r r1)
(sin modphase)))))))
(set! (phase gen) (+ phase input (frequ gen)))
res))
_______________________________________________
Expyezp mailing list
[email protected]
http://lists.slow.tk/listinfo.cgi/expyezp-slow.tk
Archivo de mensajes:
http://lists.slow.tk/pipermail/expyezp-slow.tk/
