do
resetCycles
setcps (82/60/4)
let modIndex = pF "modIndex"
let chords = "<[c,ef,g,bf,d6,f6] <[c,f,af,c6,ef6,g6,bf6] [g,b,ds6,f6,g6,b6,ds7]>>"
let chordsMin = "<[c,ef,g,bf,d6,f6] <[c,f,af,c6,ef6,g6,bf6] [g,b,ds6,f6,g6,b6,ds7]>>"
let chordsMin = "<[c] <[f] [g]>>"
let gPontHPF = (whenmod 64 32 (# djfbus 1 (slow 16 $ range 0.5 0.9 cosine)))
let g = (# djfbus 2 (range 0.05 0.95 "^49"))
d1 $ g
  $ mask "<f!4 [t f] f!2 [f!3 t] t!56>" -- Intro
  $ fix (
    (|* gain 0.9)
    . (# lpf 200)
    . (# att 0.2)
    . (# rel 10))
    ("reverbkick")
  $ "k . <k!2 <k ~> ~> [~ <~ k>] <~ [~ <~ k>]> k" -- Chaloupé/élagué
  # "[jazz,reverbkick]"
  # lpf 5000
  # midiG' "^78" 0 1
d2
  $ mask "<f!16 t!48>" -- Intro
  $ g
  $ fast 2 $ "~ snare:20"
  # att 0.125
  # rel 2
  # gain 0.85
  # midiG' "^79" 0 1.2
d3
  $ g
  $ someCyclesBy "<1!4 0!28>" (slow "<4!3 [4 2]>") -- Intro
  $ someCyclesBy "<0!32 1!8 0!24>" (slow 2) -- Pont
  $ ply "<2 [4 <2!3 <4 8>>]>" -- TODO: Plutot des triolets?
  $ "d <~ d> d <d ~ d d>"
  # "drum:2"
  # cut 3
  # gain 0.6
  # pan 0.3
  # midiG' "^80" 0 0.9
d4
  $ g
  $ mask "<f!8 t!24>"
  $ struct "<t!8 [~ t] t!6 t(3,8)> . t(<3 [3 <5 1>]>,[8 <8!3 1>])"
  $ arp "up!3 <converge <down downup>>"
  $ note (chordsMin - 24)
  # "bassWarsaw"
  # crushbus 41 (range 14 8 "^53")
  # pan 0.3
  # room 0.2
  # gain 0.6
  # midiG' "^81" 0 1.1
d5 $ g
  $ note (chords - 24)
  # "FMRhodes1"
  # att 1 # rel 2
  # modIndex (range 0 2 "^54")
  # room 0.8
  # dry 1
  # sz 0.2
  # gain 0.7
  # pan 0.68
  # midiG' "^82" 0 1.2
d6 -- Fantomatic break loop
  $ g
  $ mask "<t!4 t(<5!3 [8 5]>,8)!3 t([5 8],8)>"
  $ ply ("1 <1!3 2>")
  $ iter "1 <4!3 1>"
  $ slice 16 (run 16)
  $ loopAt 2
  $ "break"
  -- # gain 0.45
  # midiG' "^84" 0 1