Primer instrumento con incremento de fase

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