Some instrumental boom zap hip-hop in 3

Tidalcycles code:

let swing = swingBy 0.05 6

let rip a = rev . stut a 0.2 (1/48)

bpm 110

p "s" $
   whenmod 8 7 (sb 0.5 (scramble 3)) $
   whenmod 16 15 (sb 0.7 (scramble 6)) $
   sb 0.2 (within (0.66,1) (bite 3 "{1}%3")) $
   swing $ stack [
        -- kicks
    (100~>) $ sb 0.03 (rip 9) $ st "[ t [t] [~~] [~] [t<~t>] [~t] ]" $ stack
      [s "kicks:103" # o 0,
       db "<1 0>/8" $ (17~>) $ db 0.1 $ s "g5:12" # legato 1 # gain 0.8,
       (15~>) $ db 0.1 $ s "g5:29" # legato 1 # gain 0.8 # pan 0
      ] # o 0,
      -- snares
    db "<0 0 0 1 0 0 0>/8" $ (101~>) $ sb 0.1 (rip 5) $ st "[[~t~~] t [<~~~t>~~<~t>]]" $ (12~>) $ sb 0.2 (plyWith 2 (|* gain 0.6)) $ stack [
          s "snares:300" # gain 1.1 # pan 0.3,
          s "g6:45" # gain 0.8 # legato 1,
          s "g6:49" # gain 0.8 # legato 1,
          s "g6:57" # gain 0.9 # legato 1
        ] # o 1,
      -- claps
      -- db "<1 0 1 0 0>/8" $
      (0.015~>) $ st "[~ t ~]" $
      stack [
        s "cp:29" # speed 1.3,
        s "g6:46" # gain 0.8 # legato 1,
        s "g6:13" # gain 0.8 # legato 1,
        db "<1 1 0 0>/8" $ s "zap:78" # gain 1.3 # pan 1 # speed 1 # sus 0.4
        ] # o 1,
    stack [ -- glitches
        db "<1 0 1 0 0>/8" $ st "[~ [~t] ~]" $ s "g3" # n 107 # legato 1 # sus 0.2 # gain 0.8,
        db "<0 0 1  0 1>/8" $ st "t*12" $ s "g3" # n 121 # legato 1 # sus 0.05 # begin 0.1 # gain 0.8 # speed 2 # pan 0.7, -- hh
        db "<1 0 0 0 1 0 1>/8" $ st "[~ t [~~~t]]" $ s "g3" # n 905 # legato 1 # sus 0.2 # gain 0.8,
        s "g5:57/4" # gain 0.9 # legato 1,
          db "<1 0>/8" $ loopFirst $ "g6*12" # n (irand 200) # gain 0.9 # legato 1,
          db "<0 1>/8" $ loopFirst $ (120 ~>) $ "g6*12" # n (irand 200) # gain 0.9 # legato 1
        ] # hpf 300 # o 2,
    every 7 (scramble 6) $ s "dloop" # n 0 # gain 1.3 # speed 0.5 # cut 11 # shape 0.3 # begin "[0 0.1 0.2 0.3 0.4 0.5 0.6]" # o 4,
     db "<1 0>/8" $ st "[~t~]" $ s "dloop" # n 0 # gain 1.3 # speed 1 # cut 12 # shape 0.3 # begin 0.6 # gain 1 # o 0 # o 4,
     -- bass
     (0.01~>) $ st "[ [~<~~~t>~t]   [~~~t]    [~t~t?]]"$ s "supersaw" # n "[2 2 [12 0]]" |- n 24 # lpf 250 # sus 0.2 # cut 29 # o 3
        ]