august.tidal

do
setcps (120/60/4)
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let g = gDJF
let m = (degradeBy (1 - (0.9 * "0 ^29!15 0")))
d1 $ g
  $ midiOn "^41" (<| "k k k <k [<~ k> k]>")
  $ midiOff "^41" (<| "k . k(<3!3 <3 <1 5>>>,8,<0!3 4>)")
  $ "[jazz,reverbkick]"
  # att 0.03 # rel 0.99
  # midiG' "^78" 0 1.52
d2 $ g
  $ midiOn "^43" (<| "c*<2!3 4 4 [4 2] [4 8] 16>")
  $ fix (# note "-2") (("glitch:2"))
  $ superimpose ((# "[glitch:2,glitch:5]"))
  $ "~ clap"
  # pan 0.8
  # note (range "-12" 12 "^51")
  # midiG' "^79" 0 1.8
  # room 0.72 # sz 0.5 # dry 0.99
d3 $ g $ m
  $ someCyclesBy 0.1 (fast "<2 0.5>")
  $ someCyclesBy 0.2 (ply 2)
  $ fast "<1 1 2 1 2 2 2 <2!3 4>>"
  $ "hh*4"
  # midiG' "^80" 0 1.8
  # lsize (range 0 8 "^16")
  # lrate (range 0.8 6.8 "^32")
  # leslie (range 0 2 "^52")
d4 $ g $ m -- BREAK
  $ midiOn ("^57" - "^89") (ply 2)
  $ midiOn "^89" (striate "<4!3 [8 4]>")
  $ loopAt 1
  -- $ whenmod 8 6 (off "h" id . mask "t . f")
  $ slice 8 ("0 1 2 3*<<1!8 0!4 1!3 2> 2 4>")
  $ "break" # n "<14!4 15!4>"
  # midiG' "^81" 0 2
  # cut 2
d6 -- Runny Maracas
  $ g $ m
  $ whenmod 16 8 (often $ fast 2)
  $ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
  $ fix ((|* gain 0.9)) (n 9)
  $ fix ((# release 0.8)) (n 9)
  $ "hh27*8"
  # n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
  # note (range "-12" 12 "^55")
  # midiG' "^83" 0.25 2.5
d7 $ g $ m -- new breakbeats
   $ loopAt 1
   $ midiOn "60" (ply "2 <1 4>")
   $ midiOn "92" (slice 4 "0 1 0 3")
   $ slice 4 "0 <1!8 ~ 1 ~ 1 1 1 1? 1> 2 1*<1 0 1 <2 1 2 4>>"
   $ "breaks125"
   # midiG' "^84" 0.25 2
   # cut 7
d8
  $ g
  $ fix (someCyclesBy "<0!16 1!8 0!8>" (mask "f")) (n 1)
  $ fix (sometimesBy "0.25" $ ply 2) (n 1)
  $ n (stack [
  "~ . ~ 5 ~ ~", -- Kick
  "6",
  "~!3 <1 ~ [~ 1] 1*2>", -- Ho
  ""
  ])
  # "tech"
  # midiG' "^84" 0 2



d5 $ "tech"


-- Lignes harmoniques
d4 $ g -- c pure harmony
  $ chop 8
  $ note (arp "up" "<c gs>")
  # octave 4
  # pan 0.2
  # "bassWarsaw"
  # crushbus 4 (range 10 4.5 ("^53" + 0.5 * perlin))
  # midiG' "^81" 0 1.5
d5 $ g
  $ mask "<[f t]!4 t!12>"
  $ note (scale "aeolian"
  "<0!8 5!8 4!4 5!8> <~ ~ 2 ~ 2!4> . <4 3 3 4>"
  )
  # "cbow:1"
  # crushbus 5 (range 10 3.5 "^54")
  # cut 5
  # midiG' "^82" 0 1.5