rbnpi/Francesco_Turini_Triosonata_Il_Corisino-RF.rb

## Francesco_Turini_Triosonata_Il_Corisino-RF.rb
#Francesco_Turini_Triosonata_Il_Corisino-RF.rb
#transcribed from a MuseScore by Daniel Rubin for Sonic Pi by Robin Newman Sept 2020
#makes use of external harpsichord synth in vmpk, driven by midi from Sonic piano
#with audio fed back to Sonic Pi as live_audio
#use runfile "/path/to/Francesco_Turini_Triosonata_Il_Corisino-RF.rb"
midiplay = true #for harpsichord or false for piano substitute
#notes for midi/piano parts 3,4,5 follow
a3=[]
b3=[]
a3[0]=[[:C4,:E4,:A4],[:B3,:E4,:B4],[:C4,:E4,:A4],[:D4,:F4,:A4],[:Bf3,:D4,:G4],[:C4,:E4,:G4],[:A3,:C4,:F4],[:G3,:C4,:G4],[:D4,:F4,:A4],[:B3,:E4],:Gs4,[:C4,:E4,:A4],[:F4,:A4],:E4,[:D4,:G4],[:E4,:G4],:D4,[:C4,:E4,:A4],[:D4,:Gs4],[:C4,:E4,:A4],[:B3,:E4,:B4],[:C4,:E4,:A4],[:A3,:D4,:A4],[:B3,:D4,:G4],[:G3,:C4,:G4],[:C4,:F4,:A4],[:D4,:F4,:B4],[:C4,:E4,:A4],[:B3,:E4,:Gs4],[:A3,:D4,:A4],[:D4,:F4,:A4],[:B3,:E4,:G4],[:C4,:E4,:G4],[:A3,:D4,:F4],[:A3,:E4,:A4],[:B3,:D4,:Gs4],[:C4,:E4,:A4],[:F4,:A4],:E4,:r,:E5,:r,:r,:D5,:r,[:D4,:G4,:B4],[:D4,:F4,:A4],[:E4,:A4],:Cs4,[:D4,:G4],[:D4,:G4,:B4],[:C4,:E4,:A4],[:C4,:F4,:A4],[:B3,:D4,:G4],[:D4,:F4,:A4],[:G3,:Cs4,:G4],[:A3,:D4,:Fs4],[:A3,:D4,:Fs4],[:B3,:D4,:G4],[:C4,:E4,:G4],[:E4,:A4],[:F4,:A4],[:G4,:Bf4],[:E4,:G4,:C5],[:F4,:A4,:C5],[:F4,:A4,:D5],[:G4,:Bf4],[:E4,:Bf4],[:E4,:A4],[:D4,:F4,:A4],[:D4,:G4,:B4],[:E4,:G4,:C5],:C5,[:E4,:A4,:C5],[:C4,:F4,:C5],[:D4,:F4,:Bf4],[:Bf3,:E4,:Bf4],:r,[:F4,:A4],[:B3,:D4,:G4],[:A3,:D4,:A4],[:Cs4,:E4,:G4],[:A3,:D4,:Fs4],[:B3,:D4,:G4],[:C4,:E4,:G4],[:C4,:E4,:A4],[:D4,:F4,:A4],[:D4,:G4,:B4],[:E4,:G4,:C5],[:F4,:A4,:C5],[:F4,:A4,:D5],[:F4,:A4,:C5],[:F4,:A4,:B4],[:E4,:Gs4,:B4],[:E4,:A4,:C5],[:E4,:G4,:B4],[:E4,:A4,:C5],[:F4,:A4,:D5],[:E4,:A4,:Cs5],[:D4,:Fs4,:A4],[:D4,:G4,:Bf4],[:D4,:G4,:Bf4],[:C4,:E4,:G4],[:C4,:F4,:A4],[:C4,:F4,:A4],[:D4,:G4,:Bf4],[:D4,:G4,:Bf4],[:D4,:F4,:A4],[:E4,:A4],:Cs4,[:D4,:Fs4,:A4],[:D4,:G4,:B4],[:C4,:G4,:C5],[:E4,:A4,:C5],[:D4,:F4,:A4],[:E4,:A4,:C5],[:E4,:A4,:C5],:F4,[:D4,:F4,:Bf4],[:D4,:G4,:Bf4],:E4,[:C4,:E4,:A4],[:C4,:F4,:A4],:D4,[:B3,:E4,:B4],[:D4,:F4,:A4],[:G3,:B3,:G4],[:A3,:D4,:Fs4],[:D4,:Fs4,:A4],[:B3,:D4,:G4],[:C4,:E4,:G4],[:B3,:E4,:G4],[:C4,:E4,:A4],[:D4,:F4,:A4],[:D4,:G4,:B4],[:C4,:E4,:G4],[:C4,:F4,:A4],[:C4,:F4,:A4],[:D4,:F4,:A4],[:C4,:E4,:A4],[:B3,:E4,:Gs4],[:Cs4,:E4,:A4]]
b3[0]=[2.0,1.0,1.0,2.0,2.0,2.0,1.0,1.0,2.0,1.0,1.0,2.0,1.0,1.0,2.0,1.0,1.0,2.0,1.0,1.0,2.0,2.0,2.0,2.0,2.0,2.0,1.0,1.0,2.0,2.0,2.0,2.0,2.0,1.0,1.0,2.0,2.0,1.0,1.0,2.0,1.0,1.0,2.0,1.0,1.0,1.0,1.0,1.0,1.0,2.0,2.0,2.0,2.0,1.0,1.0,2.0,2.0,2.0,2.0,2.0,2.0,2.0,2.0,2.0,2.0,2.0,2.0,1.0,1.0,2.0,2.0,2.0,3.0,1.0,2.0,2.0,2.0,2.0,2.0,1.0,1.0,2.0,2.0,2.0,2.0,2.0,2.0,2.0,2.0,2.0,1.0,1.0,1.0,1.0,2.0,1.0,1.0,2.0,1.0,1.0,2.0,1.0,1.0,2.0,1.0,1.0,1.0,1.0,1.0,1.0,2.0,2.0,1.0,1.0,2.0,2.0,1.0,1.0,2.0,1.0,1.0,2.0,1.0,1.0,1.0,1.0,2.0,2.0,1.0,1.0,2.0,1.0,1.0,2.0,2.0,2.0,1.0,1.0,1.0,1.0,2.0,4.0]
a3[1]=[[:C4,:E4,:A4],[:B3,:E4,:B4],[:C4,:E4,:A4],[:D4,:F4,:A4],[:A3,:D4,:A4],[:D4,:G4,:B4],[:D4,:A4],[:D4,:G4,:B4],[:E4,:G4,:C5],[:C4,:G4,:C5],[:C4,:F4,:A4],[:C4,:G4],[:C4,:F4,:A4],[:D4,:F4,:A4],[:D4,:Fs4,:B4],[:E4,:A4,:C5],[:E4,:A4,:B4],[:E4,:Gs4,:B4],[:E4,:A4,:C5],[:E4,:G4,:C5],[:D4,:G4,:D5],[:F4,:A4,:D5],[:E4,:G4,:C5],[:G4,:D5],:C5,:B4,:G4,[:E4,:A4,:C5],[:F4,:A4,:D5],:D5,[:A4,:E5],:D5,[:G4,:Bf4,:D5],:F4,[:E4,:G4,:C5],:C4,:D4,:E4,[:F4,:A4,:C5],[:E4,:G4,:C5],[:Bf3,:D4,:F4],[:C4,:F4,:A4],[:B3,:D4,:G4],[:B3,:D4,:G4],[:F4,:A4],[:E4,:A4],:r,[:D4,:F4,:A4],:C4,[:B3,:E4,:G4],:D4,:F4,:G4,[:C4,:E4,:A4],[:B3,:E4,:G4],[:A3,:D4,:F4],:E4,:F4,:E4,[:B3,:D4,:G4],[:D4,:F4],[:E4,:G4,:C5],:B4,:D4,[:C4,:E4,:A4],:A4,:B4,:C5,[:F4,:A4,:D5],[:A4,:C5],[:D4,:G4,:B4],:A4,[:E4,:G4,:C5],:B4,[:C4,:A4],:G4,:F4,:G4,:A4,[:D4,:F4,:A4],[:D4,:F4,:A4],[:C4,:E4,:A4],[:B3,:E4],:Gs4,[:C4,:E4,:A4],:F4,[:D4,:F4,:A4],[:D4,:G4,:B4],[:D4,:G4,:D5],[:E4,:G4,:C5],[:F4,:A4,:D5],[:G4,:Bf4,:D5],[:E4,:G4,:C5],[:F4,:A4,:C5],[:F4,:A4,:D5],[:D4,:G4,:Bf4],[:D4,:F4,:A4],[:D4,:E4,:Bf4],[:Cs4,:E4,:A4],[:D4,:F4,:A4],[:D4,:G4,:B4],[:E4,:G4],[:C4,:E4,:A4],[:D4,:Fs4,:A4],[:D4,:B4],[:E4,:G4,:B4],[:E4,:C5],[:E4,:A4,:C5],[:F4,:A4,:D5],[:G4,:B4,:D5],[:E4,:G4,:C5],[:F4,:A4,:C5],[:F4,:A4,:D5],[:D4,:G4,:D5],[:E4,:A4,:C5],[:E4,:A4,:B4],[:E4,:Gs4,:B4],[:C4,:E4,:A4],[:E4,:C5],[:E4,:B4],[:E4,:Cs5],[:D4,:F4,:A4],[:D4,:B4],[:D4,:A4],[:D4,:B4],[:E4,:G4,:C5],:A4,[:G4,:C5],[:A4,:C5],[:F4,:A4,:D5],:C5,[:E4,:Gs4,:B4],[:E4,:A4,:C5],:F4,:E4,:F4,[:G4,:D5],[:E4,:G4,:C5],[:E4,:A4,:C5],[:D4,:F4,:Bf4],[:D4,:G4,:B4],[:C4,:E4,:A4],[:D4,:A4],[:D4,:G4,:B4],[:C4,:G4,:C5],[:F4,:A4,:C5],[:F4,:A4,:D5],:C5,[:E4,:Gs4,:B4],[:E4,:A4,:C5],[:E4,:A4,:C5],[:D4,:F4,:Bf4],[:D4,:F4,:Bf4],[:C4,:E4,:A4],[:F4,:A4,:C5],:B4,:A4,:G4,[:A3,:D4,:Fs4],:G4,:A4,:B4,:C5,[:D4,:A4,:D5],[:E4,:G4,:B4],[:E4,:A4,:C5],[:D4,:F4,:A4],[:D4,:F4,:Bf4],[:C4,:E4,:G4],[:C4,:F4,:A4],[:Bf3,:D4,:F4],[:Bf3,:D4,:G4],:A4,[:E4,:A4],:Cs4,[:D4,:Fs4,:A4],[:B3,:E4,:G4],[:C4,:E4,:A4],[:D4,:F4,:A4],[:D4,:G4,:B4],[:C4,:E4,:G4],[:C4,:F4,:A4],[:D4,:F4,:A4],:r,:A4,:B4,[:E4,:A4,:C5],[:F4,:A4,:D5],[:G4,:Bf4,:D5],:C5,[:F4,:A4,:C5],[:F4,:D5],[:D4,:G4,:B4],[:D4,:Bf4],[:Cs4,:A4],[:D4,:F4,:A4],[:D4,:G4],:r,:A4,:B4,:C5,[:D4,:F4,:Bf4],[:D4,:G4,:B4],:C5,:B4,:A4,[:D4,:F4,:A4],:B4,:C5,:D5,[:E4,:G4,:C5],[:E4,:A4,:C5],[:D4,:F4,:Bf4],[:D4,:G4,:B4],[:C4,:E4,:A4],[:C4,:F4,:A4],:B4,:A4,:G4,[:D4,:Fs4,:A4],:Fs4,:G4,:A4,[:D4,:G4,:B4],:C5,[:F4,:A4,:C5],[:D4,:G4,:D5],[:E4,:G4,:B4],[:E4,:A4,:C5],[:D4,:F4,:A4],[:D4,:G4,:B4],[:C4,:E4,:G4],[:C4,:F4,:A4]]
b3[1]=[2.0,2.0,2.0,4.0,2.0,2.0,2.0,2.0,4.0,2.0,2.0,2.0,2.0,4.0,2.0,2.0,2.0,2.0,4.0,2.0,2.0,4.0,2.0,1.0,1.0,1.0,1.0,6.0,3.0,1.0,1.0,1.0,4.0,2.0,3.0,1.0,1.0,1.0,4.0,2.0,4.0,2.0,4.0,2.0,2.0,2.0,2.0,4.0,2.0,2.0,2.0,1.0,1.0,4.0,2.0,3.0,1.0,1.0,1.0,4.0,2.0,2.0,2.0,2.0,3.0,1.0,1.0,1.0,4.0,2.0,4.0,2.0,4.0,2.0,2.0,1.0,1.0,1.0,1.0,4.0,2.0,2.0,2.0,2.0,4.0,2.0,6.0,4.0,2.0,6.0,6.0,6.0,6.0,6.0,6.0,6.0,2.0,2.0,2.0,6.0,4.0,2.0,6.0,4.0,2.0,4.0,2.0,6.0,6.0,6.0,6.0,6.0,4.0,2.0,2.0,2.0,2.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,2.0,2.0,3.0,1.0,1.0,1.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,2.0,2.0,2.0,3.0,3.0,3.0,3.0,3.0,3.0,2.0,2.0,2.0,3.0,1.0,1.0,1.0,6.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,2.0,2.0,1.0,1.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,1.0,1.0,1.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,2.0,1.0,3.0,3.0,3.0,1.0,1.0,1.0,3.0,3.0,1.0,1.0,1.0,3.0,1.0,1.0,1.0,3.0,3.0,3.0,3.0,3.0,3.0,2.0,2.0,2.0,3.0,1.0,1.0,1.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0]
a3[2]=[[:D4,:F4,:A4],[:C4,:F4,:A4],[:F4,:A4,:B4],[:E4,:Gs4,:B4],[:E4,:A4,:Cs5]]
b3[2]=[2.0,2.0,2.0,2.0,4.0]
c3=[90,300,120]

