once $ "breaks"

do
setcps (80/60/4)
let g1 =  (# djfbus 1 (range 0.05 0.95 "^49"))
let rDeg = degradeBy ("[0 1!7]*2" * (slow 32 $ range 0 0.75 saw))
let mDeg = degradeBy ("[0 1!7]*2" * range 0 0.9 "^13")
d1 $ g1 $ mDeg
  $ (# midiG' "^78" 0 1.5)
  -- $ superimpose (const $ "k . k(<1 3 1 5>, 8)" # "jazz" # gain 0.4)
  -- $ midiOn "^42" (<| "k <~!16 k!16> . ~ k*2 k*<1!3 <2 4>>") -- BREAK
  $ midiOn "^42" (<| "k . k(5,8)") -- BREAK
  $ midiOff "^42" (<| "k k k <k k*2 k [~ k]>") -- 4F!
  $ "[808bd:2]"
d2 $ g1 $ mDeg
  $ whenmod 4 3 (off "<q e>" id)
  $ midiOn "^43" (fast 2)
  $ "~ a"
  # note (-4)
  # "[amencutup:5, snare:40]"
  # midiG' "^79" 0 1
d3 $ g1 $ mDeg
  $ "d d*<1!8 2!8> d*<1!8 2!8> d*<2 2 4 8>"
  # "drum:2"
  # pan (slow 8 $ range 0.4 0.6 isaw)
  # midiG' "^80" 0 1.3
d5 $ g1 $ mDeg
  $ midiOn "^57" (|* speed 2)
  $ midiOn "^89" (ply "<2!3 4>")
  $ slice 4 ("0 <~ 1> 2 <3!3 3*2>")
  $ loopAt 1
  $ "break:17"
  # pan (slow 16 $ range 0.33 0.66 sine)
  # pan 0.7
  # midiG' "^81" 0 0.9
  # crushbus 51 (range 16 3 "^53")
d6 $ g1 $ mDeg
  $ midiOn "^60" (sometimesBy "0 1" rev)
  $ midiOn "^92" (ply 2)
  $ slice 32 ("[0 1*<0 1 2 3>] [1 0] 2*2 3*<1!3 2>")
  $ loopAt 2
  $ "break:19"
  # midiG' "^84" 0 0.9
  # cut 6
  # pan 0.8
d7 $ g1 $ mDeg
  $ midiOn "^59" (iter "1 2")
  $ midiOn "^91" (superimpose ((|* speed 2)))
  $ loopAt "<4!8 2!28>"
  $ "breaks165"
  # midiG' "^83" 0 0.9
  # cut 7
  # pan 0.8


-- PHASE 2: RESOLUMENT CARRE

do
  setcps (80/60/4)
  let g1 =  (# djfbus 1 (range 0.05 0.95 "^49"))
  d1
    $ "k*4"
    # "jazz"
    # gain 0.5
  d2
    $ "~ c ~ c"
    # "cp"
    # lpf 400
    # gain 0.9
  d3
    $ "[h*<1!4 2 1!2 2>] h*3 . h*<1!8 2!8> h*4"
    # "hc:3"
    # cut 3
    # gain 0.4
    # pan 0.7
  d4
    $ slice 8 (run "8 <8!3 4>")
    $ "break:1"
    # cut 4
    # gain 0.48