import Sound.Tidal.ParVagues.Control

once $ "dr"

do
setcps (152/60/4)
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let slowdown = (midiOff "^41" (slow 2))
let g = gDJF
d1 $ g
  $ slowdown
  $ midiOn  "^42" (<| "k*<1!4 2 1!3> k k*<1!3 2>  k*2")  -- FULL
  $ midiOff "^42" (<| "k . ~ k ~ ~")  -- Attente
  $ midiOn "^74" (<| "k*[<8!7 16> <8!3 16>]")  -- Transition
  $ "kick:5"
  # midiG "^78"
  # room 0.85 # dry 0.98 # sz 0.8
d2 $ g
  $ slowdown
  $ fix (someCyclesBy "<1!16 0!16>" (degradeBy "0 0.5!6 0")) ("hh")
  $ "[hh*[<16!4 8 8 16 16> . 8 16],[~ snare:20]*2]"
  # note "0 2 0 <2 3 2 -1>"
  # midiG' "^80" 0 1.5
d10
  $ "~ s ~ s*<0!8 1!3 2 1 1 2 [2 4]>"
  # "snare"
  # n "[10,12]"
  # midiG "^79"
d3 $ g -- Bassline + arps
  $ midiOn "^57" (superimpose (
    (|+| note (
      "0 [12 <12 7>]*<2!4 2 4 4 8>" +
      "12" -- Base
      ))
    . (# cut 31)
    . (|* gain 0.8)
  ))
  $ slice 8 ("<0!4 1!4>")
  $ "poesieSynth:2/4"
  # midiG' "^81" 0 1.2
  # cut 3
  # pan 0.2
  # room 0.13
  # crushbus 31 (range 10 1.5 "^53")
d4 $ g -- Synth disto baseline
  $ "poesieSynth/2"
  # n (slow 4 "<0 1>")
  # midiG' "^82" 0 0.95
  # crushbus 41 (range 10 3.5 "^54")
  # cut 4
  # pan 0.8
  # room 0.4
d5 $ g -- Riff guitaresque
  $ whenmod 32 24 (mask "t f!7")
  $ whenmod 32 16 ( mask "t f")
  $ superimpose (
    mask "f t"
  . (|+ note 12)
  . (# cut 41)
  . (|* gain 0.75)
  )
  $ note ("0 1@2 ~ <4!3 8>*<1!4 2!3 1>")
  # "poesieBass:1"
  # cut 4
  # crushbus 51 (range 10 1.5 "^55")
  # pan 0.7
  # midiG "^83"
d8 -- Voices
  $ g
  $ someCyclesBy "<f!16 t!16>" (
    slice 16 (cat [
    "10 10(3,8)",
    "10 11 10 11",
    "10 10(3,8)",
    "10 11 9 12"
    ]))
  $ someCyclesBy "<t!16 f!16>" (slice 16 (cat [
    "0",   "0*2", "0", "0 . 1",
    "0*4", "0", "0 1 0 1", "0 1 2 3"
    ]) )
  $ loopAt 4
  $ "poesieVoice:1"
  # midiG' "^84" 0 0.75
  # crushbus 81 (range 5 1.5 "^56")
  # distortbus 82 (range 1 2 "^36")
  # pan "0.25 0.75"
  # room 0.4
  # cut 8