 (prog1 
    (sin (+ (mus-phase oscillator) pm-input))
    (incf (mus-phase oscillator) (+ (mus-frequency oscillator) fm-input))))
</pre>
-->

<!-- SND CASE -->
<pre class="indented">
(define* (oscil oscillator (fm-input 0.0) (pm-input 0.0))
  (let ((result (sin (+ oscillator-phase pm-input))))
    (set! oscillator-phase (+ oscillator-phase (+ oscillator-phase-increment fm-input)))
    result))
</pre>
<!-- -->

<p>Since it is generally believed that the ear performs some sort of projection of the time domai