-- Morning breakbeat bassline funky :)
-- MIDI Accompagnement: Grille Impro Jazz :)
resetCycles

do
setcps (90/60/4)
d1 -- Kick chaloupé décalé
  $ mask "<f!4 t f!3 t!8 t!16>"
  $ s "k(3,8,<0!3 3>)" # "jazz"
d2 -- Snare clappé
  $ mask "<f!2 t!30 t!32>"
  $ s "~ . <s!3 s*2> ~" # s "[snare,cp]" # gain 0.85
d7 -- Drumroll énergisant
  $ jux rev
  $ fast "<4!3 <8 [8 16 8]>>"
  $ "drum:2*[<2!3 4>]"
  # gain 0.95
d3 -- Bass loop / découpe
  $ mask "<t!4 f t!3 f!2 t!2 f!4 t!4 t!16>"
  $ slice 4 (cat [
    "0 1 2 3", "0 1 2 3", "0 1 2 3", "0 1 2 3",
    "4 5 6 7", "4 5 6 7", "6 7 6 7", "7",
    "7*2", "7*2", "7*4", "7*2",
    "4 5 6 7", "4 5 6 7", "4 5 7 7","4 6 6 7"
  ]
  )
  $ "fbass:12"
  # gain 0.9
  # cut 3
  # pan 0.6
d4 -- break from Pray
  -- $ mask "<f!4 t!24 f!3 t!29>"
  $ slice 8 (cat [
    "0 4", "0 4", "0 4", "0 4", -- Intro
    "0 2 4 4", "0 2 4 2", "0 2 4 4", "0 2 4 6",
    "0 <1 1(<3 5>,8,<0 4>)> 2 3(<3 5>,8)", -- Laggy
    "0 <1 1(<3 5>,8,<0 4>)> 2 3(<3 5>,8)", -- Laggy
    "0 <1 1(<3 5>,8,<0 4>)> 2 3(<3 5>,8)", -- Laggy
    "0 <1 1(<3 5>,8,<0 4>)> 2 3(<3 5>,8)", -- Laggy
    "4*2 5 6(3,8) <[~ 7] 7?>", -- Laggy end
    "4*2 5 6(3,8) <[~ 7] 7?>", -- Laggy end
    "4*2 5 6(3,8) <[~ 7] 7?>", -- Laggy end
    "4*2 5 6(3,8) <[~ 7] 7?>" -- Laggy end
  ]
  )
  $ loopAt 1
  $ "break:1"
  # cut 4
  # gain 0.85
d5 -- Guitare de l'espérance
  $ mask "<f!8 t!16 f!4 t!4 f!4 t!28>"
  $ every' 8 6 (fast 2)
  $ "fguitar"
  # cut 5
  # n (slow 8 $ "<13 14 13 15>")
  # gain 0.8
d6 -- Piano finaliste
  $ mask "<f!32 t!32>"
  $ slice 8 ("<0 4> 1 2 3 0 1 2 0") $ "fpiano:15"
  # gain 0.7
  # pan 0.9