a4=[]
b4=[]
a4[0]=[:r,:r,:d5,:r,:c5,:r,     :r,:A4,:r,:r]
b4[0]=[15*4 ,3,1,3,1,11*4,      2.0,3.0,3.0,25*4]
a4[1]=[:r,:D4,:r,   :r,:r,      :r,:A4,:r,    :r,  :r,:A4,:r,   :r,     :r,:F4,:G4,:A4,:G4,:F4,  :r,     :r,:F4,:r,      :r,   [:B3,:E4],:r,  :r, :r,:F4,:G4,:r,    :r,:r,:F4,:G4,:r]
b4[1]=[17*6,4.0,2.0, 36*6,3*6,  2.0,2.0,2.0,   6*6,  2.0,2.0,2.0, 5*6,   1.0,1.0,1.0,1.0,1.0,1.0, 4*6,     2.0,2.0,2.0,    4*6,    3.0, 3.0,    6, 1.0,1.0,1.0,3.0,     11*6,4,1.0,1.0,4*6]
c4=[90,300]

a5=[]
b5=[]
a5[0]=[:r,[:D4,:G4,:D5],:g4,[:C4,:F4,:C5],:f4,  :r,  :r, :E4,  :r, :r,  [:C4,:E4,:A4],:F4,  :C4,  :D4,  :r]
b5[0]=[15*4, 2.0,        2,     2,          2, 11*4, 2,    3,   3,  4,        1,        1,   1,    1,   23*4]
a5[1]=[:r,  :r, :r,  :E4,:r,:r,  :r, :r, :E4,:r, :r, :r, :G4,:r, :r, :r,:D4, :r,:r, :r,  :G4,:r,:r,:E4,:r,:r, :B3,:C4,:D4,[:E4, :G4],:F4, :r, :r,  :E4,:r, [:D4, :G4],:r, :r,[:E4, :G4],:r]
b5[1]=[54*6,3*6, 2.0,2.0,1.0,1.0,6*6,2.0,2.0,1.0,1.0,5*6,3.0,3.0,4*6,2.0,2.0,1.0,1.0,4*6,3.0,3.0,6,3.0,3.0,2*6,1.0,1.0,1.0,  3.0,     3.0,3.0,3.0, 3.0,3.0,   3.0,    5*6,3.0, 3.0,     4*6]
c5=[90,300]

