Hi Soxsa,
Please forgive me… I’m a bit of a ‘tinkerer’, I mess with
other people’s code, trying to find nice sounds… sometimes
I come up with stuff I think is nice…
Eli…
use_random_seed 667766
use_bpm 50
cmaj = scale(:c2,:major,num_octaves: 5) # list of 36 notes
dmaj = scale(:d2,:major,num_octaves: 5)
emin = scale(:e2,:minor,num_octaves: 5)
fmaj = scale(:f2,:major,num_octaves: 5)
fmin = scale(:f2,:minor,num_octaves: 5)
gmaj = scale(:g2,:major,num_octaves: 5)
amin = scale(:a2,:minor,num_octaves: 5)
bmaj = scale(:b2,:major,num_octaves: 5)
revtrag = [cmaj, amin, emin, gmaj]
lotr = [emin, cmaj, gmaj, dmaj]
glass = [emin, cmaj, gmaj, bmaj]
wagon = [gmaj, dmaj, emin, cmaj]
purty = [cmaj, emin, fmaj, fmin]
arp = [0,2,4,7,9,11,14,16,18,21,23,25,28,30,32,35]
iter = 1
frame = 0
live_loop :test do
notein = rand_i(16)
mynote = arp[notein] # select note from arp list, by datain value
# myrand = arp[rand_i(16)] # random value from the arp
if ((iter % 16) == 0) # at the end of the sequence
frame = frame+1
end
#play (revtrag[(frame % 4)])[mynote]
#play (lotr[(frame % 4)])[mynote]
#play (purty[(frame % 4)])[mynote]
puts mynote
if mynote > 11 then
use_synth :blade
play (lotr[(frame % 4)])[mynote] , attack: 2, sustain: 1, release: 0.5, amp: 1
else
use_synth :fm
play (lotr[(frame % 4)])[mynote]+12, sustain: 0.5, amp: 1.5
end
iter = iter+1
sleep 0.25
end