Der Litauen-Sound von Julian H.
Warum ich für Littauen einen Zufalls Generator geschrieben habe liegt an den dem Land und mit welchen Zufällen es bestreut wurde.
use_random_seed 1867548545
root = :d3
type = '9sus4'
synth = :piano
row1 = [*(chord root, type, num_octaves: 2).take(8)]
row2 = row1
row3 = row1
tim1 = [0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5]
tim2 = tim1
tim3 = tim1
mod1 = [0,0,0,0,0,0,0,1]
mod2 = mod1
mod3 = mod1
stop_time = rand_i(60)+60
use_bpm 90
live_loop :metronome do
use_synth synth
play root + 24
sleep 1
if vt > stop_time
stop if one_in(5)
end
end
live_loop :minimal1 do
use_synth synth
tick
play row1.ring.look, amp: 0.5
if mod1.ring.look == 1
if one_in(3)
mod1 = mod1.shuffle
tim1[rand_i(8)] = (ring 0.5,0.25,0.75,1).choose
row1[rand_i(8)] = (chord root, type, num_octaves: 3).choose
puts row1
end
end
sleep tim1.ring.look
if vt > stop_time
stop if one_in(10)
end
end
live_loop :minimal2 do
use_synth synth
tick
play row2.ring.look, pan: 0.8, amp: 0.5
if mod2.ring.look == 1
if one_in(3)
mod2 = mod1.shuffle
tim2[rand_i(8)] = (ring 0.5,0.25,0.75,1).choose
row2[rand_i(8)] = (chord root, type, num_octaves: 3).choose
puts row2
end
end
sleep tim2.ring.look
if vt > stop_time
stop if one_in(10)
end
end
live_loop :minimal3 do
use_synth synth
tick
play row3.ring.look, pan: -0.8, amp: 0.5
if mod3.ring.look == 1
if one_in(3)
mod2 = mod1.shuffle
tim3[rand_i(8)] = (ring 0.5,0.25,0.75,1).choose
row3[rand_i(8)] = (chord root, type, num_octaves: 3).choose
puts row3
end
end
sleep tim3.ring.look
if vt > stop_time
stop if one_in(10)
end
end