use_debug true
use_midi_logging true
#testing/debugging code
st=0 #starting section for debugging. Normal use leave at 0
define :check do |durs| #check total duration of a given part
  total=0
  durs.each do |x|
    total += x
  end
  return total
end

define :cklen do |n,d| #check number of entries in a given note/duration pair of lists
puts n.length,d.length
end

define :mplay do |notes,durs,channel,tr,vel=100| #send list of midi notes/durations
  for x in 0..notes.length-1
    if notes[x].respond_to?(:each)
      notes[x].each do |n|
        midi note(n)+tr,sustain: durs[x],channel: channel,velocity: vel
      end
    else
      midi note(notes[x])+tr,sustain: durs[x],channel: channel,velocity: vel
    end
    sleep durs[x]
  end
end

#switch output depending upon whether using midi or internal piano
if midiplay then
live_audio :vmpk,:stop #clear any existing audio input
sleep 1
use_midi_defaults port: "iac_driver_sonic-pi"#iac driver sonicpi"
3.times do |i|
midi_pc 6,channel: i+1 #set chans 1-3 to harpsichord (pc 6)
end
#output midi channels 1-3 with parts 3-5
in_thread do
for i in st..a3.length-1
use_bpm c3[i]
mplay a3[i],b3[i],1,0
end
end

in_thread do
for i in st..a4.length-1
use_bpm c4[i]
mplay a4[i],b4[i],2,0
end
end

in_thread do
for i in st..a5.length-1
use_bpm c5[i]
mplay a5[i],b5[i],3,0
end
end

#some checks on data
# cklen a4[0],b4[0]
# cklen a4[1],b4[1]
# puts check b3[0]
# puts check b4[0]
# puts check b5[0]
end #midiplay

with_fx :reverb,room: 0.7,mix: 0.7 do #overall reverb
if midiplay then
  #activate live_audio input from vmpk synth
  live_audio :vmpk,stereo: true,amp: 2
  sleep 0.05 #time correction to sync midi and native sonic pi synths
end

