do
-- resetCycles
setcps (160/60/4)
let gF1 =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 =  (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 =  (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
-- let gMute = (midiOn "^73" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick
  $ midiOff  "^42" (<| "k k k <k <k*2 [~ k]>>")
  $ midiOn "^42" (<| "k  . ~ k ~ ~ ")
  $ "[bskick,jazz]"
  # gain 1.2
  # gain 1.4
d2 $ gF1 $ gM1 -- Snare melancolie fromagere
  $ midiOff  "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
  $ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
  $ "[drumtraks:9]"
  # gain 1.45
d3 $ gF1 $ gM1
  $ midiOn "^44" (ply 2)
  $ midiOn "^76" (ply 2)
  $ "d d d <d [<d ~> d]>" # "drum:2"
  # gain 0.8
  -- # midiG' "^80" 0 1
  # room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 $ gM3
  $ midiOn "^89" (ply 2)
  $ slow 2
  $ note (
    struct "[t,[t(5,8) t(3,8)]]" $
    arp "up" $
    cat [
    "[bf3, d4, f4, a4]", -- Bbmaj7
    "[a3, c4, e4, g4]", -- Am7
    "[d4, f4, a4, c5, <e5 e4>]", -- Dm9
    "[g3, b4, d5, <f5 ~>]" -- <G7 G>
    ] - 12)
  # "bassWarsaw"
  # octersubbus 41 (range 0 2 "^33")
  # crushbus 42 (range 16 4.5 "^53")
  -- # room 0.2
  -- # legato 0.5
  # gain 1.3
d7 $ gF2 $ gM3
  $ midiOn "^89" (ply 2)
  $ slow 2
  $ note (
    struct "t(3,8) [t(<3!3 5>,8)|t|t*2]" $
    arp "up" $
    cat [
    "[bf3, d4, f4, a4]", -- Bbmaj7
    "[a3, c4, e4, g4]", -- Am7
    "[d4, f4, a4, c5, <e5 e4>]", -- Dm9
    "[g3, b4, d5, <f5 ~>]" -- <G7 G>
    ] - 12)
  # "moogBass"
  # cut 7
  # room 0.2
  # legato 0.5
  # delay 0.7
  # delayt 0.125
  # delayfb 0.5
  # gain 1.2
d5 $ gF2 $ gM3 $ slow 2 -- V2 -- TODO : Feedback: reverb? un peu creux?
  -- $ superimpose ((arp "up") . (|+ note 12))
  $ midiOn "^89" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0)))
  $ note (cat [
    -- PARTITION ORIGINALE
    "[bf3, d4, f4, a4]", -- Bbmaj7
    "[a3, c4, e4, g4]", -- Am7
    "[d4, f4, a4, c5, <e5 e4>]", -- Dm9
    "[g3, b4, d5, <f5 ~>]" -- <G7 G>
  ]
  - 12
  )
  # "FMRhodes2"
  -- |- note 12
  |+ note 2 -- Adjust to C
  # modIndex (range 0 2 "^54")
  # room 0.4
  # gain 1.1
d8 $ gF1 $ gM1
  $ midiOff "^60" (mask "f(4,8)" . chop 8)
  $ midiOn "^92" (ply 4)
  $ midiOn "^36" (# "jungle_breaks:45")
  $ midiOn "^56" (# "jungle_breaks:30")
  $ iter "1 <1!4 4!4>"
  $ chop 8
  $ loopAt 2
  $ "break:2"
  -- # n 4
  # cut 8
  # gain 1
d9 -- Alright Paris <3
  $ begin ("<<0.0 0.08> <~ <0.2!3 0.4 0.4!4>>>")
  # end   ("<0.2!3 <0.4!2 0.64!2>>") -- 0.2 - 0.35 - 0.4 - 0.6
  # "movie_paris:14"
  # cut 9
  # gain 1.3
d10
  $ mask"<f!7 t>"
  $ "h2ogmcy:3"


once $ note "c5" # "superpiano"