resetCycles


do
let tilt = pF "tilt"
setcps (80/60/4)
solo 1 -- beat
solo 2 -- break
solo 4 -- Bass/tremolo aigu telephone
solo 5 -- Epiano féérique
unsolo 6 -- O?ONDI
solo 10 -- Noise phonique
d1
  $ sometimesBy "0 0.25!6 0.5" (off "s" ((|* gain 0.9) . (# lpf 500)))
  $ whenmod 16 8 (juxBy 0.5 rev)
  $ n "0(<1!3 [1|3]>,8) . 0(<3!3 5>,8)"
  # "[reverbkick,jazz]"
  # lpf 5000
  # gain 0.8
d2
  $ juxBy 0.125 (# crush 5)
  $ slice 4 (
    whenmod 16 10 (<| "0*8") $
    whenmod 16 8 (<| "0(5,8)")
    "0 1*<1!6 2 4> 2 <1!3 3>"
    )
  $ loopAt "<1!14 2!2>" $ "break:1"
  # gain 0.6
  # cut 1
d4
  $ whenmod 32 16 (superimpose (
    arp "downup <down up>"
    . ply 2 . fast "<2!3 [2 4]>"
    . (# octave 7)
    . (# gain 0.7)
  ))
  $ note ("c3'maj <c3'maj!4 c3'min!2> <c3'maj!3 f3'maj>")
  <| note "0*<4!2 5>"
  # s "bassWarsaw"
  # gain 0.75
d5
  $ whenmod 64 32 (
    segment "<1!3 0.5 1!3 0.5 1!3 0.5 1!3 0.5 1!3 2!3 4!2 8>"
    )
  $ whenmod 24 16 (fast "1 . <1!4 2!2 4 2>")
  $ loopAt 2
  $ "fepiano:11"
  # cut 7
  # gain 0.48
d6
  $ often rev
  $ slice 32 (
    rev $ run (2 * 128 * 8)
    -- run "<8 <16 32>>" -- Level up7
    -- run 16 -- INTRO
  )
  $ (striate 32 $ s "bogdan:11")
  |- begin "0.015"
  |+ end "0.0015"
  # tilt 0.5
  # gain 0.8
d10
  $ superimpose (const
      -- $ superimpose ((|- octave (slow 4 $ "<1 2 3>"))
      -- . (|* gain 0.5))
      $ note "f5'maj . e5'maj(3,8)"
      # "glitch:5"
      # gain 0.5
      )
  $ fix (# gain 0.4) (n 2)
  $ fix (# gain 0.5) (n 1)
  $ n (stack ["1*4",
  "~ 2(<1 [3|5]>,8)"
  ]) # "glitch" # pan (range 0.25 0.55 perlin)