I’m doing Septembeat by the numbers, not by the days. It’s the 26th now and this is the 22nd track I’ve made this month. Not too shabby! I might even do 30.

Keeping the hip-hop + glitch theme, here’s another boom zap track. When I say boom zap I mean instrumental hip-hop with glitches and lasers and zaps etc. The name is a play on “boom bap,” one of the classic hip-hop styles.

As usual, created in Tidalcycles, recorded and arranged in Reaper.

Here’s the code:

let swing = swingBy 0.3 8

bpm 85

p "s" $
  whenmod 16 15 (within (0,0.5) (linger 0.25)) $
  stack [
    swing $ (0.0~>) $ st "[<t t t t*2> [~~~t] <[~t] [~t] [~t] [~~t]> [~~~<~t>]]" $ s "kicks:138" # gain 1 # shape 0.7 # cut 1 # o 1, -- 103 128 138
    swing $ stack [
        st "[~ t ~ t]" $ s "snares:898" # gain 0.8 # pan 0.7, -- 39
        st "[~ t <~~~~ ~~~t> t]" $ s "snares:39",
        st "[~ t ~ t]" $ s "zap" # n "[10 19]" # gain 1.15 # pan 0.3 # hpf 400 -- 19
        ] # o 2 |* gain 0.96,
    swing $ (0.0 ~>) $ st "[~t~~ ~<~t>~~]" $ s "g3:1" # sus 0.1  # gain 0.8 # o 2,
    (0.01 ~>) $ swingBy 0.06 4 $ st "[t*8]" $ s "g3:17" # sus 0.04  # gain 0.8 # speed 3 |* gain "[1 0.8 0.9 0.8]*4" # o 2,
     swing $ whenmod 16 8 (palindrome) $ stack [
        db "<0>/8" $ st "t*4" $ s "dloop:14" # legato 1 # begin "[0 0.15 0.25  <0.21 0.3> <0.5 0.5 0.5 0.5  0.5 0.5 0.5 0.75 >]" # speed 2,
        st "t*4" $ s "dloop:14" # legato 1 # begin "[0 0.15 0.25  <0.21 0.3> <0.5 0.5 0.5 0.5  0.5 0.5 0.5 0.75 >]" # speed 1, st "t*4" $ s "dloop:14" # legato 1 # begin "[0 0.15 0.25  <0.21 0.3> <0.5 0.5 0.5 0.5  0.5 0.5 0.5 0.75 >]" # speed 0.5
        ] |* gain 1.2,
      (0.007~>) $ db "<1 0 1 0 0>/8" $ st "[~t~t~~t~<~~~t>]*4" $ s "dilla_hats:23" # crush 5 # speed 1 # gain 0.85 # pan 0.6 # o 2, -- 23
    swingBy 0.1 4 $ sb 0.2 (# speed 2) $ cat [
      loopFirst $ (83  ~>) $ sb 0.5 (fast 2) $ s "g4*4" # n (irand 200) # gain 0.7 # legato 1, -- 24 44 73
      loopFirst $ (83  ~>) $ sb 0.5 (fast 2) $ s "g4*4" # n (irand 200) # gain 0.7 # legato 1,
      loopFirst $ (83  ~>) $ sb 0.5 (fast 2) $ s "g4*4" # n (irand 200) # gain 0.7 # legato 1,
      loopFirst $ (73  ~>) $ sb 0.5 (fast 2) $ s "g4*4" # n (irand 200) # gain 0.7 # legato 1
      ] |* gain 1.1 # o 3,
    swing $ st "[ [~~t~][~t~~][~t~<~~~t>][~~~t]]" $ s "supersaw" # n "[ [2] [2 <2 2 2 -5>]]/2" |- n 36 # sus 0.2 # lpf 200 |* gain "[ [1 <0 1>] [1 1]]" # o 2
        ]

p "s" $
  whenmod 16 15 (within (0,0.5) (linger 0.25)) $
  stack [
    swing $ (0.0~>) $ st "[<t t t t*2> [~~~t] <[~t] [~t] [~t] [~~t]> [~~~<~t>]]" $ s "kicks:144" # gain 1 # shape 0.6 # cut 1 # o 1, -- 133 144
    swing $ stack [
        st "[[~<~t>~~] t ~ <t [~~tt]>]" $ s "snares:298" # gain 1.1 # pan 0.6, -- 39
        st "[~ t ~ t]" $ s "zap" # n "[50 39]" # gain 1.2 # pan 0.3 -- 19
        ] # o 2,
    swing $ (0.0 ~>) $ st "[~t~~ ~<~t>~~]" $ s "g3:1" # sus 0.1  # gain 0.8 # o 2,
    (0.02 ~>) $ st "[t*8]" $ s "g3:17" # sus 0.04  # gain 0.8 # speed 3 |* gain "[1 0.8 0.9 0.8]*4" # o 2,
    stack [
      (0.007~>) $  st "[~t~t~~t~<~~~t>]*4" $ s "dilla_hats:23" # crush 5 # speed 1 # gain 0.8 # pan 0.5, -- 23
      loopFirst $ (210  ~>) $ db 0.5 $ sb 0.5 (fast 2) $ s "g4*8" # n (irand 200) # gain 0.8 # legato 1 # pan 0, -- 24 44 73
      loopFirst $ (200  ~>) $ db 0.5 $ sb 0.5 (fast 2) $ s "g6*4" # n (irand 200) # gain 0.8 # legato 1 # pan 1, -- 24 44 73
      loopFirst $ (300  ~>) $ db 0.5 $ sb 0.5 (fast 2) $ s "g6*4" # n (irand 200) # gain 0.8 # legato 1 # pan 0, -- 24 44 73
      loopFirst $ (223  ~>) $ db 0.5 $ sb 0.5 (fast 2) $ s "g6*4" # n (irand 200) # gain 0.8 # legato 1 # pan 0 -- 24 44 73
      ] |* gain 0.78 # o 3
        ]

p "s" $
  stack [
    swing $ (0.0~>) $ st "[<t t t t*2> [~~~t] <[~t] [~t] [~t] [~~t]> [~~~<~t>]]" $ s "kicks:144" # gain 1 # shape 0.6 # cut 1 # o 1, -- 133 144
    swing $ stack [
        st "[[~<~t>~~] t ~ <t [~~tt]>]" $ s "snares:298" # gain 1.1 # pan 0.6, -- 39
        st "[~ t ~ t]" $ s "zap" # n "[90 39]" # gain 1.2 # pan 0.3 -- 19
        ],
    swing $ (0.0 ~>) $ st "[~t~~ ~<~t>~~]" $ s "g3:1" # sus 0.1  # gain 0.8 # o 3,
    (0.02 ~>) $ st "[t*8]" $ s "g3:17" # sus 0.04  # gain 0.8 # speed 3 |* gain "[1 0.8 0.9 0.8]*4"
    ]