(define fase-constante
(lambda
(comienzo duracion frecuencia
amplitud incremento-fase)
(let*
((inicio (floor (* comienzo (srate))))
(longitud (floor (* duracion (srate))))
(sine-wave (make-oscil
:frequency frecuencia))
(incremento-fase-rad-per-sec
(hz->radians incremento-fase))
(salida (make-vct longitud)))
(do ((i 0 (1+ i)))
((= i longitud))
(vct-set!
salida i
(* amplitud
(oscil sine-wave
incremento-fase-rad-per-sec ))
))
(vct->samples inicio longitud salida))))
|