import Sound.Tidal.ParVagues.Control

-- Part 1: Wait
do
  setcps (90/60/4)
  let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
  let prog = "<d5 c5 b4 <a4!3 c5>>"
  let g = gDJF
  d1 $ g
    $ superimpose ((# "reverbkick") . (|* gain 0.9))
    $ midiOn  "^41" (<| "k . k(<3 3 5 <3 4>> 5,8,<0!3 <1 0>>)")
    $ midiOff "^41" (<| "k(<1 2 1 1 3!3 5>,8)")
    $ "hh27:5"
    # midiG' "^78" 0 1.2
    # room 0.2 # dry 1
  d2 $ g
    $ fast "<1!8 1 1 1 2 2 4 8 [8 16]>" -- snare rush
    $ "~ ~ s [~!3 <~!3 s ~!3 s ~!8>]"
    # "amencutup" # n "[13,15]"
    # midiG' "^79" 0 1
  d3 $ g -- Drumroll+Breakbeat
    $ midiOn "^44" (superimpose (
      slice 16 (run "8 <8!3 16 8!3 16 [16 <12 <6 [16 32]>>]!8>") .
      (>| "breaks125:4")
      . (|* gain 1.25)
    ))
    $ someCyclesBy "<0!32 1!8 0!24>" (often $ slow "1 2!6 1")
    $ whenmod 32 16 (often $ ply 2)
    $ "d*<8!3 [8 16]>"
    # "drum:8"
    # midiG' "^80" 0 1.4
  d5 $ g
    $ superimpose (
      (|+| note "~ . 12 <7 ~> [<~ 7> <7 4 4 7*<1 2>>] 12")
      . (# cut 51)
      )
    $ note (prog - 24)
    # "bassWarsaw"
    # crushbus 50 (range 10 3.4 "^53")
    # midiG' "^81" 0 1.5
    # cut 5
  d4 $ g
    $ slice 4 "0 <1 2 2 3>"
    $ "fmono:44"
    # crushbus 40 (range 10 3.4 "^54")
    # cut 7
    # midiG' "^82" 0 0.9
  d7 $ g
    $ whenmod 64 32 rev
    $ midiOn "^91" (striate 4)
    $ slice 4 ("<0!3 2> <1!3 3> 2 <3!3 [3 2] 3 3 [3 2]!2>")
    $ "fguitar:60"
    # pan 0.4
    # room 0.5 # sz 0.6
    # crushbus 70 (range 10 3.4 "^55")
    # midiG' "^83" 0 1.1
    # dry 0.9
    # cut 7
  d6 $ g
    $ mask "t(8,16)" $ chop 16
    $ off "h" (
      (|+| note (12 + (mask "t(3,4,2)" $ arpeggiate "c'maj'4")))
      . (|* gain 0.9)
      . (# cut 6)
      )
    $ note (
      prog
    - 12
    )
    # legato 1
    # "sillyVoice"
    # pan 0.6
    # room 0.4
    # midiG' "^84" 0 1.5

-- Part 2: Got!
do
  setcps (90/60/4)
  let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
  let prog = "<d5 c5 b4 <a4!3 c5>>"
  let g = gDJF
  d1 $ g
    $ superimpose ((# "reverbkick") . (|* gain 0.9))
    $ midiOn  "^41" (<| "k . k(<3 3 5 <3 4>> 5,8,<0!3 <1 0>>)")
    $ midiOff "^41" (<| "k(<1 2 1 1 3!3 5>,8)")
    $ "hh27:5"
    # midiG' "^78" 0 1.2
    # room 0.2 # dry 1
  d2 $ g
    $ fast "<1!8 1 1 1 2 2 4 8 [8 16]>" -- snare rush
    $ "~ ~ s [~!3 <~!3 s ~!3 s ~!8>]"
    # "amencutup" # n "[13,15]"
    # midiG' "^79" 0 1
  d3 $ g -- Drumroll+Breakbeat
    $ midiOn "^44" (superimpose (
      slice 16 (run "8 <8!3 16 8!3 16 [16 <12 <6 [16 32]>>]!8>") .
      (>| "breaks125:4")
      . (|* gain 1.25)
    ))
    $ someCyclesBy "<0!32 1!8 0!24>" (often $ slow "1 2!6 1")
    $ whenmod 32 16 (often $ ply 2)
    $ "d*<8!3 [8 16]>"
    # "drum:8"
    # midiG' "^80" 0 1.4
  d5 $ g
    $ superimpose (
      (|+| note "~ . 12 <7 ~> [<~ 7> <7 4 4 7*<1 2>>] 12")
      . (# cut 51)
      )
    $ note (prog - 24)
    # "bassWarsaw"
    # crushbus 50 (range 10 3.4 "^53")
    # midiG' "^81" 0 1.5
    # cut 5
  d4 $ g
    $ slice 4 "0 <1 2 2 3>"
    $ "fmono:44"
    # crushbus 40 (range 10 3.4 "^54")
    # cut 7
    # midiG' "^82" 0 0.9
  d7 $ g
    $ whenmod 64 32 rev
    $ midiOn "^91" (striate 4)
    $ slice 4 ("<0!3 2> <1!3 3> 2 <3!3 [3 2] 3 3 [3 2]!2>")
    $ "fguitar:60"
    # pan 0.4
    # room 0.5 # sz 0.6
    # crushbus 70 (range 10 3.4 "^55")
    # midiG' "^83" 0 1.1
    # dry 0.9
    # cut 7
  d6 $ g
    $ mask "t(8,16)" $ chop 16
    $ off "h" (
      (|+| note (12 + (mask "t(3,4,2)" $ arpeggiate "c'maj'4")))
      . (|* gain 0.9)
      . (# cut 6)
      )
    $ note (
      prog
    - 12
    )
    # legato 1
    # "sillyVoice"
    # pan 0.6
    # room 0.4
    # midiG' "^84" 0 1.5