-freq 0.0))
            (if (even? frm-int)
	        (begin
	          (set! even-freq (hz-&gt;radians (* frm-int frq)))
	          (set! odd-freq (hz-&gt;radians (* (+ frm-int 1) frq)))
	          (set! odd-amp (- frm0 frm-int))
	          (set! even-amp (- 1.0 odd-amp)))
	        (begin
	          (set! odd-freq (hz-&gt;radians (* frm-int frq)))
	          (set! even-freq (hz-&gt;radians (* (+ frm-int 1) frq)))
	          (set! even-amp (- frm0 frm-int))
	          (set! odd-amp (- 1.0 even-amp))))
      