Beyonce - Party in TidalCycles code

bey.tidal

do -- bey
  bps (83/120)
  t1 (j 0) . m
    $ stack [
        -- rarely (brak . fa 2) $
        s "[pcmbd:5 [~ pcmbd:5] ~ ~ ]" > end "0.3" > sp "0.9" > go "0.9:0"
        ,-- almostNever ((> sp "2") . fa 8 . (> pan rand)) . rarely (brak . fa 2) $
         s "[[~ pcmsn:17]*2]"-- [~ ~ ~ [~ pcsn:17*4?]]]"
          > rvb "0.1:0.1" > go "1:2"
        ,--almostNever (str 8 . chop 4 . (> pan rand)) $
         s "[[hc*2 ~]*4]" > orbit "4"
        ,--often (fa 1.5 . (> sp "1.5 2")) $
         jux (rev) $ s "[hc:6]*16?" > go "0.6:4" > sp "1.2"
      ] > nudge "0.1"
  -- m3 silence
  m3 . sl 4
     -- almostNever ((> dur "0.2") . (> velocity "1") . fa 3)
     $ n (fmap (+36) $
        -- almostNever (fmap (subtract 12)) $ rarely (offadd (1/128) 12) $
        "[[ds3,g3,as3 ~ ~ [~ [~ a3 as3]]] [[[d3,f3,a3] [a2,c3,f3] [f2,a2,c3]](3,8) [~ [~ f3]]] [[[c3,ds3] [d3] [g2,as2,d3]](3,8) [~ [~ d3]]] [[f2,a2,c3] [[~ [c3,es3,g3,c4?,c5?]] [~ [d3,f3,a3,d4?,d5?] ~ ~]]]]")
     > dur "[1.3 0.6 0.6 0.5]" > velocity "0.9"
  m4 . sl 4
     $ n (--almostNever (fmap (+12)) $ often (offadd (1/8) 12) $
     "[[[f4 f4 c4 f3] ~ ~ [~ f3*2]] [[g3 g3 f4 g4] ~ ~ [~ d4*2]] [[c4 c4 g4 as4] ~ ~ [~ c4*2]] [[[d4 d4 a4 c5] ~] [[~ c4] [~ d4 ~ ~]]]]")
     > dur "0.3"