import Sound.Tidal.ParVagues.Control

resetCycles

do
setcps (60/60/4)
let patFunk = "ds gf f <bf4!3 bf>"
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let gPont = whenmod 64 32 (mask "<f!6 t!26>")
let g = gDJF
d1 $ g $ gPont
  $ mask "<f!4 t!60>"
  $ midiOn "^41" (fast 2)
  $ "[bd,jazz]*4"
  # midiG' "^78" 0 1.2
d2 $ g $ gPont $ mask "<t(1,2)!4 t!60>"
  $ "~ c ~ c" # "[clap]"
  # midiG "^79"
d3 $ g $ gPont
  $ midiOn "^76"  (slice 8 (run 8) . (loopAt 0.5) . (>| "breaks165"))
  -- $ mask "<f!8 t!24>"
  $ (
    mask "t . t t(2,4)"
    . sometimesBy "0 . <0 1>" (ply "2 . [2|1]*4"))
  $ "gretsch:4*16"
  # pan 0.25
  # midiG' "^80" 0 1.5
d4 $ g
  $ mask "<f!4 t!28>"
  $ note patFunk
  # "bass3"
  # pan 0.2
  # crush (range 16 2.5 "^53")
  # midiG' "^81" 0 1.3
d5 $ g
  $ whenmod 8 4 (juxBy 0.8 (mask "f t" . ply 2))
  $ ("q" ~>)
  $ note patFunk
  # "pluck"
  # room 0.6
  # sz 0.8
  # crush (range 16 2.5 "^54")
  # midiG' "^82" 0 1.3
d6 $ g -- Final guitare rita
  $ slice 16 "0 . 1 <~ 1 2>"
  $ loopAt 6
  $ "rita:0"
  # gain 0
  # cut 6
  # hpf 400
d7 $ g -- Bonus breaks
  $ midiOff "^76" (mask "<f!4 t!4 f!8 t(<4!8 [4 8]!4 8!4>,16)!16 t!3 [t f t f] t!28>")
  $ slice 8 "0 1*<1!5 2!3> 2 3 . 0 .. <<3 1>!4 7!3 3>"
  $ "breaks165"
  # pan 0.75
  # cut 7
  # midiG' "^80" 0 1.2
  # room 0.2
  # hpf 100
d8 $ g -- Organic madness
  $ mask "<f!7 t f!4 t f!19 t!3 f t!28>"
  $ midiOn "^59" (sometimesBy (slow 4 saw) (ply 2))
  $ chop 4
  $ someCyclesBy "<0!32 1!4 0!28>" (|* gain (slow 4 $ range 0.5 1 saw))
  -- $ mask "<f!32 t!32>"
  $ "forgan:14"
  # lpf 1000
  # midiG' "^83" 0 1.2
  # cut 8
d10 -- F-U-N-K -- TODO Variations FUCK / FUN
  $ mask "<f!8 t!24>"
  $ degradeBy "0 <0.5 0.45 0.35 0.3 0.25 0.2 0.15>!7 <1!3 0>"
  $ whenmod 64 48 (swing "<6!8 [3 4]!8>")
  $ someCyclesBy "<1!48 0!16>" (ply "<1 <2 [4 2]>>")
  $ n "5 20 13 10"
  # "alphabet"
  # release 0.8
  # midiG' "^84" 0 1.3
  # pan "<0.1!4 0.9!4>"