import Sound.Tidal.ParVagues.Control

-- TODO: Rework and record :)
-- Reboot: From Dark Money to motivating beats
do
setcps (80/60/4)
let whenIntro    pat = someCyclesBy "<t!8 f!24>" pat
let whenNotIntro pat = someCyclesBy "<f!8 t!24>" pat
let whenBrk      pat = whenmod 16 10 pat
let whenNotBrk   pat = someCyclesBy "<t!10 f!6>" pat
let whenBrkLPF  = whenBrk (# lpf "<400 200 100 50 0 0>")
let gDJF = (# djfbus 1  (range 0.05 0.95 "^49"))
let g = (gDJF)
d1 $ g -- Kick
  $ whenBrkLPF
  $ whenNotBrk (# sz "<0.8 0.9 0.95 0.99>")
  $ midiOn "^41"  (<| "k*4 . [k k] <k k*2 k [~ k]>")
  $ midiOff "^41" (<|  "k . k(<3 <5!3 [5 8]>>,8,<0!5 3 0 3>)")
  $ "[reverbkick,jazz]"
d2 $ g -- Contretemps snare
  $ whenBrkLPF
  $ "~ s ~ <~!4 s!12>"
  # "snare" # n "[40,52]"
  # note (-4)
  # gain 0.8
d3 $ g  -- Drumroll fantome
  $ whenBrk (slow "<2 2 4 4 8 8 16 16>")
  $ midiOn "^43" (fast "4 2")
  $ "d*<4 4 8 [4 . <4 16> 16]>" # "[drum:2,cpu:2]"
  # room 0.6 # sz 0.9 # dry 1.01
  # midiG' "^80" 0 1.2
d4 $ g -- A slice of bass
  $ midiOn "^76" (chop 8)
  $ slice 4 "<0 0 [0 1] 3 0*2 [0 1] [3 2] [3*2 3*<2 4>]>"
  -- $ slice 4 "<0!8 1!8 2!8 3!8>*<1!4 2 1 2 4>"
  $ "fbass:8"
  # gain 0.7
  # crushbus 41 (range 8 2.9 "^32")
  # room 0.2
  # pan 0.2
  # cut 4
d5 $ g -- Climbing guitar
  $ whenmod 64 32 (superimpose (
      slice 4 "0*<1 2 1 <2 4>>" .
      (# cut 51) . (|+ note 12)
      . (|* gain (range 0.5 1.5 "^33"))
  ))
  $ slice 4 (
    (whenmod 8 4 (fast 4)) $
    "<0 1 2 3>"
    )
  $ "fguitar:11"
  # cut 5
  # pan 0.4
  # gain 0.5
  # crushbus 51 (range 8 1.9 "^53")
d6 $ g -- Glitchy piano!
  $ whenmod 8 4 (someCyclesBy "0 1 . <0 0.25 0.5 1>" rev)
  $ midiOn  "^90" (slice 8 $ "0 1(<1 3 5 <2 4 8>>,8) 2 3*2" + "<0!8 4!8>")
  $ midiOff "^90" (slice 8 $ "0 1 2 3*2" + "<0!8 4!8>")
  $ "fpiano:11"
  # cut 6
  # pan 0.4
  -- # midiG' "^83" 0 1
d7 $ g -- Sirene
  $ note (
    slow 8
    $ arpeggiate
    $ "d2'min'4" + "<0!8 12!8>"
  )
  # "supersiren"
  # room 0.3 # sz 0.6
  # gain 0.5
  # crushbus 71 (range 8 0.9 "^35")
  # cut 7
d8 $ loopAt 2
  $ "break:12"
  # gain 0.8

  "11" -- Hello :)ô --
