Bach's Fugue in G minor BWV 542 arr Franz Listz for Sonic Pi

BachFugueInGminorArrLisztBWV542-RF.rb

#BachFugueInGminorArrLisztBWV542-RF.rb
#coded for sonic pi by Robin NEwman, October 2019
#there are two ;pl functions pl and plx
#one plays :piano synth, the other midi.
#current active one is named pl. Swap names to use the other one.
#adjust midi defaults for required port.
#use run_file "path/to/this/file" to play

use_midi_logging false
use_debug false
define :ld do |dur|
ln=0
dur.each do |d|
ln+=d
end
return ln
end
define :pl do |nt,dur,ch=1,f=1|
  nt.zip(dur).each do |n,d|
    if n.respond_to?(:each)
      n.each do|nv|
      play nv,sustain: d
    end
    else
      play n,sustain: d
    end
  sleep d
  end
end

define :plx do |nt,dur,ch=1,f=1|
  nt.zip(dur).each do |n,d|
    if n.respond_to?(:each)
      n.each do|nv|
      midi nv,sustain: d*f,channel: ch
    end
    else
      midi n,sustain: d*f,channel: ch
    end
  sleep d
  end
end


use_synth :piano
use_midi_defaults port: "midi_through_port-0",vel_f: 0.9
midi_pc 0 
with_fx :reverb, room: 0.7,mix: 0.6 do
a1=[]
b1=[]
a1[0]=[:r,:r,:D5,:Bf4,:C5,:A4,:Bf4,:G4,:G5,:Fs5,:G5,:E5,:Fs5,:D5,:G5,:D5,:Ef5,:C5,:F4,:F5,:D5,:Ef5,:C5,:D5,:Bf4,:Ef5,:Bf4,:C5,:A4,:D4,:D5,:Bf4,:C5,:A4,:Bf4,:G4,:A4,:Bf4,:C5,[:F4,:D5],:G4,[:E4,:E5],:F4,[:D4,:F5],:G5,[:D5,:F5],:G5,[:Df5,:A5],:D5,[:B4,:E5],:Df5,:F5,:E5,:D5,:Df5,:D5,:D4,:E4,:D5,[:A4,:C5],:D5,[:G4,:Bf4],:C5,[:Fs4,:A4],:Bf4,[:D4,:C5],:D5,[:G4,:Bf4],:C5,[:F4,:A4],:Bf4,[:Ef4,:G4],:A4,[:D4,:Bf4],:C5,[:C4,:A4],:Bf4,[:Ef4,:G4],:A4,[:D4,:Fs4],:A4,[:E4,:G4],:Bf4,:r,:r,:G5,:F5,:G5,:r,:r,:r,:Ef5,:r,:D5,:r,:C5,:r,:G5,:A4,:Bf5,:A5,:G5,:r,:Fs5,:G5,:r,[:A4,:F5],[:Df5,:G5],[:D5,:A5],[:F5,:Bf5],:A5,:G5,[:D5,:F5],:E5,:D5,:Bf4,:A4,:F5,:r,:G5,:E5,:r,[:D4,:Bf4],[:Ef4,:C5],[:C4,:A4],[:D4,:Bf4],[:Bf3,:G4],[:D4,:Bf4],[:Ef4,:G4,:C5],:r,[:Ef4,:C5],[:D4,:Bf4],[:Ef4,:C5],[:C4,:A4],[:D4,:Bf4],[:Bf3,:G4],[:C4,:A4],[:A3,:F4],[:C4,:A4],[:D4,:F4,:Bf4],:r,[:D4,:Bf4],[:C4,:A4],[:D4,:Bf4],:G4,:C5,:r,:Bf4,:G4,:r,:r,:Bf4,:C5,:A4,:Bf4,[:D4,:G4],:D5,[:C5,:G5],:Ef5,:Fs5,:G5,:E5,:Fs5,:D5,:G5,:D5,:Ef5,:C5,:F4,[:A4,:F5],:D5,:Ef5,:C5,:D5,:Bf4,:Ef5,:Bf4,:r,:r,:r,:B4,[:F4,:D5],:G4,[:E4,:E5],:F4,[:D4,:F5],:G5,[:C5,:F5],:G5,[:Df5,:A5],:D5,[:B4,:E5],:Df5,:F5,:E5,:D5,:Df5,:D5,:r,:r,:D5,:Ef4,:F5,:Bf4,:r,:A4,:Ef5,:D5,:C5,:Bf4,:A4,:G4,:Ef4,[:C4,:A4],:D4,[:Bf3,:Bf4],[:Ef4,:C5],[:D4,:Bf4],[:Ef4,:C5],:D5,:r,:D5,:Ef5,:D5,:C5,:D5,:Ef5,:Ef5,:D5,:C5,:Bf4,:C5,:D5,:D5,:C5,:Bf4,:A4,:Bf4,:C5,:C5,:Bf4,:A4,:Bf4,:C5,:D5,:E5,:D5,:E5,:F5,:G5,:F5,:G5,:G5,:F5,:G5,:F5,:G5,:F5,:G5,:F5,:G5,:F5,:G5,:F5,:G5,:F5,:G5,:F5,:G5,:F5,:G5,:F5,:G5,:F5,:G5,:F5,:G5,:F5,:G5,:F5,:G5,:F5,:G5,:F5,:G5,:Ef5,:F5,:D5,:Ef5,:F5,:G5,:Ef5,:F5,:D5,:Ef5,:C5,:D5,:Ef5,:F5,:D5,:Ef5,:C5,:D5,:Bf4,:A4,:G4,:Bf4,:A4,:Bf4,:G4,:A4,:Bf4,:D5,:C5,:D5,:Ef5,[:F4,:D5],[:Ef4,:C5],[:D4,:Bf4],[:Ef4,:C5],:A4,:C5,:Bf4,[:D4,:A4],[:D4,:Bf4],[:Ef4,:C5],:D5,:Ef5,:D5,:Ef5,:C5,:D5,:Bf4,:C5,:A4,[:F4,:D5],:r,:C5,:Bf4,:r,:r,:A4,:r,:r,[:G4,:Bf4],[:D4,:B4],[:G4,:C5],[:G4,:Df5],[:F4,:D5],[:Fs4,:A4],[:G4,:D5],[:Af4,:D5],:A4,:D5,:Df5,[:F4,:D5],:A4,[:D4,:F5],:F4,[:E4,:G4],:G4,[:Df4,:E5],:E4,[:D4,:F4],[:F4,:A4],[:A3,:D5],:D4,[:E4,:Df5],[:G4,:E5],[:A3,:A5],:Df4,[:D4,:F5],[:F4,:G5],[:A3,:E5],[:D4,:F5],:D5,:F5,:E5,:D5,:Df5,:D5,:B4,:Df5,:A4,:D5,:A4,:Bf4,:G4,:C4,:C5,:A4,:Bf4,:G4,:A4,:F4,:Bf4,:F4,:G4,:E4,:A3,:A4,:F4,:G4,:E4,:F4,:D4,:F4,:A4,:D5,:Df5,:D5,:B4,:Df5,:A4,:Df5,:E5,:G5,:F5,:G5,:E5,:F5,:D5,:F5,:A5,:C6,:Bf5,:C6,:A5,:Bf5,:G5,:A5,:F5,:G5,:E5,:F5,:D5,:E5,:C5,:E5,:G5,:Bf5,:A5,:Bf5,:G5,:A5,:F5,:G5,:E5,:F5,:D5,:E5,:C5,:D5,:Bf4,:D5,:F5,:A5,:G5,:A5,:F5,:G5,:E5,:F5,:D5,:E5,:Df5,:D5,:B4,:Df5,:A4,:Df5,:E5,:A5,:D5,:F5,:A4,:D5,:F4,:A4,:D4,:B4,:A4,:Df5,:E5,:G5,:F5,:A5,:D5,:F5,:G4,:Bf4,:D5,:F5,:E5,:G5,:C5,:E5,:F4,:A4,:C5,:E5,:D5,:F5,:Bf4,:D5,:E4,:G4,:Bf4,:D5,:Df5,:E5,:A4,:Df5,:D5,:F5,:A4,:D5,:F4,:A4,:D4,:A4,:Bf4,:C5,:A4,:Bf4,:G4,:Bf4,:C5,:E5,:G4,:C5,:E4,:G4,:C4,[:E4,:G4],[:F4,:A4],[:G4,:Bf4],[:A4,:C5],:Bf4,[:A4,:D5],:Bf4,[:G4,:C5],:D5,:G5,:r,:F5,:C5,:A5,:r,:D5,:A5,:F4,:G5,:Bf4,:r,:F4,[:C4,:C5],[:F4,:F5],[:E4,:Bf4,:E5],:r,:Ef5,:D5,:F5,:Ef5,:C5,:B4,:D5,:C5,[:C4,:C5],[:B3,:B4],[:C4,:C5],[:G4,:G5],[:C5,:C6],[:B4,:F5,:B5],:C6,:Bf5,:A5,:C6,:Bf5,:G5,:Fs5,:A5,[:D5,:G5],[:C5,:D5],[:G4,:Bf4,:G5],[:Fs4,:C5,:Fs5],:G5,:A5,[:C5,:Fs5],[:Ef5,:A5],[:D5,:G5],[:Ef5,:A5],[:C5,:F5],[:D5,:G5],[:Bf4,:Ef5],[:C5,:F5],[:A4,:D5],[:Bf4,:F5],[:Bf4,:Ef5],[:C5,:F5],[:A4,:D5],[:Bf4,:Ef5],[:G4,:C5],[:A4,:D5],[:F4,:Bf4],[:A4,:D5],[:G4,:C5],[:A4,:D5],[:F4,:Bf4],[:G4,:D5],[:Ef4,:A4],[:F4,:Bf4],[:D4,:G4],[:F4,:Bf4],[:Ef4,:A4],[:F4,:Bf4],[:D4,:G4],[:Ef4,:Bf4],:r,:Bf4,:r,:Fs5,:G5,:E5,:Fs5,:D5,:Bf5,:C5,:A5,:Bf4,:C5,:A4,:Bf4,:G4,:Bf4,:Ef5,:G4,:r,:D5,:r,:G5,:G5,:D5,:Bf5,:Bf5,:C5,:Ef5,:D5,:C5,:A5,:Bf4,:Ef5,:Bf4,:G5,:A4,:C5,:Bf4,:A4,[:G4,:Bf4,:G5],:D5,:G5,:Fs5,:G5,[:D4,:D5],[:G4,:Bf4],[:Fs4,:C5],[:G4,:D5],[:Fs4,:D5],[:Bf4,:D5],:G4,[:A4,:D5],:D4,[:G4,:D5],[:G4,:Ef5],[:G4,:F5],[:B4,:G5],:Ef5,:G5,:C6,:B5,:C6,[:G4,:G5],[:C5,:Ef5],[:B4,:F5],[:C5,:G5],[:B4,:G5],[:Ef5,:G5],:C5,[:D5,:G5],:G4,:G5,[:Af4,:D5],[:G4,:Ef5],[:F4,:D5],[:Ef4,:C5],:r,:r,:D5,:r,:D5,:G4,:F5,:r,:r,:C6,:r,:G5,:F5,:r,:Af5,:r,:Ef5,:r,:B4,:r,:C5,:G4,:D5,:G4,:Ef5,:G4,:F5,:G4,:G5,:G4,:A5,:G4,:B5,:G5,:G5,:A5,:G5,:A5,:A5,:G5,:A5,:G5,:A5,:G5,:A5,:G5,:A5,:G5,:A5,:G5,:A5,:G5,:A5,:G5,:A5,:G5,:A5,:G5,:A5,:G5,:A5,:G5,:A5,:G5,:A5,:G5,:A5,:G5,:A5,:r,:Af5,:G5,:r,:D5,:F5,:r,:D5,:Ef5,:F5,[:Ef5,:G5],:A5,:Bf5,:C5,:Ef5,[:Af4,:F5],:G5,[:D4,:Af5],:G5,[:D5,:F5],:Af5,:G5,:Af4,:C5,[:F4,:D5],:Ef5,[:Bf3,:F5],:Ef5,[:Af4,:D5],:F5,[:G4,:Bf4],:Af4,[:F4,:D5],:G4,[:Ef4,:Ef5],:G4,:F4,:Af4,:G4,:Af4,[:F4,:Bf4],:G4,[:Ef4,:Ef5],:G4,[:F4,:D5],:Af4,[:G4,:Ef5],:Af4,[:F4,:D5,:F5],:Bf4,:G5,:Bf3,:G4,:Bf4,:A4,:C5,:Bf4,:D5,:C5,:Ef5,[:F4,:D5],:Ef5,[:C5,:F5],:D5,[:Bf4,:Bf5],:D5,[:C5,:A5],:Ef5,:Bf5,:Bf4,:D5,:C5,:Ef5,:D5,:Ef5,:r,:D5,:r,:D5,:C5,:Ef5,:D5,:F5,:E5,:G5,:F5,:Af5,:G5,:Bf5,:C6,:C6,:r,:Bf5,:Bf5,:r,:Af5,:r,:Ef5,:r,:D5,[:G4,:Ef5],:F5,[:G4,:D5],:Ef5,:C5,:Ef5,[:G4,:B4,:D5],:F5,:Ef5,:F5,:D5,:Ef5,:C5,:Ef5,:D5,:F5,:E5,:G5,:Fs4,:A5,:G4,:Bf5,:A4,:C6,:Bf5,:C6,:A5,:Bf5,:G5,:Bf5,:A5,:C6,[:D5,:Bf5],:C6,[:D5,:A5],:Bf5,:G5,:Bf5,[:D5,:Fs5,:A5],:C6,:Bf5,:C6,:A5,:Bf5,:G5,:Bf5,:A5,:C6,:Bf5,:C6,:Bf5,:A5,:G5,:Bf5,:r,[:Bf4,:G5],[:A4,:D5,:Fs5],[:A4,:D5],:r,:D5,:Bf4,:C5,:A4,:Bf4,:G4,:G5,:Fs5,:G5,:E5,:Fs5,:D5,:G5,:D5,:Ef5,:C5,:F4,:F5,:D5,:Ef5,:C5,:D5,:Bf4,:Ef5,:Bf4,:C5,:A4,:D4,:D5,:Bf4,:C5,:A4,:Bf4,:G4,:Bf4,:A4,:G4,:Fs4,:G4,:E4,:Fs4,:D4,:Fs4,:A4,:C5,:Bf4,:C5,:A4,:Bf4,:G4,:Bf4,:D5,:F5,:Ef5,:F5,:D5,:Ef5,:C5,:D5,:Bf4,:C5,:A4,:Bf4,:G4,:A4,:F4,:A4,:C5,:Ef5,:D5,:Ef5,:C5,:D5,:Bf4,:C5,:A4,:Bf4,:G4,:A4,:F4,:G4,:Ef4,:G4,:Bf4,:D5,:C5,:D5,:Bf4,:C5,:A4,:Bf4,:G4,:A4,:Fs4,:G4,:E4,:Fs4,:D4,:Fs4,:A4,:D5,:G4,:Bf4,:D5,:G5,:Bf4,:D5,:G4,:Bf4,:D4,:Fs4,:A4,:C5,:Bf4,:D5,:G4,:Bf4,:C4,:Ef4,:G4,:Bf4,:A4,:C5,:F4,:A4,:Bf3,:D4,:F4,:A4,:G4,:Bf4,:Ef4,:G4,:A3,:C4,:E4,:G4,:Fs4,:A4,:D4,:Fs4,:G4,:A4,[:G3,:Bf4],:C5,[:G4,:Bf4],:C5,:D5,:r,:Bf4,:r,:C4,:r,[:D4,:Bf4],[:Ef4,:C5],:D5,:D5,[:Ef4,:C5],[:Bf3,:Bf4],[:C4,:A4],:Bf4,:C5,:C5,[:D4,:Bf4],[:C4,:A4],:r,:D5,:r,:C5,:r,:Bf4,:r,:r,:r]
b1[0]=[1.0,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,2.0,2.0,2.0,1.0,1.0,0.25,0.25,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,2.0,0.5,1.0,0.5,1.0,1.0,2.0,0.5,1.5,0.5,1.5,0.5,1.5,1.0,1.0,1.0,1.5,1.0,1.0,0.5,1.0,1.0,1.0,0.5,0.5,0.5,0.5,1.25,0.25,0.25,0.25,1.0,0.5,0.5,2.0,0.5,0.5,1.0,2.0,0.25,0.25,0.25,0.25,0.5,0.5,1.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,1.0,0.25,0.25,0.25,0.25,2.0,1.0,1.0,0.5,0.5,1.0,2.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,2.0,1.0,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,2.0,2.0,2.0,1.0,1.0,0.25,0.25,0.5,1.0,1.0,1.0,1.0,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,1.0,0.25,0.25,0.25,0.25,0.25,0.25,0.75,0.25,0.25,0.25,0.25,0.25,0.75,0.25,0.25,0.25,0.25,0.25,0.75,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.03125,0.03125,0.03125,0.03125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,2.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,2.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.125,0.125,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,1.0,2.0,2.0,1.0,2.0,1.0,1.0,2.0,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,1.0,2.0,1.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.25,0.25,0.5,1.5,1.0,1.0,0.5,1.5,2.0,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,1.0,0.5,0.5,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,2.0,1.0,1.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,1.5,0.5,0.5,1.0,1.0,1.0,1.0,0.25,0.25,0.25,0.25,1.0,0.5,0.25,0.25,1.0,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,1.0,0.25,0.25,0.25,0.25,1.0,0.5,0.5,0.5,0.5,0.5,0.5,1.0,0.5,0.5,2.0,0.5,0.5,0.5,0.5,2.0,1.0,1.0,1.0,1.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.03125,0.03125,0.03125,0.03125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,1.0,2.0,2.0,1.0,0.5,0.5,0.5,0.5,1.25,0.25,0.25,0.25,2.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,2.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,1.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,2.0,1.0,1.0,2.0,1.0,1.0,2.0,2.0,1.0,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,1.0,0.5,0.5,0.5,0.5,1.0,0.25,0.25,0.75,0.25,0.25,0.25,0.25,0.25,0.75,0.25,0.25,0.25,2.0,3.0,1.0,3.0,1.0,3.0,1.0,2.0,1.0]
a1[1]=[:r,:Fs4]
b1[1]=[0.5,0.5]
a1[2]=[:r,[:D4,:A4,:D5],:r,[:D4,:Bf4,:D5],:G5,:F5,:Ef5,:D5,[:Ef4,:G4,:C5],[:F4,:A4,:D5],[:G4,:Bf4,:Ef5],:F5,:G5,:Ef5,:F5,[:D4,:A4,:D5],:Bf4,:Ef5,:D5,:C5,:Bf4,[:C4,:Ef4,:A4],[:D4,:Fs4,:Bf4],[:E4,:G4,:C5],:D5,:Ef5,:C5,:Ef5,:Bf4,:Fs5,:G5,:C5,:Bf4,:Fs5,:G5,:C5,:Bf4,:Fs5]
b1[2]=[2.0,1.0,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5]
a1[3]=[:G5,:A5]
b1[3]=[0.5,0.5]
a1[4]=[:D5,:Fs5,:G5]
b1[4]=[0.5,0.5,4.0]
c1=[92,72,92,80,65]
in_thread do
for i in 0..a1.length-1
use_bpm c1[i]
pl a1[i],b1[i],1
end
end

