resetCycles

-- DARK TECHNO LAVABO
do
let modIndex = pF "modIndex"
let whenPont = someCyclesBy "<0!24 1!8 0!16 1!16>"
let g = whenPont  (# djfbus 1 (slow 8 $ range 0.45 0.15 saw))
let g2 = whenPont (# djfbus 2 (slow 8 $ range 0.5 0.75  cosine))
setcps (100/60/4)
d1
  $ g
  $ mask "<t(1,4)!4 t(2,4)!4 t!24 f!8 t!24>"
  $ fix (|* gain 0.8) ("kick")
  $ fix (|* gain "<0!3 1!125>") ("909")
  $ "k k k <k!3 ~>"
  # "[909,jazz,kick:5]"
  # lpf 5000
  # gain 0.7
d2 $ g -- Shadow's applause
  $ mask "<f!16 t!48>"
  $ whenmod 64 32 (# crush (slow 32 $ range 16 3 (saw + 0.2 * perlin)))
  $ "~ cp"
  # crush "<16!7 3.4>"
  # lpf 3500
  # gain 0.9
  # room "<0!3 0.6>"
  # dry 1 # sz 0.9
d3 $ g -- HiHats fuyants : THE GRID
  $ stut 8 0.2 "<[q!3 e] <e s>>"
  $ n "<2!6 <2 3 3>>"
  # "h2ogmhh"
  # pan 0.3
  # gain 0.6
d4 $ g -- MATRIX NOISE
  $ fix (
    mask "<f!16 t!16>"
    . ( -- ORAGE
      juxBy 0.5 (
      (# crush 4) . ("<e!3 h>" ~>) . (|* gain 0.8)
    ))
    . slice 8 "<3 3 <2 3> <3 2>>"
    . (# "90s_matrix:1")
    . (# cut 42)
    . (# pan 0.4)
  ) ("night")
  $ fix (
    (>| "90s_matrix/4")
    . (# crushbus 41 (slow 64 $ range 16 4 saw))
    . (# cut 41)
  ) ("base")
  -- Ominous base
  $ "[base,night]"
  # cut 4
  # att 0
  # rel 10
  # room 0.84
  # sz 0.6
  # dry 1
  # gain 0.65
d5 $ g2 -- Supersaw bassline
  $ mask "<f!8 t(1,2)!8 f!16 f!8 t!24>"
  $ someCyclesBy "<1!16 0!112>" (|* gain (slow 16 $ range 0.2 1 saw)) -- Intro fade-in
  $ note (scale "aeolian" (
    "<0 [0@7 1]>"
    + "[0,7,<9 <11!2 10!2>>]"
    - 14
  ))
  # "supersaw"
  # voice 0.05
  -- # crushbus 51 (range 8 4.5 sine)
  # gain 0.45
  # pan 0.2
d6 $ g2 -- Melopée rassurante
  $ mask "<f!8 <f!8 t!7 f> t f t!6 f!8 f!8 t f t!22>"
  $ superimpose (
    arp "up down"
    . iter "<1!3 <2 4>>"
    . ply "2!3 <2 4>")
  $ note (scale "aeolian" (
    "[0, 7, <9!3 0>, <11 10>]"
  - 14
  ))
  # "FMRhodes1:0"
  # modIndex "<0!64 1!32 2!32>"
  # gain 0.9
  # room 0.64
  # dry 1
  # sz 0.6
  # pan 0.8