(setq shortsweep (pwl 20.0 1000 20.000001))

(setq midsweep (pwl 40.0 8000 40.000001))

(setq longsweep1 (pwl 20.0 88200 20.000001))

(setq longsweep2 (pwl 40.0 88200 40.000001))

(setq longsweep3 (pwl 60.0 88200 60.000001))

(setq longsweep4 (pwl 20.0 32000 20.000001))

(setq sinsweep8 (sound-srate-abs 8000.0
               (fmosc (hz-to-step 1) longsweep4 *table* 0.16)))

(setq sinsweep (fmosc (hz-to-step 1) longsweep1 *table* 0.16))

(defun alias-sin8 (freq phase) (sound-srate-abs 8000.0
                                 (osc (hz-to-step freq) 10 *table* phase)))

(defun alias-sin (freq phase) (osc (hz-to-step freq) 10 *table* phase))

(setq alias-half-silence (alias-sin8 4000 0))

(setq alias-half-skew (alias-sin8 4000 1.552))

(setq alias-beat8-1 (alias-sin8 4001 0))

(setq alias-beat8-10 (alias-sin8 4010 0))

(setq alias-beat-11 (alias-sin 44111 1.552))

(setq hpsweep8

  (sound-srate-abs 8000.0

    (sim

      (scale 0.25 (fmosc (hz-to-step 1) longsweep2))

      (scale 0.225 (fmosc (hz-to-step 3) (scale 3 longsweep2)))

      (scale 0.20 (fmosc (hz-to-step 5) (scale 5 longsweep2)))

      (scale 0.175 (fmosc (hz-to-step 7) (scale 7 longsweep2)))

      (scale 0.15 (fmosc (hz-to-step 9) (scale 9 longsweep2)))

      (scale 0.125 (fmosc (hz-to-step 11) (scale 11 longsweep2)))

      (scale 0.10 (fmosc (hz-to-step 13) (scale 13 longsweep2)))

    )

  )

)

(setq hpsweep

    (sim

      (scale 0.25 (fmosc (hz-to-step 1) longsweep2))

      (scale 0.225 (fmosc (hz-to-step 3) (scale 3 longsweep2)))

      (scale 0.20 (fmosc (hz-to-step 5) (scale 5 longsweep2)))

      (scale 0.175 (fmosc (hz-to-step 7) (scale 7 longsweep2)))

      (scale 0.15 (fmosc (hz-to-step 9) (scale 9 longsweep2)))

      (scale 0.125 (fmosc (hz-to-step 11) (scale 11 longsweep2)))

      (scale 0.10 (fmosc (hz-to-step 13) (scale 13 longsweep2)))

    )

)

(setq hp

    (sim

      (scale 0.25 (osc (hz-to-step 300) 10))

      (scale 0.225 (osc (hz-to-step 900) 10))

      (scale 0.20 (osc (hz-to-step 1500) 10))

      (scale 0.1755 (osc (hz-to-step 2100) 10))

      (scale 0.15 (osc (hz-to-step 2700) 10))

      (scale 0.125 (osc (hz-to-step 3300) 10))

      (scale 0.10 (osc (hz-to-step 3900) 10))

    )

)

(setq hpgliss

    (sim

      (scale 0.25 (fmosc (hz-to-step 100) shortsweep))

      (scale 0.225 (fmosc (hz-to-step 300) (scale 3 shortsweep)))

      (scale 0.20 (fmosc (hz-to-step 500) (scale 5 shortsweep)))

      (scale 0.175 (fmosc (hz-to-step 700) (scale 7 shortsweep)))

      (scale 0.15 (fmosc (hz-to-step 900) (scale 9 shortsweep)))

      (scale 0.125 (fmosc (hz-to-step 1100) (scale 11 shortsweep)))

      (scale 0.10 (fmosc (hz-to-step 1300) (scale 13 shortsweep)))

    )

)

(setq hpslowsweep8

  (sound-srate-abs 8000.0

    (sim

      (scale 0.25 (fmosc (hz-to-step 1) midsweep))

      (scale 0.225 (fmosc (hz-to-step 3) (scale 3 midsweep)))

      (scale 0.20 (fmosc (hz-to-step 5) (scale 5 midsweep)))

      (scale 0.175 (fmosc (hz-to-step 7) (scale 7 midsweep)))

      (scale 0.15 (fmosc (hz-to-step 9) (scale 9 midsweep)))

      (scale 0.125 (fmosc (hz-to-step 11) (scale 11 midsweep)))

      (scale 0.10 (fmosc (hz-to-step 13) (scale 13 midsweep)))

    )

  )

)