a2=[]
b2=[]
a2[0]=[:r,:r,:r,:r,:r,:G4,:r,:r,:A4,:r,:C4,:r,:F4,:r,:A3,:F4,:r,:F4,:r,:r,[:Fs4,:A4],:C5,[:G4,:Bf4],:D5,[:A4,:C5],:Ef5,[:Bf4,:D5],:F5,:E5,:Fs5,:Bf4,:r,:G5,:A4,:r,:A4,:Bf4,:C5,[:Bf4,:Bf5],:C5,[:D5,:A5],[:A4,:G5],:Fs5,:G5,:C5,:D5,:r,:Ef5,:D5,:C5,:Bf4,:C5,:r,:D5,:C5,:Bf4,:A4,:Bf4,:r,:C5,:Bf4,:A4,:G4,:D5,:r,:D5,:G5,:F5,:r,:F5,:r,:r,:G5,:r,:A4,:G4,:A4,:r,:D5,:E5,:r,:E5,:r,:G4,:A4,:Bf4,:r,:Bf4,:E5,:F4,:G4,:r,:F5,[:G4,:G5],[:F4,:A5],:Bf5,:A5,:r,:F5,:r,:G4,:F4,[:E4,:D5],:D5,:r,[:F4,:D5],[:Ef4,:C5],[:F4,:D5],:r,:r,:Bf3,:D4,:C4,:D4,:r,:Bf4,:A4,:Bf4,:r,:G4,:Fs4,:G4,[:A4,:C5],[:G4,:Bf4],[:A4,:C5],[:F4,:A4],:G4,:D4,[:C4,:A4],[:Ef4,:C5],[:A3,:Fs4],[:C4,:A4],[:Bf3,:G4],:D4,[:G3,:Bf4],:Bf3,:C4,[:A4,:D5],:Bf3,:C4,:r,:A4,:Fs4,:G4,:G4,:r,:Bf4,:r,:C5,:A4,:D4,:D5,:Bf4,:C5,:A4,:Bf4,:G4,:A4,:G4,:r,:r,:A4,:r,:C4,:r,:F4,:r,:A3,:F4,:r,:F4,:r,:F4,:D4,:Ef4,:C4,:D4,:Ef4,:F4,:D4,:Ef4,:C4,:D4,:Bf3,[:C4,:G5],[:D4,:Fs5],[:Ef4,:G5],:r,:A3,:D4,:r,:r,:r,:r,:r,:r,:r,:r,:r,:F4,:r,:C4,:r,:D5,:r,:G4,:F4,:Ef4,:D4,:Ef4,:r,:F4,:Ef4,:D4,:C4,:D4,:Ef4,:Ef4,:Ef4,:D4,:C4,:r,:F4,:Bf4,:Bf4,:r,:C4,[:F4,:Bf4],[:F4,:B4],[:Ef4,:C5],[:E4,:G4],[:F4,:C5],[:Fs4,:C5],:r,:Df5,:F4,:G4,:A4,:Bf4,:G4,:A4,:F4,:G4,:E4,:F4,:G4,:A4,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:Bf4,:A4,:A4,:Bf5,:C5,:r,:D5,:C5,:Bf4,:G4,:r,:C5,:Bf4,:A4,:F4,:r,:Bf4,:A4,:G4,:r,:C4,:F4,:E4,:r,[:F4,:F5],:G4,:G4,:G4,:G4,:r,:r,[:C5,:G5],:D5,:D5,:D5,:r,[:G4,:D5],:r,:r,:r,[:C4,:Fs4],[:D4,:G4],[:Bf3,:E4],[:C4,:F4],[:A3,:D4],:C4,[:Fs3,:D5],:A3,:r,:C5,:A4,:Bf4,:G4,[:G4,:G5],:Fs4,:G4,:A4,:A4,:D4,:C4,:D4,:Ef4,:Fs4,:A4,:E4,:r,:C5,:Bf4,:A4,:Bf4,:D5,:A4,:Bf4,[:G4,:Bf4,:E5],:Fs4,:D5,:Ef5,[:A4,:A5],:D5,[:G4,:G5],:C5,[:Fs4,:Fs5],:r,:r,:G4,:r,:r,:r,:C5,:r,[:D4,:B4],[:C4,:A4],[:D4,:B4],[:Ef4,:C5],[:F4,:D5],[:D4,:C5],:G5,[:G4,:Ef5],[:C5,:F5],:B4,:C5,:C6,[:B4,:D5,:B5],[:C5,:Ef5,:C6],[:A4,:C5,:A5],[:B4,:D5,:B5],[:G4,:Ef5,:G5],:C5,[:C5,:Ef5,:Af5],[:Af4,:C5,:F5],[:F4,:Bf4],[:Bf4,:Bf5],:r,:Af5,:r,:G5,[:Ef4,:Af4,:Ef5],:Af4,[:Af4,:C5,:F5],[:F4,:Af4,:D5],[:D4,:G4],[:G4,:D5,:G5],:r,:F5,:D5,:Ef5,:C5,[:G4,:Ef5],[:F4,:D5],[:Ef4,:C5],:r,:C5,:A4,:B4,:G4,[:Af4,:F5],[:G4,:Ef5],[:F4,:D5],:r,:r,:G5,:Ef5,:F5,:G5,:r,:F4,:G4,:Af4,:r,:D5,:Ef5,:F5,:r,:Ef4,:F4,:G4,:r,:Bf5,:Af5,:G5,:F5,:Ef5,:D5,:Ef5,:r,:C5,:Bf4,:Af4,:Bf4,:F4,:G4,:G4,:r,:D5,:r,:r,:Bf4,:r,:r,:r,:r,:G4,:F4,:Bf3,:Ef4,:D4,:F4,:r,:D5,:r,:r,:C5,:Bf4,:F4,[:F4,:Bf4],:Bf4,:Bf4,:Af5,:r,:r,:Bf5,:Af5,:G5,:Af5,:F5,:G5,:Ef5,:F5,:Df5,:Ef5,:r,:Af5,:G5,:F5,:G5,:Ef5,:F5,:Df5,:Ef5,:C5,:Df5,[:B4,:Af5],[:C5,:G5],[:D5,:F5],:r,:F5,:D5,:Ef5,:C5,:Ef5,:r,:F5,:r,[:G4,:C5],[:F4,:B4],:Ef4,:G4,:G4,:r,:Bf4,:D5,:r,[:D5,:G5],[:C5,:Fs5],:Bf4,:D5,:D5,:r,[:C5,:A5],:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:Fs4,:G4,:E4,:Fs4,:D4,:G4,:D4,[:Ef4,:C5],:D5,:Ef5,:Ef5,[:F4,:D5],:C5,:r,:C4,:r,:r,:A3,:r,[:Bf3,:G4],:C4,[:Bf3,:A4],:A3,:Bf4,:C5,:r,:r,:Fs4,:r,:Ef5,:C5,:D5,:Bf4,:C5,:D5,:Ef5,:r,:A4,:F4,:G4,:Ef4,:F4,:G4,:A4,:r,:D5,:Bf4,:C5,:A4,:Bf4,:C5,:D5,:r,:G4,:Ef4,:F4,:D4,:E4,:Fs4,:G4,:r,:C5,:A4,:C5,:G4,:Bf4,:A4,:G4,:Fs4,:G4,:E4,:Fs4,:G4,:Bf4,:A4,:C5,[:D4,:Bf4],[:C4,:A4],[:Bf3,:G4],[:C4,:A4]]
b2[0]=[4.0,4.0,4.0,1.0,0.5,0.5,2.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,0.5,0.5,2.0,4.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.75,0.25,0.25,0.25,0.25,0.25,0.75,0.25,0.25,0.25,0.25,0.25,0.75,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,2.0,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.25,0.25,2.0,1.0,1.0,0.25,0.25,0.5,0.25,0.25,0.5,0.25,0.75,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,1.0,0.25,0.25,0.25,0.25,4.0,4.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,1.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.5,2.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,1.0,0.5,0.75,0.25,0.5,1.0,4.0,4.0,4.0,4.0,4.0,4.0,2.0,1.0,1.0,4.0,1.0,0.25,0.25,0.25,0.25,0.25,0.75,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,4.0,1.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,2.0,0.5,0.5,0.5,0.5,0.25,0.75,0.25,0.25,0.25,0.25,1.0,0.25,0.25,0.25,0.25,1.0,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,2.0,0.5,0.5,0.5,0.5,1.0,1.0,2.0,0.5,0.5,0.5,0.5,2.0,1.0,1.0,2.0,4.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.25,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.25,0.5,0.5,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,4.0,4.0,1.0,1.0,2.0,2.0,1.0,1.0,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,4.0,4.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.25,0.25,1.0,1.0,1.0,1.0,2.0,1.0,1.0,4.0,2.0,1.0,0.5,0.5,0.5,0.5,0.5,0.5,2.0,1.0,1.0,0.5,0.5,0.5,0.5,0.5,0.5,1.0,1.0,1.0,1.0,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,1.0,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,1.0,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,2.0,0.5,0.5,0.5,0.5,1.0,1.0,1.0,1.0,2.0,0.5,0.5,0.5,0.5,1.0,0.5,0.5,2.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.25,0.25,0.75,0.25,0.25,0.25,0.5,0.5,1.0,0.5,0.5,1.0,0.25,0.25,0.25,0.25,0.5,0.5,1.0,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25]
a2[1]=[:Fs4,:G4,:Fs4,:E4,:A3]
b2[1]=[0.125,0.125,0.125,0.125,0.5]
a2[2]=[[:G3,:D4,:G4],:r,[:Ef4,:G4,:Bf4,:Ef5],:r,[:G4,:Bf4],:r,[:F4,:A4],:r,:G4,[:Ef4,:G4],:r,[:D4,:Fs4],:G4,:Ef5,:D5,:F4,:G4,:Ef5,:D5,:Fs4,:G4,:Ef5]
b2[2]=[1.0,0.5,0.5,2.0,1.0,1.0,1.0,0.5,0.5,1.0,1.0,1.0,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5]
a2[3]=[:D5,:C5]
b2[3]=[0.5,0.5]
a2[4]=[:Bf4,:D5,:D5]
b2[4]=[0.5,0.5,4.0]
c2=[92,72,92,80,65]
in_thread do
for i in 0..a2.length-1
use_bpm c2[i]
pl a2[i],b2[i],2
end
end