with_fx :level,amp: 0.3 do #adjust level of recorder parts 1 and 2
use_synth :tri
with_transpose 0 do #can be -12 if you want to play recorders down an octave
a1=[]
b1=[]
a1[0]=[:r,:E6,:E6,:E6,:E6,:E6,:F6,:D6,:D6,:D6,:D6,:D6,:E6,:C6,:C6,:C6,:C6,:C6,:D6,:C6,:B5,:A5,:A6,:G6,:A6,:F6,:r,:G6,:F6,:G6,:E6,:r,:F6,:E6,:F6,:D6,:E6,:C6,:D6,:B5,:E6,:D6,:E6,:C6,:r,:D6,:C6,:D6,:B5,:r,:C6,:B5,:C6,:A5,:r,:C6,:B5,:C6,:A5,:B5,:Gs5,:A5,:Gs5,:A5,:r,:D6,:C6,:D6,:B5,:r,:C6,:B5,:C6,:A5,:B5,:C6,:B5,:A5,:Gs5,:A5,:Gs5,:A5,:A6,:A6,:A6,:A6,:A6,:Bf6,:G6,:G6,:G6,:G6,:G6,:A6,:F6,:F6,:F6,:F6,:F6,:G6,:F6,:E6,:D6,:r,:G6,:F6,:G6,:E6,:r,:F6,:E6,:F6,:D6,:E6,:F6,:E6,:D6,:Cs6,:D6,:Cs6,:D6,:r,:A5,:G5,:Fs5,:A5,:D5,:r,:D6,:C6,:B5,:D6,:G5,:r,:E6,:E6,:E6,:E6,:E6,:F6,:D6,:D6,:D6,:D6,:D6,:E6,:C6,:C6,:C6,:C6,:C6,:D6,:A5,:Bf5,:G5,:D6,:Cs6,:r,:F6,:E6,:D6,:F6,:B5,:r,:G6,:F6,:E6,:G6,:C6,:r,:E6,:D6,:C6,:E6,:A5,:C6,:B5,:A5,:C6,:F5,:D6,:C6,:Bf5,:D6,:G5,:Bf5,:A5,:G5,:Bf5,:E5,:C6,:B5,:A5,:C6,:F5,:F6,:E6,:D6,:F6,:B5,:C6,:A5,:B5,:G5,:A5,:r,:D6,:C6,:B5,:D6,:G5,:r,:E6,:E6,:E6,:E6,:E6,:F6,:D6,:D6,:D6,:D6,:D6,:E6,:C6,:C6,:C6,:C6,:C6,:D6,:C6,:B5,:A5,:E6,:F6,:G6,:A6,:A5,:C6,:D6,:E6,:r,:A6,:A6,:A6,:A6,:A6,:Bf6,:G6,:G6,:G6,:G6,:G6,:A6,:F6,:F6,:F6,:F6,:F6,:G6,:F6,:E6,:D6,:r,:D6,:E6,:F6,:G6,:B5,:C6,:D6,:E6,:r,:A5,:B5,:Cs6,:D6,:D5,:F5,:G5,:A5,:r,:E6,:F6,:G6,:A6,:C6,:D6,:E6,:F6,:A5,:B5,:C6,:D6,:r,:F6,:G6,:A6,:Bf6,:D6,:E6,:F6,:G6,:G5,:A5,:Bf5,:C6,:r,:E6,:F6,:G6,:A6,:C6,:D6,:E6,:F6,:F5,:G5,:A5,:B5,:E6,:F6,:G6,:A6,:D6,:E6,:F6,:G6,:B5,:C6,:D6,:E6,:Fs6,:G6,:E6,:Fs6,:r,:r,:G5,:A5,:B5,:C6,:C5,:E5,:F5,:G5,:C5,:r,:C6,:D6,:E6,:F6,:F5,:G5,:A5,:B5,:Fs5,:G5,:A5,:B5,:r,:B5,:C6,:D6,:E6,:E5,:F5,:G5,:A5,:E5,:F5,:G5,:A5,:B5,:G5,:A5,:F5,:G5,:A5,:B5,:C6,:D5,:E5,:Fs5,:Gs5,:A5,:Gs5,:A5]
b1[0]=[1.0,1.0,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.0,1.0,2.0,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,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,0.5,0.5,0.5,0.5,0.5,0.5,0.5,1.0,0.5,2.0,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,0.5,1.0,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.0,1.0,2.0,2.0,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,0.5,1.0,0.5,1.0,0.5,0.25,0.25,0.5,0.5,1.0,0.5,0.25,0.25,0.5,0.5,1.0,0.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,2.0,1.0,0.5,0.25,0.25,0.5,0.5,2.0,0.5,0.25,0.25,0.5,0.5,2.0,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.75,0.25,0.75,0.25,2.0,2.0,0.5,0.25,0.25,0.5,0.5,1.0,0.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.0,1.0,2.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,2.0,1.0,1.0,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.0,1.0,2.0,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,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,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,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,2.0,2.0,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,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,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.5,1.0,0.5,4.0]
a1[1]=[:E6,:E6,:E6,:F6,:D6,:D6,:D6,:E6,:C6,:C6,:C6,:D6,:C6,:B5,:A5,:r,:D6,:C6,:B5,:A5,:D6,:C6,:D6,:G5,:A5,:B5,:C6,:D6,:B5,:C6,:r,:A6,:A6,:A6,:Bf6,:G6,:G6,:G6,:A6,:F6,:F6,:F6,:G6,:F6,:E6,:D6,:C6,:B5,:A5,:D6,:C6,:D6,:G5,:A5,:B5,:C6,:D6,:B5,:C6,:B5,:A5,:G5,:C6,:B5,:C6,:F5,:G5,:A5,:B5,:C6,:A5,:B5,:C6,:D6,:r,:E6,:D6,:C6,:B5,:E6,:D6,:E6,:A5,:B5,:C6,:D6,:E6,:C6,:D6,:C6,:B5,:A5,:D6,:C6,:D6,:G5,:A5,:B5,:C6,:D6,:B5,:C6,:B5,:A5,:G5,:C6,:B5,:C6,:A5,:G5,:F5,:E5,:A5,:G5,:A5,:F5,:E5,:D5,:E5,:F5,:G5,:A5,:Gs5,:A5,:C6,:B5,:A5,:C6,:F5,:A5,:D5,:r,:r,:D6,:C6,:B5,:D6,:G5,:B5,:E5,:r,:A6,:A6,:A6,:Bf6,:G6,:G6,:G6,:A6,:F6,:F6,:F6,:G6,:F6,:E6,:D6,:F6,:E6,:D6,:F6,:B5,:D6,:G5,:r,:r,:C6,:B5,:A5,:C6,:F5,:A5,:D5,:r,:B5,:B5,:B5,:C6,:A5,:A5,:A5,:B5,:G5,:G5,:G5,:A5,:A5,:F5,:A5,:G5,:F5,:A5,:Gs5,:A5,:E6,:E6,:E6,:F6,:D6,:D6,:D6,:E6,:C6,:C6,:C6,:D6,:C6,:B5,:A5,:r,:r,:E6,:D6,:E6,:C6,:B5,:C6,:D6,:C6,:D6,:B5,:A5,:B5,:C6,:D6,:C6,:D6,:B5,:A5,:B5,:C6,:B5,:C6,:A5,:G5,:A5,:B5,:A5,:Gs5,:E6,:D6,:E6,:C6,:B5,:C6,:D6,:C6,:D6,:B5,:A5,:B5,:C6,:B5,:C6,:A5,:G5,:A5,:B5,:A5,:G5,:A5,:r,:r,:A6,:G6,:A6,:F6,:E6,:F6,:G6,:F6,:G6,:E6,:D6,:E6,:F6,:E6,:F6,:D6,:E6,:D6,:E6,:C6,:B5,:C6,:D6,:C6,:D6,:E6,:D6,:Cs6,:D6,:E6,:Fs6,:G6,:Fs6,:E6,:D6,:C6,:D6,:E6,:F6,:E6,:D6,:C6,:B5,:E6,:F6,:G6,:A6,:G6,:F6,:E6,:D6,:E6,:F6,:G6,:F6,:E6,:D6,:C6,:D6,:E6,:F6,:E6,:D6,:C6,:Bf5,:C6,:D6,:E6,:D6,:C6,:B5,:A5,:B5,:C6,:D6,:C6,:B5,:A5,:B5,:C6,:D6,:A5,:D6,:Cs6,:D6,:E6,:Fs6,:G6,:F6,:E6,:D6,:C6,:D6,:E6,:F6,:D6,:E6,:F6,:G6,:F6,:E6,:D6,:C6,:D6,:E6,:F6,:E6,:D6,:C6,:B5,:E6,:F6,:G6,:A6,:G6,:F6,:E6,:D6,:E6,:F6,:G6,:F6,:E6,:D6,:C6,:D6,:E6,:F6,:E6,:D6,:C6,:B5,:C6,:D6,:E6,:D6,:Cs6,:D6,:r,:r,:E6,:F6,:G6,:A6,:G6,:F6,:E6,:D6,:r,:E6,:E6,:E6,:F6,:D6,:D6,:D6,:E6,:C6,:C6,:C6]
b1[1]=[2.0,2.0,2.0,6.0,2.0,2.0,2.0,6.0,2.0,2.0,2.0,6.0,2.0,4.0,4.0,2.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,2.0,2.0,2.0,2.0,6.0,2.0,2.0,2.0,6.0,2.0,2.0,2.0,6.0,2.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,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,1.0,1.0,2.0,2.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,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,1.0,0.5,0.5,1.0,1.0,1.0,1.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,2.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,4.0,2.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,4.0,2.0,2.0,2.0,2.0,6.0,2.0,2.0,2.0,6.0,2.0,2.0,2.0,6.0,2.0,4.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,4.0,2.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,4.0,2.0,2.0,2.0,2.0,6.0,2.0,2.0,2.0,6.0,2.0,2.0,2.0,4.0,2.0,3.0,1.0,1.0,1.0,4.0,2.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,2.0,2.0,3.0,3.0,3.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,3.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,2.0,2.0,2.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,2.0,2.0,2.0,3.0,3.0,3.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,3.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,2.0,2.0,2.0,1.0,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,3.0,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,2.0,1.0,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,3.0,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,3.0,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,2.0,1.0,3.0,3.0,3.0,1.0,1.0,1.0,1.5,0.5,0.5,0.5,3.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0]
a1[2]=[:D6,:C6,:B5,:A5]
b1[2]=[2.0,2.0,4.0,4.0]
c1=[90,300,120]

