import Sound.Tidal.ParVagues.Control

-- Dark Money: Downtempo dark minor LoFi
do
setcps (60/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 = midiDJF "^49" 200 9800 0 1000
let g = (gDJF)
d1 $ g -- Kick
  $ whenBrkLPF
  $ whenNotBrk (# sz "<0.8 0.9 0.95 0.99>")
  $ "k . k(<3 <5!3 [5 8]>>,8,<0!5 3 0 3>)" # "jazz"
  # lpf 1000
  # room 0.2 # att 0.5
  # legato 2 # cut 1
  # midiG' "^78" 0 1.8
d2 $ g -- Contretemps snare
  $ whenBrkLPF
  $ whenmod 16 8 (fast 2)
  $ whenmod 8 6 (mask "<f [f t]>")
  $ superimpose (# hpf 500)
  $ "~ s"
  # "snare:20"
  # midiG "^79"
d3 $ g  -- Drumroll fantôme
  $ whenBrk (slow "<2 2 4 4 8 8 16 16>")
  $ fast ("8" * "<[2 1!7] 1!3> <2 [2 1] [2 . 1 2] [2 4]>")
  $ "drum:2"
  # room 0.6 # sz 0.9 # dry 1.01
  # midiG' "^80" 0 1.4
d5 $ g  -- Bassline {hypno,aqua}tique
  $ swing 2
  $ whenNotBrk (off "<e q> . <q h>" (|+ note 7))
  $ struct "t*<[1 0] 2 4 [12 . 8]>"
  $ (|/ crush (range 0 2 "^53")) -- Manual crush enabler
  $ (# crush (slow 8 $ range 10 7 saw))
  $ note ("fs a" - 24)
  # "bassWarsaw"
  # midiG' "^81" 0 1
d4 $ g -- Toy bogdan
  $ every' 16 15 (>| "~ ~ ~ bogdan:4")
  $ every' 16 9 ((>| "~ ~ ~ bogdan:2") . (|* gain 0.8))
  $ "~ bogdan"
  # room 0.5
  # legato 2
  # hpf 200
  # midiG' "^84" 0.5 1.4