a3=[]
b3=[]
a3[0]=[:r,:r,:r,:r,:r,:r,:D5,:A4,:Bf4,:G4,:r,:C5,:A4,:Bf4,:G4,:A4,:r,:Bf4,:F4,:G4,:E4,:r,:A4,:r,:G4,:E4,:F4,:D4,:E4,:r,:G4,:r,:r,:r,:C5,:A4,:G4,:r,:r,:Bf4,:A4,:G4,:Fs4,:r,:r,:C5,:Bf4,:A4,:r,:Bf4,:r,:r,:D5,:Df5,:r,:r,:G4,:A4,:Bf4,:E4,:r,:A4,:r,:G4,:r,:r,:r,:r,:r,:r,:Ef4,:r,:r,:D5,:r,:Bf4,:r,:r,:r,:r,:r,:r,:r,:r,:Df5,:r,:r,:r,:D5,:A4,:Bf4,:G4,:r,:C5,:A4,:Bf4,:G4,:A4,:r,:Bf4,:F4,:G4,:E4,:r,:A4,:r,:G4,:E4,:F4,:D4,:E4,:r,:G4,:C5,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:Ef4,:G4,:r,:F4,:r,:A4,:Bf3,:r,:r,:r,:r,:Bf4,:G4,:A4,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:C5,:r,:A4,:G4,:r,:C5,:r,:E4,:F4,:r,:r,:C5,:r,:r,:r,:G4,:r,:r,:r,:r,:r,:r,:D4,:r,:r,:D4,:Fs4,:Fs4,:G4,:r,:A4,:Bf4,:Bf4,:r,:F5,:r,:Ef5,:r,:r,:r,:r,:r,:r,:B4,:C5,:Ef5,:r,:r,:r,:r,[:G3,:B4],:r,:r,:Ef5,:r,:G5,:G5,:r,:r,:r,:G5,:r,:D5,:D5,:r,:r,:Ef5,:r,:G4,:r,:D4,:r,:r,:r,:r,:C5,:Bf4,:Af4,:Af4,:G4,:r,:Af4,:F4,:G4,:Ef4,:r,:r,:r,:Ef5,:C5,:D5,:Bf4,:Ef5,:Bf4,:r,:r,:C5,:Af4,:Bf4,:G4,:C5,:G4,:r,:r,:r,:Ef5,:r,:A4,:r,:r,:Ef5,:C5,:D5,:r,:r,:A4,:D4,:r,:r,:r,:Bf5,:G5,:Af5,:F5,:G5,:E5,:F5,:Df5,:r,:C5,:r,:r,:G4,:r,:r,:G4,:r,:r,:r,:r,:r,:Ef5,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:F3,:r,:r,:r,:r,:D4,:Bf3,:r,:r,:r,:Fs3,:r,:r,:r,:G4,:r,:F4,:r,:Df4,:D4,:C4,:Bf3,:D4,:r]
b3[0]=[4.0,4.0,4.0,4.0,1.0,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,2.0,4.0,2.0,1.0,1.0,1.0,1.0,1.0,2.0,2.0,2.0,1.0,2.0,2.0,1.0,1.0,2.0,1.0,1.0,2.0,0.5,0.5,0.25,0.25,0.5,0.25,0.25,0.5,1.0,0.5,1.5,0.5,0.75,0.25,0.5,2.0,4.0,4.0,1.0,2.0,1.0,0.25,0.25,0.25,0.25,1.0,2.0,4.0,4.0,2.0,1.0,0.5,0.25,0.25,2.0,1.0,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,1.0,1.0,2.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,0.5,1.5,0.5,1.5,1.0,1.0,1.0,1.0,4.0,4.0,0.25,0.25,0.25,0.25,1.0,2.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,2.0,0.5,0.25,0.25,1.0,1.0,1.0,0.5,1.5,1.0,1.0,1.0,1.0,2.0,0.5,0.5,1.0,0.5,0.5,1.0,2.0,4.0,4.0,4.0,2.0,1.0,1.0,4.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,4.0,4.0,4.0,2.0,0.25,0.25,0.25,0.25,1.0,1.0,0.5,0.25,0.25,0.5,0.25,0.25,0.25,0.25,0.5,1.0,0.5,0.25,0.25,2.0,0.5,0.5,0.5,0.25,0.25,2.0,1.0,1.0,1.25,0.25,0.5,4.0,4.0,2.0,2.0,1.0,2.0,1.0,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,2.0,0.25,0.25,0.25,0.25,0.5,0.25,0.25,4.0,2.0,1.0,0.5,0.25,0.25,4.0,0.25,0.25,0.25,0.25,1.0,0.5,0.5,0.5,0.5,2.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,2.0,2.0,2.0,2.0,2.0,1.0,0.25,0.25,0.5,4.0,4.0,4.0,1.0,0.5,0.5,2.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,2.0,1.0,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.5,1.0,0.25,0.25,0.5,4.0,3.0,1.0,3.0,1.0,2.0,0.5,0.5,0.5,0.5,1.0]
a3[1]=[:r,:r,:G4]
b3[1]=[0.5,0.25,0.25]
a3[2]=[:r,:r,:r,:r,:r,:Fs4,:r,:r,:D4,:C5,:G4,:C4,:D4,:C5,:G4,:C4,:D4,:C5]
b3[2]=[2.0,4.0,1.0,0.5,0.25,0.25,2.0,1.0,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5]
a3[3]=[:G4,:A4]
b3[3]=[0.5,0.5]
a3[4]=[:D4,:C5,:B4]
b3[4]=[0.5,0.5,4.0]
c3=[92,72,92,80,65]
in_thread do
for i in 0..a3.length-1
use_bpm c3[i]
pl a3[i],b3[i],3,0.9
end
end

