-- Shepard tone (https://en.wikipedia.org/wiki/Shepard_tone#Construction)
-- TODO: begin one still hearable, bad fadein?
do
setcps 0.3
d1
  $ (>| "cyclo")
  $ (# legato 4)
  $ (# octave 1)
  $ (# accelerate ("16")) -- INTENSIFIES
  $ (|* gain 0.65)
  $ superimpose (const $ "s" # note (scale "major" 7) # gain (range 1 0 saw))
  $ superimpose (const $ "s" # note (scale "major" (-7)) # gain (range 0 1 saw))
  $ sometimesBy "1 0" (# gain (range 0 0.5 saw))
  $ sometimesBy "0 1" (# gain (range 1 0.5 isaw))
  $ "s"

-- Shepard corrected 12 tones, but still begin
do
setcps 0.3
d1
  $ (>| "cyclo")
  $ (|* gain 0.45)
  $ (# legato 4)
  $ (# octave 1)
  $ (# accelerate 3) -- INTENSIFIES
  $ superimpose (const $ "s" # note (12)
  # gain ("11 10 9 8 7 6 5 4 3 2 1 0"/11))
  $ superimpose (const $ "s" # note ((-12))
  # gain (range 0 1 $ "0 1 2 3 4 5 6 7 8 9 10 11"/11))
  $ sometimesBy "1 0" (# gain (range 0 0.5 saw))
  $ sometimesBy "0 1" (# gain (range 1 0.5 isaw))
  $ "s"
  # gain 0.5