-- Marche vertigineuse
-- TODO: More march, more vertige
resetCycles

do
d1
  -- $ "k . ~ k ~ <~!3 k>"
  $ "k k k <k!3 [~ k]>"
  # "jazz" # gain 0.7
d2 $ "~ <c!3 c*2>" # "cp"
  # gain 0.8
  # lpf (slow 8 $ range 1000 5000 saw)
d3
  $ fix (|* gain (slow 4 $ range 0.6 0.8 perlin)) (n 2)
  $ fix (
    whenmod 16 8 (<| "4*[<8!3 16> <12 16>]")
    . (|* gain 0.78)
  ) (n 4)
  $ fix (|* gain (slow 8 $ range 0.6 0.7 saw)) (n 5)
  $ n (stack [
    "2(<5!7 4>,8, <0!12 4!4>)",
    "4*[<6!3 12> 12]",
    "5(<3 3 5 [8|[8 1]]>,8,<0!3 3>)",
    ""
    ]) # "cpu"
  # gain 0.8
d5
  $ note (scale "aeolian" (
    "<0 0 0 7 7 7 0 0 7 7 7 0 7 7 0 7>")
  )
  # "moog:1"
  # pan (slow 4 $ range 0.35 0.5 perlin)
  # gain 0.6
d6
  $ note ("<d'min'2 d'min'2 d'min'3 d'min'4>")
  # "superhoover"
  # gain 0.35
  # pan 0.7
  # accelerate (slow 16 $ range 8 (-2) sine)