a4=[]
b4=[]
a4[0]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:G4,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:F4,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:Bf4,:r,:r,:A4,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:Df5,:r,:r,:G4,:E4,:Fs4,:r,:G5,:D5,:r,:F5,:Ef5,:D5,:r,:r,:Ef5,:D5,:C5,:r,:r,:D5,:C5,:Bf4,:r,:r,:r,:r,:r,:r,:r,:r,:C5,:r,:Bf4,:Bf4,:r,:r,:r,:r,:r,:r,:r,:r,:r,:Af4,:r,:r,:r,:r,:r,:r,:r,:Bf4,:r,:r,:r,:r,:F4,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r]
b4[0]=[4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,1.0,0.5,0.25,0.25,2.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,0.25,0.75,1.0,2.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,2.0,0.25,0.75,1.0,0.25,0.75,1.0,2.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,2.0,1.0,0.25,0.25,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.25,0.25,0.25,0.25,1.0,0.25,0.25,0.25,0.25,1.0,0.25,0.25,0.25,0.25,1.0,4.0,4.0,4.0,4.0,2.0,1.0,0.5,0.5,4.0,0.5,0.5,1.0,2.0,4.0,4.0,4.0,4.0,2.0,1.0,0.25,0.25,0.5,4.0,4.0,4.0,2.0,1.0,0.25,0.25,0.5,4.0,2.0,0.5,0.5,1.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,1.0]
a4[1]=[:r]
b4[1]=[1.0]
a4[2]=[:r,:r,:r,:r,:Bf3,:r,:r,:r,:Fs4,:r,:r,:Fs4,:r,:r,:r,:Fs4]
b4[2]=[2.0,4.0,1.0,0.5,0.5,2.0,1.0,0.5,0.5,1.0,0.5,0.5,0.5,0.5,0.5,0.5]
a4[3]=[:r,:r]
b4[3]=[0.5,0.5]
a4[4]=[:r,[:Fs4,:A4],:G4]
b4[4]=[0.5,0.5,4.0]
c4=[92,72,92,80,65]
in_thread do
for i in 0..a4.length-1
use_bpm c4[i]
pl a4[i],b4[i],4,0.9
end
end

