Litauen

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