'
,. _~-., .
~_ \/,_. \_
/ ,"_>@,__~.) | .
| | @@@@' ",! . . '
|/ ^^@ .! \ | /
` .^^^ , ' | . .
.^^^ . \ / .
.^^^ ' . \ | / . '
.,.,. ^^^ . .,+~'`^`'~+,. , '
&&&&&&, ,^^^^. . ._ ..__ _ .' '. '_ __ ____ __ _ .. . .
%%%%%%%%%^^^^^^%%&&;_,.-=~'`^`'~=-.,__,.-=~'`^`'~=-.,__,.-=~'`^`'~=-.,
&&&&&%%%%%%%%%%%%%%%%%%&&;,.-=~'`^`'~=-.,__,.-=~'`^`'~=-.,__,.-=~'`^`'~=
%%%%%&&&&&&&&&&&%%%%&&&_,.;^'~=-.,__,.-=~'^'~=-.,__,.-=~'^'~=-.,__,
%%%%%%%%%&&&&&&&&&-=~'^'~=-.,__,.-=~'^'~=-.,__,.-==--^'~=-.,__,.-=~'
##mjy#####*"'
,.-=~^~=-.,__,.-=~_,.-=~^~=-.,__,.-=~^~=-.,__,.-=~^~=-.,.-=~^~=-.,__,.-=~
,.-=~^~=-.,__,.-=~~^~=-.,__,.-=~^~=-.,__,.-=~^~=-.,__,.-=~^~=-.,__,.-=~^
R E D
'
use_bpm 130
define :d_ply_beat do |x|
live_loop :ply_beat do
with_synth :sc808_snare do
play rrand_i(45, 67), amp: rand(0.6), attack: rand(0.1), attack_level: rand(0.7), release: rand(0.3) if (spread rrand_i(1, 7), 7).tick end
sample :hat_bdu, amp: rand(1.5), release: rand if (spread rrand_i(1, 12), 12).look
sample :bd_klub, amp: 1.2 if (spread rrand_i(1, 6), 8).look
sleep x
end
end
define :d_atmosphere do
live_loop :atmosphere do
sample :vinyl_hiss, amp: 0.85, rate: [-1,1].choose
sleep sample_duration :vinyl_hiss
end
end
define :d_main_melody do |x, a|
live_loop :main_meldy do
with_synth :dsaw do
s = play scale(x, :major_pentatonic, num_octaves: 2).tick, release: 0.32, amp: rand(1.2)
control s, pan: rdist(1,0) if (spread 7, 13).tick
control s, cutoff: rdist(30,80) if (spread 3, 8).tick
end
sleep a
end
end
define :d_bass do |x,a|
with_fx :reverb, mix: 0.7, room: 0.8, damp: 0.7 do
live_loop :bass do
with_synth :subpulse do
play x, release: 0.32, amp: 0.9 if (spread 5, 8).tick
end
sleep a
end
end
end
define :d_pad do |x,a|
print x
with_fx :reverb, mix: 0.7, room: 0.8, damp: 0.7, res_slide: 65 do |e|
with_synth :hoover do
play (chord_invert(chord x+31, :major7), 3), attack: 4, attack_level: 0.3, decay: 6, sustain: 4, sustain_level: 0.3,release: 4, amp: 0.3, res: 0.9
control e, res: 0.1
end
end
end
/main/
live_loop :main do
A = 0.3 # play around with these values or the bpm up top
d_ply_beat A
print A
x = [:Ab2,:Db2].tick(:chord) #change this chord progression
print x
d_main_melody x, A
d_bass x, A
d_atmosphere
#d_pad x,A
sleep 16
end