a5=[]
b5=[]
a5[0]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:A4,:r,:G4,:r,:r,:r,:r,:r,:r,:r,:r,:r,:Ef5,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r]
b5[0]=[4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,1.0,1.0,1.0,1.0,4.0,4.0,4.0,4.0,2.0,1.0,0.5,0.25,0.25,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,1.0]
a5[1]=[:r]
b5[1]=[1.0]
a5[2]=[:r,:r,:r,:r,:r]
b5[2]=[2.0,4.0,4.0,4.0,2.0]
a5[3]=[:r]
b5[3]=[1.0]
a5[4]=[:r,:r]
b5[4]=[1.0,4.0]
c5=[92,72,92,80,65]
in_thread do
for i in 0..a5.length-1
use_bpm c5[i]
pl a5[i],b5[i],5,0.9
end
end

a6=[]
b6=[]
a6[0]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:D4,:Bf3,:C4,:A3,:Bf3,:G3,:G4,:Fs4,:G4,:E4,:Fs4,:D4,:G4,:D4,:Ef4,:C4,:F3,:F4,:D4,:Ef4,:C4,:D4,:Bf3,:Ef4,:Bf3,:C4,:A3,:D3,:D4,:Bf3,:C4,:A3,:Bf3,:G3,:A3,:Bf3,:C4,:D4,:Ef4,:C4,:D4,:Bf3,:C4,:D4,:Ef4,:F4,:G4,:Ef4,:F4,:D4,:F4,:Ef4,:D4,:C4,:D4,:Bf3,:C4,:A3,:Bf3,:C4,:D4,:Bf3,:C4,:A3,:Bf3,:G3,:A3,[:G3,:Bf3],:C4,:D4,:E4,[:D3,:F4],:G4,[:D4,:F4],:G4,[:Df4,:F4],:D4,[:B3,:E4],:C4,:F4,:F4,:C3,:C4,:E4,:D4,:G3,:Df4,:D4,:r,:G3,:r,:G2,:F2,:G2,:Ef2,:F2,:D2,:Ef2,:C2,:Ef2,:F2,:r,:F3,:Ef3,:F3,:D3,:Ef3,:C3,:D3,:Bf2,:D3,:Ef3,:D3,:C3,:Bf2,:A2,:G2,:Fs2,:D2,:r,:r,:r,:Fs3,:G3,:r,:Bf3,:r,:Ef4,:r,:D4,:r,:C4,:r,:A3,:r,:G3,:A3,:Bf3,:Bf3,:Bf3,:A3,:G3,:F3,:G3,:A3,:A3,:A3,:G3,:F3,:E3,:F3,:G3,:G3,:F3,:E3,:D3,:F3,:Bf3,:A3,:G3,:r,:Fs3,:G3,:r,[:Fs3,:A3],[:G3,:Bf3],[:E3,:G3],[:Fs3,:A3],:Bf3,:A3,:G3,:Fs3,[:Bf2,:G3],:C3,[:A2,:A3],:Bf2,[:G2,:Bf3],:C4,[:G3,:Bf3],:C4,[:F3,:A3],[:G3,:Bf3],[:Ef3,:G3],[:F3,:A3],[:D3,:Bf3],:C4,[:Bf3,:D4],:Ef4,[:A3,:C4],[:Bf3,:D4],[:G3,:Bf3],[:A3,:C4],[:F3,:A3],[:G3,:Bf3],[:Ef3,:C4],[:F3,:A3],:Bf3,:A3,:Bf3,:r,:A3,:A3,:r,:Bf3,:C4,:D4,:E4,:F2,:F3,:G3,:A3,:Bf3,:Ef3,:F3,[:F2,:F3],:Bf2,:Bf2,:Bf3,:A3,:Bf3,:G3,:A3,:F3,:Bf3,:F3,:G3,:Ef3,:A2,:A3,:F3,:G3,:Ef3,:F3,:D3,:G3,:D3,:Ef3,:C3,:F2,:F3,:D3,:Ef3,:C3,:D3,:Bf2,:C3,:D3,:Ef3,:F3,:G3,:Ef3,:F3,:D3,:Ef3,:F3,:G3,:C3,:D3,:Bf2,:C3,:A2,:Bf2,:C3,:D3,:G2,:A2,:F2,:G2,:E2,:F2,:G2,:A2,:D2,:D3,:C3,:D3,:B2,:C3,:D3,:E3,:A2,:A3,:Bf3,:D3,:E3,:G3,:A3,:A2,:D3,:r,:r,:r,:F3,:A3,:D3,:F3,:A2,:Df3,:E3,:G3,:F3,:A3,:D3,:F3,:G2,:Bf2,:D3,:F3,:E3,:G3,:C3,:E3,:F2,:A2,:C3,:E3,:D3,:F3,:Bf2,:D3,:E2,:G2,:Bf2,:D3,:Df3,:E3,:A2,:C3,:D2,:E2,:F2,:D2,:A2,:B2,:Df3,:A2,:D3,:E3,:F3,:D3,:G3,:A3,:Bf3,:G3,:C4,:D4,:E4,:C4,:F4,:G4,:A4,:F4,:Bf4,:C5,:A4,:Bf4,:G4,:A4,:F4,:G4,:E4,:F4,:D4,:E4,:Df4,:D4,:B3,:C4,:A3,:Bf3,:G3,:A3,:F3,:G3,:E3,:G3,:F3,:G3,:E3,:F3,:D3,:D4,:Df4,:D4,:B3,:Df4,:A3,:D4,:A3,:Bf3,:G3,:C3,:C4,:A3,:Bf3,:G3,:A3,:F3,:Bf3,:F3,:G3,:E3,:A2,:A3,:F3,:G3,:E3,:F3,:D3,:F3,:G3,:Bf3,:D3,:G3,:Bf2,:D3,:G2,:D3,:E3,:F3,:D3,:E3,:C3,:C3,:A2,:Bf2,:G2,:A2,:F2,:F3,:E3,:F3,:D3,:E3,:C3,[:F3,:F4],[:C3,:C4],[:D3,:D4],[:Bf2,:Bf3],[:E2,:E3],[:E3,:E4],[:C3,:C4],[:D3,:D4],[:Bf2,:Bf3],[:C3,:C4],[:A2,:A3],[:D3,:D4],[:A2,:A3],:r,:r,:F3,:E3,:F3,:r,:r,:G3,:G3,:G3,:G3,:r,:r,:E3,:G3,:D4,:D4,:D4,:D4,:D4,:D4,:D4,[:Bf3,:D4],:A4,:C5,:Bf4,:C5,:A4,:Bf4,:G4,:A4,:Fs4,:A4,:G4,:A4,:F4,:G4,:Ef4,:F4,:D4,:F4,:Ef4,:F4,:D4,:Ef4,:C4,:D4,:Bf3,:D4,:C4,:D4,:Bf3,:C4,:A3,:Bf3,:G3,:Bf3,:F3,:D3,[:G2,:G3],:F2,:Ef2,:Ef2,:D3,:A2,:E3,:A2,:Fs3,:G3,:Ef3,:Fs3,:G3,:D3,:A3,:D3,:Bf3,:D3,:C4,:r,:r,:D4,:Bf3,:C4,:A3,:Bf3,:G3,[:Df2,:Df3],[:D2,:D3],[:Fs2,:Fs3],[:G2,:G3],[:Bf2,:Bf3],[:C3,:C4],[:Ef3,:Ef4],[:F3,:F4],[:A2,:A3],[:Bf2,:Bf3],[:D3,:D4],[:Ef3,:Ef4],[:G2,:G3],[:A2,:A3],[:C3,:C4],[:D3,:D4],[:D2,:D3],:r,:C4,:A3,:Bf3,:G3,:Bf3,[:D3,:A3],:C4,:Bf3,:C4,:A3,:Bf3,:G3,:Bf3,[:D3,:A3],:C4,[:G3,:Bf3],:C4,[:D3,:A3],:Bf3,:G3,:Bf3,[:F3,:A3],:C4,[:G3,:Bf3],:D4,[:Ef3,:C4],:Ef4,[:B3,:D4],:F4,[:G3,:Ef4],:D4,:C4,:D4,:B3,:D4,:C4,:Ef4,[:G3,:D4],:F4,:Ef4,:F4,:D4,:Ef4,:C4,:Ef4,[:G3,:D4],:F4,[:C4,:Ef4],:F4,[:G3,:D4],:Ef4,:C4,:Ef4,[:Bf3,:D4],:F4,[:C4,:Ef4],:D4,[:Af3,:Ef4],:G4,:F3,:D3,:G3,:D3,:B2,:G2,[:C3,:C4],[:G2,:G3],[:Ef2,:Ef3],[:C2,:C3],:r,:Ef4,:D4,:r,:C4,:r,:B3,:C3,:G2,:D3,:G2,:Ef3,:G2,:F3,:G2,:G3,:G2,:A3,:G2,:B3,:G2,:G3,:G2,:Ef4,:F4,:D4,:Ef4,:C4,:Ef4,:D4,:C4,:B3,:C4,:A3,:B3,:G3,:B3,:F3,:C4,:D4,:Ef4,:F4,:G4,:A4,:B4,:Ef3,:C3,:F3,:Ef3,:D3,:Bf2,:Ef3,:D3,:C3,:Bf2,:C3,:Af2,:Bf2,:r,:Bf3,:Ef4,:F4,:D4,:Ef4,:C4,:F4,:Bf3,:C4,:Af3,:Bf3,:G3,:G3,:F3,:Ef3,:Ef3,:D3,:Ef3,[:Bf2,:F3],[:Ef3,:G3],[:D3,:Bf3],[:Ef3,:Bf3],:r,:r,[:Bf1,:Bf2],[:Ef2,:Ef3],[:D2,:D3],[:Ef2,:Ef3],[:F2,:F3],[:G2,:G3],[:A2,:A3],[:Bf2,:Bf3],:r,:r,:F3,:Bf3,:A3,:Bf3,[:F2,:F3],[:Bf2,:Bf3],[:A2,:A3],:r,:F4,:r,:r,:C5,:Af4,:Bf4,:G4,:Af4,:F4,:G4,[:Ef3,:Ef4],:F4,:G4,:Ef4,:r,:Bf4,:G4,:Af4,:F4,:G4,:Ef4,:F4,[:Df3,:Df4],:Ef4,:F4,:Df4,:G4,:D4,:Ef4,:B3,:C4,:G3,:C4,[:G2,:B3],[:C3,:C4],:r,[:G2,:G3],[:C2,:C3],[:G2,:G3],[:C3,:C4],[:B2,:B3],[:C3,:C4],[:D3,:D4],[:E3,:E4],[:Fs3,:D4,:Fs4],[:G3,:D4,:G4],:D4,:G4,[:Fs3,:Fs4],[:G3,:G4],:r,[:D2,:D3],[:G2,:G3],[:D2,:D3],[:G2,:G3],[:Fs2,:Fs3],[:G2,:G3],[:A2,:A3],[:Bf2,:Bf3],[:C3,:C4],:r,:G4,:Fs4,:E4,:D4,:C4,:Bf3,:A3,:G3,:F3,:Ef3,:D3,:C3,:Bf2,:A2,:G2,:D3,:D2,:r,:G3,:A3,:Bf3,:C3,:Ef3,:G3,:Bf3,:A3,:C4,:F3,:A3,:Bf2,:D3,:F3,:A3,:G3,:Bf3,:Ef3,:G3,:A2,:C3,:Ef3,:G3,:Fs3,:A3,:D3,:Fs3,:G2,:A2,:Bf2,:G2,:D3,:E3,:Fs3,:D3,:G3,:A3,:Bf3,:G3,:C4,:D4,:Ef4,:C4,:F3,:G3,:A3,:F3,:Bf3,:C4,:D4,:Bf3,:Ef4,:F4,:D4,:Ef4,:C4,:D4,:Bf3,:C4,:A3,:Bf3,:G3,:A3,:Fs3,:G3,:E3,:Fs3,:D3,:Ef3,:C3,:D3,:Bf2,:C3,:A2,:Bf2,:Bf2,:C3,:A2,:Bf2,:G2,:G3,:Fs3,:G3,:E3,:Fs3,:D3,:G3,:D3,:Ef3,:C3,:F2,:F3,:D3,:Ef3,:C3,:D3,:Bf2,:Ef3,:Bf2,:r,:G3,:F3,:r,:D3,:Bf3,:A3,:G3,:D3,:G3,:G3,:Bf3,:A3,:G3,:Fs3,:G3,:Fs3,:E3,:D3,:D4,:C4,:D4,:Bf3,:C4,:A3,:Bf3,:G3,:A3,:F3,:G3,:Ef3,:F3,:D3,:Ef3,:C3,:C4,:Bf3,:C4,:A3,:Bf3,:G3,:A3,:F3,:G3,:Ef3,:F3,:D3,:Ef3,:C3,:D3,:Bf2,:Bf3,:A3,:Bf3,:G3,:A3,:Fs3,:G3,:E3,:A3,:D3,:F3,:Fs3,:G3,:C3]
b6[0]=[4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,2.0,1.0,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,1.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,1.0,1.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,1.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,2.0,1.0,0.5,0.5,2.0,1.0,1.0,0.5,1.5,0.5,1.5,0.5,1.5,2.0,2.0,2.0,0.25,0.25,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.75,0.25,0.25,0.25,0.5,0.5,2.0,2.0,1.0,1.0,1.0,1.0,1.0,0.25,0.25,0.25,0.25,2.0,2.0,2.0,1.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,1.5,0.25,0.25,2.0,1.25,0.75,2.0,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,1.0,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,1.0,1.0,2.0,1.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,2.0,1.0,0.5,0.5,1.0,1.0,0.5,0.5,0.5,0.5,1.0,1.0,2.0,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,1.0,0.5,0.5,0.25,0.25,0.25,0.25,0.75,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,2.0,1.0,1.0,1.0,1.0,1.0,1.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.5,1.0,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,1.0,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,1.0,1.0,2.0,1.0,1.0,1.0,0.5,0.5,0.5,0.5,1.0,1.0,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,1.0,1.0,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,2.0,1.0,1.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,1.0,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,1.0,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,2.0,0.5,0.5,1.0,1.0,2.0,2.0,2.0,1.0,1.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,1.0,0.5,0.5,0.5,0.5]
a6[1]=[:A3,:D3]
b6[1]=[0.5,0.5]
a6[2]=[:Bf2,:C3,:A2,:Bf2,:G2,:G3,:Fs3,:G3,:E3,:Fs3,:D3,:G3,:D3,:Ef3,:C3,:F2,:F3,:D3,:Ef3,:C3,:D3,:Bf2,:Ef3,:Bf2,:C3,:A2,:D2,:D3,:Bf2,:C3,:A2,:Bf2,:G2,:Bf2,:A2,:C3,:Bf2,:C3,:A2,:Bf2,:G2,:Bf2,:A2,:C3,:Bf2,:C3,:A2,:Bf2,:G2,:Bf2,:A2,:C3]
b6[2]=[0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25]
a6[3]=[:Bf2,:D3,:C3,:Ef3]
b6[3]=[0.25,0.25,0.25,0.25]
a6[4]=[:D3,:D4,:G3]
b6[4]=[0.5,0.5,4.0]
c6=[92,72,92,80,65]
in_thread do
for i in 0..a6.length-1
use_bpm c6[i]
pl a6[i],b6[i],6,0.9
end
end

