Skip to content

Instantly share code, notes, and snippets.

@interstar
Last active August 3, 2021 21:32
Show Gist options
  • Save interstar/4ed48718cb44ae6d9715988ae160e3f1 to your computer and use it in GitHub Desktop.
Save interstar/4ed48718cb44ae6d9715988ae160e3f1 to your computer and use it in GitHub Desktop.
Trap beat for sonic pi
use_bpm 145
# Our chord sequence
p1 = [chord(:E3,"minor7"),
chord(:G3,"major7"),
chord(:A3,"minor7"),
chord(:G3,"m9"),
chord(:E3,"m9"),
chord(:C3,"minor7"),
chord(:Fs3,"major7"),
chord(:D3,"m11")
]
# cc is Current chord, global variable
cc = chord(:E3,"minor")
# the main piano / chord loop
with_fx :level, amp: 0.5 do
with_fx :reverb do
with_synth :piano do
live_loop :piano do
p1.each {
|c|
cc = c
play c, decay: 3.5
play c+12, decay: 3.5, amp: 0.8
sleep 1
play c.choose+24, decay: 2, amp: 0.5
sleep 1
play c.choose+24, decay: 2, amp: 0.5
sleep 2
}
end
end
end
end
# The bells ... extra melody
with_fx :reverb do
with_fx :bitcrusher do
with_fx :pitch_shift, pitch: 12, mix: 0.95 do
with_synth :dull_bell do
live_loop :bells do
vs = [1,1,1,0, 1,0,1,0, 1,0,0,0, 0,0,1,0].ring
play cc.choose+24, amp: 0.5*vs.tick(:vs)
sleep 0.5
end
end
end
end
end
# Kicks
def kick(v)
sample :bd_mehackit, amp: 2*v
end
# The regular kick
live_loop :kick1 do
kick(1)
sleep 5
kick(1)
sleep 3
end
# the irregular "bounce" kick
live_loop :kick2 do
v=[0,0,0,0,0.7,0.9].choose
kick(v)
sleep 7
end
# The 808 / bass
def _808(p,v,d)
play p-24, amp: v, attack: 0.3, decay: d, sustain: 0, release: 0.5
end
with_fx :slicer do |sl|
live_loop :_808 do
control sl, phase: [6,6,6,6,6,4,4,2,1,0.5].choose
_808(cc[0],1,3.5)
sleep 5
_808(cc[0],1,1.6)
sleep 3
end
end
# snares ...
# why doesn't sonic pi come with better snare sounds?
def snare(v)
sample :sn_generic, rate: 2, amp: 3*v, attack: 0, sustain: 0, release: 0, decay: 0.06
sample :drum_snare_hard, rate: 2, amp: 1.5*v, attack: 0.01, sustain: 0, release: 0, decay: 0.03
end
with_fx :distortion do
live_loop :snare do
vs = [0,0,1,0, 0,0,1,0, 0,0,1,0, 0,0,1,1]
vs.each {
|v|
snare(v)
sleep 1
}
end
end
# Those all important hats
def hat(v)
sample :drum_cymbal_closed, amp: 1.5*v, attack: 0, decay: 0.01, sustain: 0, release: 0
end
live_loop :hats do
a = [0,0,0,1,1,2,2,2,2].choose
case a
when 0
8.times do
hat(1)
sleep 0.5
end
when 1
8.times do
hat(1)
sleep 0.25
end
when 2
2.times do
hat(1)
sleep 0.3
hat(1)
sleep 0.3
hat(1)
sleep 0.4
end
end
end
## For more about Chords in Sonic Pi, see https://www.youtube.com/playlist?list=PLuBDEereAQUz2iiEZb7yGLH0Bzi52egGp
@Mels66
Copy link

Mels66 commented May 26, 2020

That's nice Man!

@boardkeystown
Copy link

fun

@interstar
Copy link
Author

Anyone interested to see more chord sequences in Sonic Pi, check out my series here : https://www.youtube.com/playlist?list=PLuBDEereAQUz2iiEZb7yGLH0Bzi52egGp

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment