(defun simpfm (car-freq mod-freq mod-scale duration)

  (scale 0.6

    (fmosc (hz-to-step car-freq)

           (scale mod-scale (osc (hz-to-step mod-freq) duration))

    )

  )

)

(defun simpam (car-freq mod-freq mod-scale duration)

  (scale 0.6

    (amosc (hz-to-step car-freq)

           (scale mod-scale (osc (hz-to-step mod-freq) duration))

    )

  )

)

(defun offam (car-freq mod-freq mod-scale mod-offset duration)

  (scale 0.6

    (amosc (hz-to-step car-freq)

           (sim

             (scale mod-scale (osc (hz-to-step mod-freq) duration))

             (pwl 0.000001 mod-offset duration mod-offset (+ duration 0.00000001))

            )

    )

  )

)