a7=[]
b7=[]
a7[0]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:F3,:E3,:r,:r,:A3,:Bf3,:r,:A3,:F3,:E4,:A2,:A3,:F3,:G3,:E3,:F3,:D3,:F3,:r,:r,:r,:G2,[:Bf1,:Bf2],[:C2,:C3],[:D2,:D3],:G2,:A3,:C4,:D3,:G2,:A2,:Bf2,[:C3,:Ef4],[:D3,:D4],[:A2,:C4],:Bf2,:C4,:D4,:r,:Ef4,:D4,:C4,:Bf3,:C4,:r,:D4,:C4,:Bf3,:A3,:Bf3,:r,:C4,:Bf3,:A3,:G3,[:F3,:A3],[:E3,:Bf3],[:E3,:A3],:G3,:D3,:C3,:r,:D3,:E3,:A3,:D3,:F3,:r,:r,:r,:C4,:D4,:Bf3,:C4,:r,:D3,:Bf2,:C3,:A2,:Bf2,:G2,:G3,:r,:D3,:r,:F2,:r,:Bf2,:r,:D2,:r,:r,:D3,:r,:Bf3,[:G3,:Bf3],[:A3,:C4],[:F3,:A3],[:G3,:Bf3],[:Ef3,:G3],[:F3,:A3],[:D3,:Bf3],[:Ef3,:C4],:C3,:D3,:Bf2,:C3,:A2,:G3,:A3,[:F3,:A3],[:G3,:Bf3],[:Ef3,:G3],[:F3,:Bf3],[:D3,:F3],[:Ef3,:G3],[:C3,:A3],[:D3,:F3],:Bf2,:C3,:A2,:Bf2,:G2,:C3,:Bf2,:C3,:r,:D3,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,[:Bf2,:Bf3],[:G2,:G3],[:C2,:C3],[:C3,:C4],:A2,:Bf2,:G2,:A2,:F2,:A2,:G2,:Bf2,:A2,:Bf2,:G2,:A2,:F2,:A2,:G2,:Bf2,:A2,:C3,:B2,:D3,:C3,:Ef3,:D3,:F3,:Ef3,:F3,:D3,:Ef3,:C3,:Ef3,:D3,:F3,:Ef3,:F3,:D3,:Ef3,:C3,:Ef3,:D3,:F3,:r,:Fs3,:G3,:A3,:Bf3,:A3,:G3,:A3,:r,:r,:r,:r,:D3,:Bf2,:G2,:D2,[:D2,:D3],:r,:r,[:G2,:G3],:r,:G3,:r,:r,:C3,:r,:C4,:r,:r,:r,:r,:r,:Af3,:r,:G3,:r,:F3,:r,:C4,:r,:r,:r,:A3,:Ef3,:D3,:C3,:C3,:B3,:A3,:G3,:r,:r,:r,:r,:r,:r,:r,:r,[:Bf2,:Bf3],[:C3,:C4],[:D3,:D4],[:E3,:E4],:r,:G4,:Af4,:F4,:Bf3,:C4,:Df4,:Bf3,:r,:Af3,:Bf3,:C4,:Af3,:r,:G3,:F3,:Ef3,:D3,:C3,:r,:r,:r,:r,:r,[:D3,:D4],:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:C3,:A2,:D2,:D3,:Bf3,:C4,:A3,:Bf3,:Ef3,:r,:r,:r,:r,:r,:r,:r]
b7[0]=[4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.5,4.0,4.0,4.0,0.5,0.5,0.5,0.5,1.0,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.5,1.0,0.25,0.75,0.25,0.25,0.25,0.25,0.25,0.75,0.25,0.25,0.25,0.25,0.25,0.75,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,4.0,4.0,4.0,0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.5,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,4.0,2.0,1.0,0.25,0.75,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,4.0,1.0,1.0,2.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,4.0,4.0,2.0,0.5,0.5,0.5,0.5,4.0,4.0,4.0,4.0,1.0,1.0,1.0,1.0,4.0,1.0,1.0,1.0,1.0,4.0,4.0,2.0,0.5,1.5,0.5,1.5,0.5,1.5,4.0,1.0,1.0,1.0,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,1.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,2.0,0.5,0.5,0.5,0.5,2.0,0.5,0.5,0.5,0.5,1.0,1.0,4.0,4.0,4.0,2.0,1.0,1.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,1.0,4.0,4.0,4.0,4.0,4.0,4.0,1.0]
a7[1]=[:r,:D2]
b7[1]=[0.5,0.5]
a7[2]=[:Bf1,:C2,:A1,:Bf1,:G1,:G2,:Fs2,:G2,:E2,:Fs2,:D2,:G2,:D2,:Ef2,:C2,:F1,:F2,:D2,:Ef2,:C2,:D2,:Bf1,:Ef2,:Bf1,:C2,:A1,:D1,:D2,:Bf1,:C2,:A1,:Bf1,:G1,:Bf1,:A1,:C2,:Bf1,:C2,:A1,:Bf1,:G1,:Bf1,:A1,:C2,:Bf1,:C2,:A1,:Bf1,:G1,:Bf1,:A1,:C2]
b7[2]=[0.25,0.25,0.25,0.25,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25]
a7[3]=[:Bf1,:D2,:C2,[:Ef2,:Ef3]]
b7[3]=[0.25,0.25,0.25,0.25]
a7[4]=[:D2,:A3,:D3]
b7[4]=[0.5,0.5,4.0]
c7=[92,72,92,82,72]
in_thread do
for i in 0..a7.length-1
use_bpm c7[i]
pl a7[i],b7[i],7,0.9
end
end