in_thread do
for i in st..a1.length-1
use_bpm c1[i]
for j in 0..a1[i].length-1
play a1[i][j],sustain: b1[i][j]*0.9,release: b1[i][j]*0.1,pan: -0.6
sleep b1[i][j]
end
end
end

a2=[]
b2=[]
a2[0]=[:r,:r,:r,:A5,:A5,:A5,:A5,:A5,:Bf5,:G5,:G5,:G5,:G5,:G5,:A5,:G5,:F5,:G5,:A5,:Gs5,:A5,:r,:F6,:E6,:F6,:D6,:r,:E6,:D6,:E6,:C6,:D6,:E6,:C6,:B5,:E5,:r,:E6,:E6,:E6,:E6,:E6,:F6,:D6,:D6,:D6,:D6,:D6,:E6,:C6,:C6,:C6,:C6,:C6,:D6,:C6,:B5,:A5,:A6,:G6,:A6,:F6,:r,:G6,:F6,:G6,:E6,:r,:G6,:F6,:G6,:E6,:F6,:D6,:C6,:A5,:G5,:A5,:F5,:r,:G5,:F5,:G5,:E5,:r,:F5,:E5,:F5,:D5,:D6,:C6,:D6,:B5,:Cs6,:D6,:Cs6,:r,:D6,:C6,:D6,:B5,:r,:C6,:B5,:C6,:A5,:r,:C6,:B5,:C6,:A5,:B5,:G5,:r,:A5,:G5,:Fs5,:A5,:D5,:r,:D6,:C6,:B5,:D6,:G5,:r,:G6,:F6,:E6,:G6,:C6,:r,:A6,:A6,:A6,:A6,:A6,:Bf6,:G6,:G6,:G6,:G6,:G6,:A6,:F6,:F6,:F6,:F6,:F6,:G6,:F6,:E6,:D6,:A6,:G6,:F6,:A6,:D6,:B5,:A5,:G5,:B5,:E5,:r,:E6,:D6,:C6,:E6,:A5,:C6,:B5,:A5,:C6,:F5,:A5,:G5,:F5,:A5,:D5,:Bf5,:A5,:G5,:Bf5,:E5,:G5,:F5,:E5,:G5,:C5,:A5,:G5,:F5,:A5,:D5,:A6,:G6,:F6,:A6,:D6,:F6,:E6,:D6,:E6,:Cs6,:D6,:Cs6,:D6,:A5,:G5,:Fs5,:A5,:D5,:r,:B5,:B5,:B5,:B5,:B5,:C6,:A5,:A5,:A5,:A5,:A5,:B5,:G5,:G5,:G5,:G5,:G5,:A5,:E5,:F5,:D5,:A5,:Gs5,:A5,:r,:G5,:A5,:B5,:C6,:r,:A5,:B5,:Cs6,:D6,:D5,:F5,:G5,:A5,:r,:G5,:Bf5,:C6,:D6,:D5,:E5,:F5,:G5,:r,:F5,:A5,:B5,:C6,:C5,:D5,:E5,:F5,:r,:Bf5,:D6,:E6,:F6,:D6,:E6,:F6,:Cs6,:G5,:A5,:B5,:Cs6,:A5,:B5,:Cs6,:D6,:r,:B5,:C6,:D6,:E6,:G5,:A5,:B5,:C6,:G5,:A5,:B5,:C6,:C5,:D5,:E5,:F5,:r,:E6,:F6,:G6,:A6,:C6,:D6,:E6,:F6,:r,:F6,:G6,:A6,:Bf6,:D6,:E6,:F6,:G6,:Bf5,:C6,:D6,:E6,:r,:E6,:F6,:G6,:A6,:C6,:D6,:E6,:F6,:A5,:B5,:C6,:D6,:r,:C6,:D6,:E6,:F6,:B5,:C6,:D6,:E6,:G5,:A5,:B5,:C6,:D6,:E6,:C6,:D6,:A5,:B5,:C6,:D6,:D5,:Fs5,:G5,:A5,:B5,:r,:E6,:E6,:E6,:E6,:E6,:F6,:D6,:D6,:D6,:D6,:D6,:E6,:C6,:C6,:C6,:C6,:C6,:D6,:C6,:B5,:A5]
b2[0]=[2.0,1.0,0.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.0,1.0,0.5,0.5,2.0,1.0,2.0,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.5,1.0,1.0,1.0,1.0,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.0,1.0,2.0,0.5,0.5,0.5,0.5,2.0,0.5,0.5,0.5,0.5,1.0,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,2.0,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,0.5,0.5,2.0,0.5,0.5,0.5,0.5,1.0,0.5,0.5,0.5,0.5,0.5,0.5,2.0,0.5,0.25,0.25,0.5,0.5,1.0,0.5,0.25,0.25,0.5,0.5,1.0,0.5,0.25,0.25,0.5,0.5,1.0,0.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.0,1.0,2.0,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,2.0,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,1.0,0.5,0.5,0.25,0.25,0.5,0.5,1.0,0.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,2.0,1.0,2.0,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,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,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,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,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,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,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.0,1.0,1.0,1.0,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.0,1.0,2.0,4.0]
a2[1]=[:C6,:B5,:C6,:D6,:C6,:B5,:A5,:B5,:A5,:B5,:C6,:B5,:A5,:G5,:A5,:G5,:A5,:F5,:E5,:Fs5,:G5,:A5,:Gs5,:A5,:G5,:F5,:E5,:A5,:G5,:A5,:D5,:E5,:F5,:G5,:A5,:F5,:G5,:r,:r,:A6,:G6,:F6,:E6,:A6,:G6,:A6,:D6,:E6,:F6,:G6,:A6,:F6,:G6,:F6,:E6,:D6,:G6,:F6,:G6,:C6,:D6,:E6,:F6,:G6,:E6,:F6,:E6,:D6,:C6,:F6,:E6,:F6,:D6,:C6,:B5,:A5,:D6,:C6,:D6,:B5,:A5,:G5,:A5,:B5,:C6,:D6,:Cs6,:D6,:r,:G5,:F5,:E5,:D5,:G5,:F5,:G5,:C5,:D5,:E5,:F5,:G5,:E5,:A5,:r,:G5,:F5,:E5,:D5,:G5,:F5,:G5,:E5,:F5,:G5,:A5,:B5,:G5,:E6,:E6,:E6,:F6,:D6,:D6,:D6,:E6,:C6,:C6,:C6,:D6,:C6,:B5,:A5,:E6,:D6,:C6,:E6,:A5,:C6,:F5,:A6,:G6,:F6,:A6,:D6,:F6,:B5,:r,:E6,:E6,:E6,:F6,:D6,:D6,:D6,:E6,:C6,:C6,:C6,:D6,:D6,:Bf5,:D6,:C6,:Bf5,:D6,:Cs6,:D6,:A6,:G6,:F6,:A6,:D6,:F6,:B5,:r,:r,:E6,:D6,:C6,:E6,:A5,:C6,:Fs5,:Fs6,:E6,:D6,:Fs6,:B5,:D6,:G5,:r,:E6,:E6,:E6,:F6,:D6,:D6,:D6,:E6,:C6,:C6,:C6,:D6,:C6,:B5,:A5,:C6,:B5,:Cs6,:D6,:B5,:A5,:B5,:C6,:A5,:G5,:A5,:F5,:E5,:A5,:Gs5,:A5,:G5,:A5,:F5,:E5,:F5,:G5,:F5,:G5,:E5,:A6,:G6,:A6,:F6,:E6,:F6,:G6,:E6,:E6,:E6,:F6,:D6,:D6,:D6,:E6,:C6,:C6,:C6,:D6,:C6,:B5,:A5,:A6,:G6,:A6,:F6,:E6,:F6,:G6,:F6,:G6,:E6,:D6,:E6,:F6,:E6,:F6,:D6,:E6,:D6,:Cs6,:D6,:C6,:D6,:B5,:A5,:B5,:C6,:B5,:C6,:A5,:D6,:C6,:D6,:B5,:A5,:B5,:C6,:A6,:A6,:A6,:Bf6,:G6,:G6,:G6,:A6,:F6,:F6,:F6,:G6,:F6,:E6,:D6,:G5,:A5,:B5,:C6,:B5,:A5,:G5,:F5,:G5,:A5,:B5,:A5,:G5,:F5,:r,:A5,:B5,:C6,:D6,:C6,:B5,:A5,:G5,:r,:A6,:A6,:A6,:Bf6,:G6,:G6,:G6,:A6,:F6,:F6,:F6,:G6,:F6,:E6,:D6,:B5,:C6,:D6,:E6,:A5,:B5,:C6,:D6,:C6,:B5,:A5,:G5,:A5,:B5,:C6,:B5,:A5,:G5,:F5,:G5,:A5,:B5,:A5,:G5,:F5,:E5,:A5,:B5,:C6,:D6,:C6,:B5,:A5,:G5,:A5,:B5,:C6,:B5,:A5,:G5,:F5,:G5,:A5,:D5,:E5,:F5,:G5,:A5,:F5,:G5,:A5,:B5,:C6,:D6,:C6,:B5,:A5,:G5,:A5,:B5,:C6,:A5,:B5,:C6,:D6,:C6,:B5,:A5,:G5,:A5,:B5,:C6,:B5,:A5,:G5,:F5,:G5,:A5,:B5,:A5,:G5,:F5,:E5,:F5,:G5,:A5,:G5,:F5,:E5]
b2[1]=[2.0,2.0,2.0,2.0,1.0,1.0,2.0,2.0,2.0,2.0,2.0,1.0,1.0,2.0,2.0,2.0,2.0,3.0,1.0,1.0,1.0,4.0,2.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,2.0,2.0,2.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,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,1.0,0.5,0.5,1.0,1.0,1.0,1.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,2.0,4.0,2.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,2.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,2.0,2.0,2.0,6.0,2.0,2.0,2.0,6.0,2.0,2.0,2.0,6.0,2.0,4.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,4.0,2.0,2.0,2.0,2.0,6.0,2.0,2.0,2.0,6.0,2.0,2.0,2.0,4.0,2.0,3.0,1.0,1.0,1.0,4.0,2.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,4.0,2.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,4.0,2.0,2.0,2.0,2.0,6.0,2.0,2.0,2.0,6.0,2.0,2.0,2.0,6.0,2.0,4.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,3.0,1.0,1.0,1.0,1.0,1.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,2.0,2.0,3.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,2.0,2.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,3.0,1.0,1.0,1.0,1.0,1.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,2.0,2.0,3.0,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,3.0,1.0,1.0,1.0,1.5,0.5,0.5,0.5,3.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,2.0,2.0,3.0,1.0,1.0,1.0,3.0,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,3.0,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,0.5,0.5,2.0,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,3.0,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5]
a2[2]=[:F5,:G5,:A5,:Gs5,:A5]
b2[2]=[1.5,0.5,4.0,2.0,4.0]
c2=[90,300,120]

