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