a8=[]
b8=[]
a8[0]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:G3,:r,:F3,:r,:r,:D4,:A3,:r,:G3,:r,:r,:Bf3,:G3,:A3,:r,:Bf3,:F3,:D4,:r,:r,:r,:r,:r,:r,:r,:r,:r,:A3,:r,:r,:r,:G3,:Bf3,:A3,:G3,:G3,:Fs3,:r,:r,:Bf2,:A2,:r,:r,:r,:r,:r,:r,:r,:G3,:D3,:Ef3,:C3,:r,:F3,:D3,:Ef3,:C3,:D3,:r,:Ef3,:Bf2,:C3,:A2,:r,:D3,:r,:r,:r,:Ef3,:C3,:D3,:Bf2,:r,:r,:r,:r,:r,:Ef3,:C3,:D3,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:A3,:r,:Bf3,:r,:C4,:r,:C4,:r,:Bf3,:r,:Bf3,:r,:C4,:r,:r,:r,:r,:r,:G3,:r,:D3,:r,:C3,:r,:r,:r,:r,:r,:r,:r,:r,:r,[:G2,:G3],[:G3,:G4],[:C3,:C4],[:Ef3,:Ef4],:F3,:C3,:r,:Bf2,:D3,:Bf2,:Ef3,:Bf2,:r,:Af2,:C3,:Af2,:D3,:Af2,:r,:G2,:B2,:G2,:r,:r,:r,:r,:r,:B3,:r,:G3,:r,:G3,:r,:G3,:r,:C4,:r,:D4,:r,:D4,:r,:G4,:A4,:B4,:r,:r,:r,:r,:r,:r,:r,:r,:r,:F3,:r,:r,:r,:r,:Af3,:r,:G3,:r,:F3,:r,:Ef3,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r]
b8[0]=[4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,0.25,0.25,0.25,0.25,2.0,0.5,0.25,0.25,0.5,0.5,1.0,0.25,0.25,0.25,0.25,0.5,0.25,0.25,1.0,1.0,2.0,4.0,4.0,4.0,2.0,1.0,0.5,0.25,0.25,2.0,1.0,0.5,0.5,1.0,2.0,1.0,1.0,1.0,2.0,1.0,1.0,1.0,1.0,4.0,4.0,4.0,4.0,1.0,0.5,0.25,0.25,0.5,0.5,0.5,0.5,0.25,0.25,0.25,0.25,0.5,0.25,0.25,0.5,0.5,0.5,0.5,4.0,2.0,0.25,0.25,0.25,0.25,0.5,0.5,4.0,4.0,4.0,0.25,0.25,0.25,0.25,1.0,2.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,4.0,4.0,2.0,0.5,0.25,0.25,0.25,0.25,0.25,0.25,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,0.5,0.5,0.5,0.5,0.25,0.75,0.25,0.25,0.25,0.25,0.25,0.75,0.25,0.25,0.25,0.25,0.25,0.75,0.25,0.25,0.25,0.25,4.0,2.0,1.0,0.5,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,2.0,1.0,1.0,4.0,4.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,2.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,1.0]
a8[1]=[:r]
b8[1]=[1.0]
a8[2]=[:r,:r,:r,:r,:r]
b8[2]=[2.0,4.0,4.0,4.0,2.0]
a8[3]=[:r]
b8[3]=[1.0]
a8[4]=[:r,:Fs3,:B2]
b8[4]=[0.5,0.5,4.0]
c8=[92,72,92,80,65]
in_thread do
for i in 0..a8.length-1
use_bpm c8[i]
pl a8[i],b8[i],8,0.9
end
end

