El segundo instrumento con incremento de fase

 		 
(define sinuosidal
  (lambda (comienzo duracion frecuencia amplitud)
    (let* ((inicio (floor (* comienzo (srate))))
           (longitud (floor (* duracion (srate))))
           (s (make-oscil :frequency frecuencia))
           (incremento-fase (hz->radians frecuencia))
           (salida (make-vct longitud)))
      (do ((i 0 (1+ i)))
          ((= i longitud))
        (vct-set! salida i (* amplitud (oscil s))
                  ))
      (vct->samples inicio longitud salida))))