resetCycles

do
setcps (80/60/4)
d1
  -- $ mask "<f!4 t!12 f!3 t t!12 f!8 t!8 f f t!14>"
  $ superimpose (# hpf 500)
  $ fix (|* gain 0.8) ("reverbkick")
  -- $ "k . k(<1 <3 5>>,8)"
  $ "k . k(<5 5 3 5>,8)"
  # "[808bd:3,808bd:8,808bd:15,reverbkick]"
  # gain 0.99
  # room 0.2
  # dry 1
d2
  $ superimpose ((# "snare:3")
  -- . (# att 0.1)
  -- . (# rel 0.9)
  . (|* gain 0.8)
  )
  $ "~ <s!3 [<~ s> s]>"
  # "sn:49"
  # pan 0.6
  # hpf 500
  # gain 0.66
d3
  -- $ mask "<f!16 t!16>"
  $ fix (|* gain 0.75) ("h2ogmhh")
  $ whenmod 8 4 (fast "[1|2] <2 2 [2|4] 4>")
  -- $ "d*<1 <2 3>> . <~ d*<1 2 4 2>> d*3"
  $ "d*[16 <[[16|8]!3 16] 8>]"
  # "[drum:2,h2ogmhh:4]"
  # gain 0.8
  # dry 1 # room 0.64
  # sz 0.4
d4
  $ superimpose (<| note "c . c(<3!3 [5 <5 10>]>,8)")
  $ note ("<<a3 e3> c4 g3 a3>" + 12)
  # "bass1:3"
  # voice 0.1
  # gain 0.6
  # cut 4
  # pan 0.2
  # room 0.4
  # sz 0.8
  # delay 0.9
  # delayfb 0.1
  # delaytime "e <e [q|h]>"
  # legato 8
  # lesliebus 31 (range 2 6 (slow 4 sine))
d5 -- Plucked arpeggios
  $ swing 12
  $ often (superimpose (
    |+| note ( 12 +
      arp "up" "<c'maj'4!12 g'maj'4!3 c'maj'4>"
  )))
  $ note ("<<a3 e3> c4 g3 a3>"
    |+| "0 <12 [7 ~ 12] 7 [12 ~ 0]>"
    + 24
  )
  # "pluck:5"
  # pan 0.6
  # gain ((slow 16 $ range 0.45 0.57 saw) + 0.05 * perlin)
d6 -- Warsaw gone synth
  $ superimpose (<| note "c . c(<3!3 [5 <5 10>]>,8)")
  $ note ("<<a3 e3> c4 g3 a3>" |+| (arp "converge" "<c'maj'4!3 g'maj'4>"))
  # "bassWarsaw"
  # crushbus 60 (range 8 3 (slow 8 $ perlin))
  # room 0.4
  # pan 0.8
  # gain (slow 64 $ range 0.4 0.75 (cosine + 0.2 * (slow 4 $ perlin)))
d9
  $ fix (
    slice 8 ("0 ~ <7(5,8) [7 0@0.6] 7(5,8) [7 <7 ~>]>")
  ) (n 1) -- La musique - c'est l'ordi
  $ fix ( -- TODO SPARSER
    -- splice 8 ("[0@1.2 1@1.1 ~@0.05 2@1.1 ~@0.9 <~!3 <3@1.1 4@1.1>>]")
    splice 8 ("[0@1.2 1@1.1 ~@0.05 2@1.1 ~@0.9 <3 ~ 3 4>@1.1]")
    . (|* gain 0.85) . (# squizbus 91 (segment 16 $ fast 4 $ range 0 "<1 2 4 6>" cosine))
  ) (n 2) -- Les circuits électroniques ont analysé un par un tous les sons
  -- $ n "<<0 1!3 2!4 3!4> <~!8 2!4 3!4>!3>"
  $ n "<[0@0.25 0] ~ ~ ~ 1 ~ 1 ~ 2!16>" -- SLICED STORY
  # "ircam"
  # cut 9
  # gain 0.9
  # room 0.14
  # pan 0.3
  # leslie 0.9
  # lrate (slow 8 $ range 0.1 0.8 perlin)
  # lsize (slow 32 $ range 0.2 2.4 sine)