in_thread do
for i in st..a2.length-1
use_bpm c2[i]
for j in 0..a2[i].length-1
play a2[i][j],sustain: b2[i][j]*0.9,release: b2[i][j]*0.1,pan: 0.6
sleep b2[i][j]
end
end
end
end#transpose

end #level

#play parts 3-5 on internal piano synth if not using midi
if not midiplay then
use_synth :piano

in_thread do
for i in st..a3.length-1
use_bpm c3[i]
for j in 0..a3[i].length-1
play a3[i][j],sustain: b3[i][j]*0.9
sleep b3[i][j]
end
end
end

in_thread do
for i in st..a4.length-1
use_bpm c4[i]
for j in 0..a4[i].length-1
play a4[i][j],sustain: b4[i][j]*0.9
sleep b4[i][j]
end
end
end

in_thread do
for i in st..a5.length-1
use_bpm c5[i]
for j in 0..a5[i].length-1
play a5[i][j],sustain: b5[i][j]*0.9
sleep b5[i][j]
end
end
end
end #not midiplay

#play base part on blade synth
use_synth :blade
a6=[]
b6=[]
a6[0]=[:A3,:Gs3,:A3,:D3,:E3,:F3,:G3,:G2,:C3,:D3,:E3,:F3,:E3,:D3,:C3,:B2,:A2,:E3,:E2,:A2,:r,:D4,:C4,:D4,:B3,:r,:C4,:B3,:C4,:A3,:B3,:C4,:A3,:B3,:A3,:A3,:Gs3,:r,:A3,:Gs3,:A3,:F3,:r,:G3,:F3,:G3,:E3,:r,:F3,:E3,:F3,:D3,:A2,:E3,:E3,:E3,:E3,:E3,:F3,:D3,:D3,:D3,:D3,:D3,:E3,:C3,:C3,:C3,:C3,:C3,:D3,:C3,:B2,:A2,:r,:D3,:C3,:D3,:Bf2,:r,:C3,:Bf2,:C3,:A2,:r,:Bf2,:A2,:Bf2,:G2,:D2,:A3,:A3,:A3,:A3,:A3,:Bf3,:G3,:G3,:G3,:G3,:G3,:A3,:F3,:F3,:F3,:F3,:F3,:G3,:F3,:E3,:D3,:r,:D3,:C3,:B2,:D3,:G2,:r,:G3,:F3,:E3,:G3,:C3,:r,:A2,:G2,:F2,:A2,:D2,:D3,:C3,:Bf2,:D3,:G2,:G3,:F3,:E3,:G3,:C3,:C4,:B3,:A3,:C4,:F3,:A3,:G3,:F3,:A3,:D3,:D4,:C4,:Bf3,:D4,:G3,:Bf3,:A3,:G3,:Bf3,:G3,:A3,:D3,:r,:G3,:F3,:E3,:G3,:C3,:E3,:D3,:C3,:E3,:A2,:r,:A3,:A3,:A3,:A3,:A3,:Bf3,:G3,:G3,:G3,:G3,:G3,:A3,:F3,:F3,:F3,:F3,:F3,:G3,:F3,:E3,:D3,:r,:D3,:C3,:B2,:D3,:G2,:r,:E3,:D3,:C3,:E3,:A2,:A3,:G3,:F3,:A3,:D3,:D4,:C4,:B3,:D4,:G3,:G2,:F2,:E2,:G2,:C2,:C4,:B3,:A3,:C4,:F3,:A3,:G3,:F3,:A3,:D3,:F3,:E3,:D3,:F3,:D3,:E3,:A2,:E3,:A2,:D3,:r,:A3,:B3,:C4,:D4,:D3,:E3,:Fs3,:G3,:r,:G3,:A3,:B3,:C4,:C3,:D3,:E3,:F3,:r,:F3,:G3,:A3,:Bf3,:Bf2,:C3,:D3,:G2,:G3,:Bf3,:C4,:D4,:Bf3,:C4,:D4,:A3,:E3,:F3,:G3,:A3,:F3,:G3,:A3,:D3,:A3,:B3,:Cs4,:D4,:D3,:E3,:Fs3,:G3,:r,:E3,:F3,:G3,:A3,:A2,:B2,:C3,:D3,:r,:A3,:A3,:A3,:A3,:A3,:Bf3,:G3,:G3,:G3,:G3,:G3,:A3,:F3,:F3,:F3,:F3,:F3,:G3,:F3,:E3,:D3,:r,:D3,:E3,:Fs3,:G3,:G2,:A2,:B2,:C3,:r,:E3,:F3,:G3,:A3,:A2,:B2,:Cs3,:D3,:A3,:B3,:C4,:D4,:D3,:E3,:F3,:G3,:D3,:E3,:F3,:G3,:G2,:A2,:B2,:C3,:G3,:A3,:B3,:C4,:C3,:D3,:E3,:F3,:C3,:D3,:E3,:F3,:G3,:E3,:F3,:D3,:E3,:F3,:G3,:A3,:B2,:C3,:D3,:E3,:E2,:A2]
b6[0]=[2.0,1.0,1.0,1.0,0.5,0.5,1.0,1.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.5,0.5,0.5,0.5,2.0,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,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,0.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.0,1.0,2.0,2.0,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,0.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.0,1.0,2.0,2.0,0.5,0.25,0.25,0.5,0.5,1.0,0.5,0.25,0.25,0.5,0.5,1.0,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,1.0,1.0,2.0,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,2.0,1.0,1.0,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.0,1.0,2.0,1.0,0.5,0.25,0.25,0.5,0.5,1.0,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,0.5,0.25,0.25,0.5,0.5,1.0,1.0,2.0,1.0,1.0,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,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.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,1.0,1.0,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.5,0.5,0.5,0.5,0.5,0.5,1.0,1.0,2.0,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.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,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,1.0,4.0]
a6[1]=[:A3,:Gs3,:A3,:D3,:E3,:Fs3,:G3,:Fs3,:G3,:C3,:D3,:E3,:F3,:E3,:F3,:D3,:C3,:B2,:A2,:E3,:A2,:B2,:C3,:A2,:B2,:C3,:D3,:r,:E3,:D3,:C3,:B2,:E3,:D3,:E3,:A2,:B2,:C3,:D3,:E3,:C3,:D3,:C3,:B2,:A2,:D3,:Cs3,:D3,:G2,:A2,:Bf2,:C3,:D3,:Bf2,:C3,:B2,:A2,:G2,:C3,:Bf2,:C3,:F2,:G2,:A2,:B2,:C3,:A2,:Bf2,:A2,:G2,:F2,:Bf2,:A2,:Bf2,:G2,:A2,:Bf2,:A2,:G2,:F2,:E2,:D2,:A2,:D3,:E3,:F3,:D3,:E3,:F3,:G3,:E3,:D3,:E3,:A2,:B2,:C3,:r,:D3,:C3,:B2,:A2,:D3,:C3,:D3,:G2,:A2,:B2,:C3,:D3,:B2,:C3,:D3,:E3,:r,:A3,:G3,:F3,:E3,:A3,:G3,:A3,:D3,:E3,:F3,:G3,:A3,:F3,:G3,:F3,:E3,:D3,:G3,:Fs3,:G3,:C3,:D3,:E3,:F3,:G3,:E3,:F3,:E3,:D3,:C3,:F3,:E3,:F3,:D3,:E3,:F3,:E3,:D3,:C3,:B2,:A2,:E3,:A2,:r,:F3,:E3,:D3,:F3,:B2,:D3,:G2,:A2,:B2,:C3,:C4,:B3,:A3,:C4,:F3,:A3,:D3,:F3,:E3,:D3,:F3,:Bf2,:D3,:G2,:Bf3,:A3,:G3,:Bf3,:E3,:G3,:C3,:E3,:D3,:C3,:E3,:A2,:C3,:F2,:C4,:B3,:A3,:C4,:F3,:A3,:D3,:F3,:E3,:D3,:F3,:Bf2,:D3,:G2,:Bf3,:A3,:G3,:Bf3,:E3,:G3,:D3,:G3,:A3,:A2,:D3,:r,:G3,:F3,:E3,:G3,:C3,:E3,:A2,:r,:D3,:C3,:B2,:D3,:G2,:B2,:E2,:G3,:F3,:E3,:G3,:C3,:E3,:A2,:C4,:B3,:C4,:A3,:F3,:A3,:D3,:F3,:E3,:D3,:F3,:B2,:D3,:G2,:B3,:A3,:G3,:B3,:E3,:G3,:C3,:E3,:D3,:C3,:E3,:A2,:C3,:F2,:C4,:B3,:A3,:C4,:F3,:A3,:D3,:F3,:E3,:D3,:F3,:B2,:D3,:A2,:D3,:E3,:A2,:A3,:Gs3,:A3,:D3,:G3,:Fs3,:G3,:C3,:F3,:E3,:F3,:D3,:A2,:E3,:A2,:D4,:C4,:D4,:B3,:A3,:B3,:C4,:B3,:C4,:A3,:Bf3,:G3,:A3,:G3,:A3,:F3,:E3,:F3,:G3,:F3,:G3,:E3,:D3,:E3,:F3,:E3,:F3,:D3,:A2,:E3,:A2,:A3,:A3,:A3,:Bf3,:G3,:G3,:G3,:A3,:F3,:F3,:F3,:G3,:F3,:E3,:D3,:G3,:F3,:G3,:E3,:D3,:E3,:F3,:E3,:F3,:D3,:E3,:A2,:D3,:C3,:D3,:Bf2,:A2,:Bf2,:C3,:Bf2,:C3,:A2,:G2,:A2,:Bf2,:A2,:Bf2,:G2,:D2,:A2,:D3,:E3,:A2,:B2,:C3,:D3,:C3,:B2,:A2,:G2,:A2,:B2,:C3,:B2,:A2,:G2,:F2,:G2,:A2,:D3,:E3,:F3,:G3,:A3,:G3,:F3,:E3,:D3,:E3,:F3,:G3,:F3,:E3,:D3,:C3,:D3,:E3,:F3,:E3,:D3,:C3,:Bf2,:C3,:D3,:G2,:A2,:Bf2,:C3,:Bf2,:G2,:A2,:D3,:G3,:A3,:B3,:C4,:B3,:A3,:G3,:F3,:G3,:A3,:Bf3,:C4,:D4,:G3,:A3,:B3,:C4,:D4,:C4,:B3,:A3,:G3,:A3,:B3,:C4,:A3,:A3,:A3,:Bf3,:G3,:G3,:G3,:A3,:F3,:F3,:F3,:G3,:F3,:E3,:D3,:D3,:E3,:Fs3,:G3,:F3,:E3,:D3,:C3,:D3,:E3,:F3,:E3,:D3,:C3,:B2,:C3,:D3,:E3,:D3,:C3,:B2,:A2,:B2,:C3,:D3,:C3,:B2,:A2,:G2,:A2,:B2,:C3,:B2,:A2,:G2,:F3,:G3,:A3]
b6[1]=[2.0,2.0,2.0,3.0,1.0,2.0,2.0,2.0,2.0,3.0,1.0,2.0,2.0,2.0,2.0,3.0,1.0,2.0,2.0,4.0,3.0,1.0,1.0,1.0,1.0,1.0,2.0,2.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,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,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,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,1.0,1.0,4.0,3.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,2.0,2.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,1.0,1.0,2.0,2.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,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,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,1.0,1.0,4.0,6.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,3.0,1.0,2.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,2.0,2.0,1.0,1.0,6.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,6.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,0.5,0.5,1.0,1.0,1.0,1.0,2.0,2.0,2.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,2.0,2.0,3.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,3.0,3.0,3.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,2.0,2.0,2.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,2.0,2.0,3.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,3.0,3.0,3.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,2.0,2.0,2.0,3.0,3.0,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,3.0,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,3.0,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.0,1.0,1.0,3.0,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,2.0,2.0,3.0,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,1.0,1.0]
a6[2]=[:D3,:E3,:F3,:G3,:F3,:D3,:E3,:A2]
b6[2]=[1.5,0.5,0.5,0.5,1.0,2.0,2.0,4.0]
c6=[90,300,120]
in_thread do
for i in st..a6.length-1
use_bpm c6[i]
for j in 0..a6[i].length-1
play a6[i][j],sustain: b6[i][j]*0.9,release: b6[i][j]*0.1,amp: 0.5
sleep b6[i][j]
end
end
end

end #reverb