oct_15_midoct.tidal 1.51 KB

do
setcps (90/60/4)
let gF1 =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gF1
  $ "k [~!3 k] <~!2 k ~> <~!8 [~ <~ <k k*2>>]!24>" -- Swing Groove
  -- $ "k ~ k ~" -- Classic Boom-Bap
  # "[808bd,808bd:4]"
  # pan 0.3
  # midiG' "^78" 0 1.5
d2 $ gF1 -- BREAKBEAT
  $ mask "[f t!3] [t!3 f] [<t!2 f t> t] [<t!8 [t f]>]" -- Mask Swing Groove
  -- $ someCyclesBy "^31" (juxBy 0.8 ((# cut 81) . rev))
  $ slice 4 "0 1*<1!3 2> 2*<1 2> 3*<1 <1 2 [4 2] [8 4]>>"
  $ chop 16
  $ loopAt 2
  $ "break:2"
  -- # speed (range 0 2 "^51")
  # cut 8
  # midiG' "^79" 0 1.5
d3 $ gF1 -- Hats swing constantes
  $ someCyclesBy "<0!32 1!32>" (ply "1 1 1 [<1 1 2 <1 <4 2>>> <2 1 1 <2 4>>]")
  $ someCyclesBy "<1!32 0!32>" ((ply "1!3 [<1 1 2 <1 2>> 2 <1 2>]") .(off 0.125 id) . (swing 4))
  $ "h*8"
  # "electrn:4"
  # cut 3
  # pan 0.2
  # midiG' "^80" 0 1
d4 $ gF2
  $ whenmod 8 7 (ply "2 <2 4>")
  $ slice 4 "0 <~!4 1 ~ 1 ~ 1 2 1 2 [1 2] [1 3] [2 3] [1 2 2 3]>"
  $ "fbass:12"
  # room 0.4
  # sz 0.5
  # cut 4
  # crushbus 41 (range 16 2.5 "^53")
  # midiG' "^81" 0 1
d10 $ gF3
  $ slice 4 "<0!4 ~!12> ~ <~ <2 2?>> <~!32 3*<[1]!8 1 2 2 4 4 2 4 4>!32>"
  $ "weird_dialogs:1"
  # cut 10
  # att 0
  # rel 2.9
  # midiG' "^20" 0 1.8
  # pan 0.8
d9 $ gF3
  -- $ mask "<t!4 f!4 t!24>"
  $ chop 4
  $ "weird_dialogs:25"
  # cut 9
  # pan "<0.2 0.8>"
  # crushbus 91 (slow 16 $ range 16 3.5 saw)
  # midiG' "^19" 0 1.8
  |* gain (0.8 + (range 0 0.28 saw))


  c g  show

  cs gs