do
setcps (90/60/4)
let filterIt = (whenmod 32 24 (# djf (slow 8 $ range 0.2 0.8 saw)))
let sync = (# nudge 1.53)
let dGlob = (sync)
let dGlob = (sync . filterIt)
-- d1 $ dGlob $ "bd cp" # gain 0.8
d4
  -- $ whenmod 64 32 (mask "t(1,4)")
  $ dGlob
  $ slice 8 (cat [
    "0 1 2 3",
    "0 1 2 1",
    "0 1 2 <3 2>",
    "<4 6> 5 6 <7 6>"
    ])
  $ "fbass:12"
  # cut 4
  # gain (slow 32 $ range 0.5 0.85 saw)
  -- # crush "16!3 4"
d5 -- Piano fou gauche sur 32!
  $ sync
  $ whenmod 32 16 (juxBy 0.2 (
    someCycles (fast 2) . (|+ note 12) . (often rev)
  ))
  $ slice 4 ("<0 1 2 3>(3,8)")
  $ n ("<12!7 13>") # "fpiano"
  # gain (slow 8 $ "<0.5 0.85 0.7 0.5>")
  # pan 0.8
  # cut 21
d6
  $ dGlob
  $ slice 8 ("0*2 1 2*2 3(3,8)" + "<0!4 4!4>")
  -- $ mask "<t!3 f>"
  $ "fguitar:15"
  -- # hpf 200
  # gain 0.7
  # cut 6
  # size 0.5
  # room 0.2


d10 -- scratch moineau!
  $ sometimesBy 0.2 (off (1/32) id)
  $ degradeBy "0 0.1 0.8 0"
  $ euclid (slow 8 $ "<8 16>") 16
  $ n "0"
  # s "birds3"
  # n (choose [0,0,2])
  # gain 1.1



-- Section rythmique! Les zikos au sable
do
let sync = (# nudge 1.53)
let dGlob = (sync . slow 1)
d1
  $ dGlob
  $ "k . k(<3!3 5>,8)"
  # "reverbkick"
  # gain 0.6
d2
  $ dGlob
  -- $ fast "<1!4 2!3 4>"
  $ "ho:1*4 hc:4*4" # cut 2 # gain 0.75
d3
  $ mask "<f!8 t!8>"
  $ dGlob
  $ jux rev
  $ fast ("<2 4>" * "<2 [4 2][2 4] 4>")
  $ "[dr,drum:8]"
  # gain 0.8
  # room 0.2 # size 0.3
d4
  $ dGlob
  $ arpeggiate
  -- $ every 2 (rarely $ off "e" (|+ note 7))
  $ note "d4'maj'6(1,4,<0!3 1>) c3'maj"
  # "supergong"
  # note ("<-24!3 -12>")
  -- # voice (slow 4 $ range 0.1 0.8 perlin)
  -- # accelerate (slow 16 $ range 0.5 (-0.5) sine)
  # gain 0.65
