Chris Beckstrom’s
Sound Blog

Septembeat 19

, , ,

“Now that’s what I call boom-zap!”

I love hip-hop. I love boom-bap hip-hop. I love glitchy electronic stuff. I haven’t heard a ton of music that puts those together (please let me know if you know artists who do!!)

Glitch madness, boom-bap, and some rhodes. Classic combo. There’s also loads of sounds from my DIY modular synth in there.

Here’s the Tidalcycles code. I’d say 1/4 of the glitchiness came from here, the other 3/4 from editing and effects in Reaper.

let break =  const $ sb 0.5 (ply (choose[5,6])) $ sb 0.23 (fast 0.5) $ st "<t*8>" $ s (choose["gspec1","gspec1","gspec1", "gtwo","g4","g4","g5","g6","g7","laser","laser","laser","laser","pdhit"])# n (irand 200) # legato 1 # gain 0.9 # speed 1

p "s" $
  whenmod 16 15 (within (0.5,1) $ scramble 4)
  $ every 27 (within (0,0.25) (# gain 0)) -- so funky
  $ every 22 (rev)
  $ whenmod 8 7 ((within (0.25,0.75) (break)))
  $ every 17 (within (0,0.25) (break))
  $ stack [
   --  whenmod 48 40 (db 0)$ sb 0.03 (rev . stut 10 0.05 (1/32))$  st "[[t~~t] [~<~t>~~] [t~~t] [~~t~]]" $ s "kicks:114" # gain 1.06, -- 90 92 114 205
    (0.01~>) $  db "<1 0 0 1 0 0 1 0>/8" $ (11~>) $ st "[~ t ~ ~]" $ s "claps:2" # pan 0.2,
     (0.001 <~) $ (11~>) $ st "[~ t [~~~t] ~]" $ s "snares:20" # pan 0.5,
    (11~>) $ sb 0.1 (rip 8 (1/32)) $ st "[~ t ~ ~]" $ s "g4:5" # gain 0.9 # sus 0.1 # speed 2,
    (187~>) $ db 0.4 $ every 15 (bite 4 "{0 1 1 1 0 1 1 0 1}%8") $ sb 0.2  (rip 19 (1/32) ) $ st "[~ t ~~]" $ s "laser" # n (irand 50) # sus 0.3 # begin 0.5 # hpf 300 # gain 0.9 # legato 1, -- lasers/zaps
    stack [
      (132~>) $ db 0.4 $ st "{t~~}%8" $ s (choose["gtwo:5"]) # begin 0.07 # legato 1,
      db "<0 1 0 0 1>/4" $ (80~>) $ st "{~t~}%8" $ s (choose["gtwo:2"]) # begin 0.07 # legato 1 # gain 1.1,
      db "<1 0 0>/8" $ st "{~~<~t>}%8" $ s (choose["gtwo:212"]) # begin 0.07 # legato 1 # sus 0.2 # gain 0.74
      ],
    st "[~ t ~ ~]" $ s (choose["gtwo:95"]) # begin 0.07 # legato 1 # sus 0.2 # gain 0.9,
    (0.01 ~>) $ swingBy 0.1 8 $ st "[[~tt~][~~~t][~~t~][~<~t>~~]]" $ s "kicks:99" # speed "[1.2 [1.4 1.3]]", -- (bass)
    db 1 $ stack [
        db "<0 1 1 0 1 1 1 0 0>/8" $ (789~>) $ st "[ [~t~~] ~ ~ ~ ]" $ s "g5:0"# legato 1 # sus 0.5 # gain 0.9,
        (99~>) $ sb 0.5 (rev . stut 4 0.3 (1/16)) $ st "[ [~~t~] ~ [~~t~] ~ ]" $ s "g5:87"# legato 1 # sus 0.5,
        (17~>) $ sb 0.5 (rev . stut 4 0.3 (1/16)) $ st "[ [~][t][~][~] ]" $ s "g5:85"# legato 1 # sus 0.5,
        db "<1 0 1 0 1 0 0 0 1 0 0>/8" $ (19~>) $ sb 0.8 (stut 10 0.3 (1/16)) $ st "[ ~~~t]" $ s "g5:11" # legato 1 # sus 0.5 # gain 0.9, -- rising chimes/bubbles
        (21~>) $ sb 0.5 (rev . stut 4 0.3 (1/16)) $ st "[ [~][t][~][~] ]" $ s "g5:85"# legato 1 # sus 0.5,
        (23~>) $ sb 0.3 (stut 4 0.3 (1/16)) $ st "[ ~ ~ <t*2~> ~]" $ s "g5:39" # legato 1 # sus 0.5,
        db "<1 1 0 1 1 1 0>/8" $ (28~>) $ sb 0.2 (stut 4 0.3 (1/16)) $ st "[~ ~ [~~~t][~t]]" $ s "g5:201"# legato 1 # sus 0.5 # gain 0.9-- tritone
       ],
    stack [
       (89~>) $ db "<0.6 0.5 1 0 0.25>/8"  $  st "t*16" $ s (wchoose([("db:8*16",1),("db:12*16",0.3),("db:19*16",1),("db:22*16",1)])) # legato 1 # gain 0.55 # lpf 12000 # speed 2 # sus 0.1 # pan (perlin) # speed 3
          ],
      (99~>) $ ("<0.007>" ~>) $ whenmod 16 8 ((sb 0.5 (ply 2)) . (|* sus 0.8) ) $ st "<t*16>" $ s "rhodes" # n "<  <19 35 9> 16   >" # sus 0.08 # legato 1 # gain 0.8 # speed "<1 2>/8" # o 1
        ]
a view of the DAW Reaper

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.


more sound blog posts