a9=[]
b9=[]
a9[0]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:E3,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r]
b9[0]=[4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,0.5,0.5,1.0,2.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,4.0,1.0]
a9[1]=[:r]
b9[1]=[1.0]
a9[2]=[:r,:r,:r,:r,:r]
b9[2]=[2.0,4.0,4.0,4.0,2.0]
a9[3]=[:r]
b9[3]=[1.0]
a9[4]=[:r,:D3,:G2]
b9[4]=[0.5,0.5,4.0]
c9=[92,72,92,80,65]
in_thread do
for i in 0..a9.length-1
use_bpm c9[i]
pl a9[i],b9[i],9,0.9
end
end
#used to check length  in beats of each part the same
puts ld b1[0]
puts ld b2[0]
puts ld b3[0]
puts ld b4[0]
puts ld b5[0]
puts ld b6[0]
puts ld b7[0]
puts ld b8[0]
puts ld b9[0]
end#fx

runFugue.rb

run_file "/home/pi/Documents/SPfromXML/BachFugueInGminorArrLisztBWV542-RF.rb"
live_audio :qsynth,stereo: true,amp: 3
#used to run the fugue on a Raspberry Pi. Adjust path to suit
#line 2 feeds audio back for qsynth into sonic pi
#used when playing via midi
#I used qjackctl to set up midi path to qsynth
#and to feed qaynth audio back to Sonic Pi (connection window audio and alsa tabs)