import Sound.Tidal.ParVagues.Control


do
setcps (90/60/4)
let g = (# djfbus 1 (range 0.05 0.95 "^49"))
d1 $ g
  $ midiOn  "^41" (<| "f*2 f*2 f [f <~ f> f ~]")
  $ midiOff "^41" (<| "0 . 0(3,8,<0!3 4>)")
  $ "[rootsDrums,jazz]"
  # midiG' "^78" 0 1.8
d2  $ g
  $ midiOn "^43" (fast 2)
  $ superimpose ((# "cp") . (# room 0))
  $ n "[~ 4]*<2!6 4 [4 2]>"
  # "rootsDrums"
  # midiG' "^79" 0 1.8
  # room (slow 24 $ range 0.3 0.9 saw)
d3 $ g
  $ slice 4 "0 1 2 3"
  $ loopAt 2
  $ "break"
  # midiG' "^80" 0 1.8
  # cut 3
d6
  $ g -- BASSLINE
  $ n "<2!4 2 3 3 ~>"
  # "rootsBass"
  # midiG' "^81" 0 1.5
  # crushbus 62 (range 16 1.4 "^53")
  # cut 6
  # pan 0.15
d4 $ g
  $ midiOn "^58" (slice 4 ("<[0 1] [2 3]>"))
  -- $ "<g g g/2 [~ <~ g ~ g*2>] g ~ g ~ g ~ ~ [~ g*4]>"
  $ "g/4"
  # s "rootsGuitar"
  # lesliebus 42 (range 0 16 "^54")
  # lratebus 41 ("^34")
  # midiG' "^82" 0 1.5
  # cut 4
  # pan 0.3
d5
  $ g
  $ degradeBy "^56"
  $ slice 16 (run 16)
  $ loopAt 2
  $ "rootsMix:1"
  # midiG' "^84" 0 1.8
  # cut 5
  # pan 0.6
d10 -- Trompettes
  $ g
  $ n "<0 0 ~ ~ 1 1 [1*2 ~] 1 2 [2 3] 3 3 4 5 6 7>" # "rootsTrump"
  # cut 8
  # midiG' "^83" 0 (slow 16 $ range 1.4 0.8 saw)
  # room 0.4
  # sz 0.8
  # pan 0.8
d9
  $ "rootsTromb:3/2"
  # midiG' "^83" 0 1.4
  # cut 9
d7 $ g
  $ superimpose  (
    (# cut 7)
    . struct "t*<8!3 12>"
    . (|+| note (arp "<updown!4 downup!2 pinkyup downup!3 pinkyup!2>" "<c'six'4!3 c'maj'4>"))
    )
  $ note (
    "<cs3 b3>"
    |+| "0 <7 <7 12>>"
  )
  # "FMRhodes2"
  # crushbus 72 (range 16 4.3 "^36")
  # midiG' "^20" 0 1.4