ang huling while loop (chords only)

huling_el_bimbo.rb

# Ang Huling El Bimbo by Eraserheads in Sonic Pi 

use_bpm 90

define :main do | start_tick = 0 |
  
  use_synth :pluck
  with_fx :reverb, room: 1 do
    if start_tick > 0
      tick_set start_tick
    end
    
    
    chords = [chord(:g2, :major), chord(:a2, :dom7), chord(:c3, :major), chord(:g2, :major)].ring
    r = tick
    # pattern = [ 1,1,0.75, 0.5, 0.25, 0.5, 1]
    
    play chords[r]
    sleep 1
    play chords[r]
    sleep 0.75
    
    play chords[r], release: 1
    sleep 0.5
    play chords[r] , release: 0.5
    sleep 0.25
    play chords[r]
    sleep 0.5
    play chords[r], release: 2
    sleep 1
    
  end
  
end


define :refrain do
  
  use_synth :pluck
  with_fx :reverb, room: 1 do
    r = tick
    chords = [chord(:e3, :minor), ( chord :g2, :major), ( chord :c3, :major),  ( chord :d3, :major)].ring
    8.times do
      play chords[r]
      sleep 0.5
    end
    
  end
  
end



4.times do
  main
end

sleep 4

3.times do | index |
  main index + 1
end

4.times do
  main
end

# ngunit ang paborito...
4.times do
  main
end

# nakakaindak...
4.times do
  main
end


8.times do
  
  refrain
  
end

8.times do
  main
end