Skip to content

Instantly share code, notes, and snippets.

@rbnpi
Last active Mar 26, 2021
Embed
What would you like to do?
Pase el agoa 16th century anonymous piece coded for Sonic Pi. Hear it on https://soundcloud.com/rbnsonicpi/pase-el-agoa
#Pase_el_agoa-RF
#play using run_file "path/to/this/file"
#Anonymous 16th century manuscript Pase el agoa, ma Julieta dama
#"Across deep oceans" coded for Sonic Pi by Robin Newman, march 2021
#quite tricky to do to get the spread chords in the lute part sounding ok
#I love the corss rhythms of this piece.
#I could reduce the sequences of rests in most parts, but life is too short....
st=0 #starting section to play
s=0.97;r=0.03 #sustain/release fractions
#part volume and pan settings
v1=0.6;p1=-0.6
v2=0.2;p2=0.4
v3=0.3;p3=0.2
v4=0.3;p4=-0.4
v5=0.3;p5=-0.2
v6=1;p6=0.6
v7=1;p7=0.6
vl=0.4
v12=0.4;p12=0.4
#################### note/duration info follows
a1=[]
b1=[]
a1[0]=[:r,:r,:r,:r,:r,:r]
b1[0]=[3.0,3.0,3.0,3.0,3.0,3.0]
a1[1]=[:r,:r]
b1[1]=[3.0,3.0]
a1[2]=[:r,:r,:r,:r,:r,:r]
b1[2]=[3.0,3.0,3.0,3.0,3.0,3.0]
a1[3]=[:r,:r]
b1[3]=[3.0,3.0]
a1[4]=[: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]
b1[4]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0]
a1[5]=[:r,:r]
b1[5]=[3.0,2.0]
a1[6]=[:r,:r]
b1[6]=[1.0,2.0]
a1[7]=[:r]
b1[7]=[1.0]
a1[8]=[:r,:r,:r,:r,:r]
b1[8]=[3.0,3.0,3.0,3.0,2.0]
a1[9]=[:r]
b1[9]=[1.0]
a1[10]=[:r,:r,:r,:r,:r]
b1[10]=[3.0,3.0,3.0,3.0,2.0]
a1[11]=[:r]
b1[11]=[1.0]
a1[12]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r]
b1[12]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0]
a1[13]=[:r,:r]
b1[13]=[3.0,1.0]
a1[14]=[:r,:r,:r]
b1[14]=[2.0,3.0,2.0]
a1[15]=[:r]
b1[15]=[1.0]
a1[16]=[:r]
b1[16]=[3.0]
a1[17]=[[:A5,:A6],[:C6,:C7],[:A5,:A6],[:F5,:F6],[:G5,:G6],[:G5,:G6],[:G5,:G6],[:G5,:G6],[:A5,:A6],[:F5,:F6],[:E5,:E6],[:A5,:A6],[:C6,:C7],[:A5,:A6],[:G5,:G6],[:G5,:G6],[:A5,:A6],[:G5,:G6],[:F5,:F6],[:E5,:E6],[:D5,:D6],[:D5,:D6],[:A5,:A6],[:C6,:C7],[:A5,:A6],[:F5,:F6],[:G5,:G6],[:G5,:G6],[:G5,:G6],[:G5,:G6],[:A5,:A6],[:F5,:F6],[:E5,:E6],[:A5,:A6],[:C6,:C7],[:A5,:A6],[:G5,:G6],[:G5,:G6],[:A5,:A6],[:G5,:G6],[:F5,:F6],[:E5,:E6],[:D5,:D6],[:D5,:D6]]
b1[17]=[3.0,3.0,3.0,3.0,1.0,1.0,1.0,1.0,2.0,3.0,3.0,3.0,3.0,3.0,2.0,1.0,2.0,1.0,1.0,2.0,2.0,4.0,3.0,3.0,3.0,3.0,1.0,1.0,1.0,1.0,2.0,3.0,3.0,3.0,3.0,3.0,2.0,1.0,2.0,1.0,1.0,2.0,2.0,4.0]
a1[18]=[:r]
b1[18]=[3.0]
a1[19]=[[:A5,:D6],[:A5,:D6],[:A5,:D6],[:A5,:D6],[:A5,:D6],[:C6,:E6],[:A5,:D6],[:A5,:C6],[:A5,:D6]]
b1[19]=[1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,2.0]
a1[20]=[:r]
b1[20]=[1.0]
a1[21]=[[:A5,:D6],[:A5,:D6],[:A5,:D6],[:A5,:D6],[:A5,:D6],[:C6,:E6],[:A5,:D6],[:A5,:C6],[:A5,:D6]]
b1[21]=[1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,2.0]
a1[22]=[:r]
b1[22]=[1.0]
a1[23]=[[:G5,:G6],[:G5,:G6],[:G5,:G6],[:G5,:G6],[:G5,:G6],[:G5,:G6],[:G5,:G6],[:G5,:G6],[:G5,:G6],[:G5,:G6],[:G5,:G6],[:G5,:G6],[:A5,:A6],[:F5,:F6],[:E5,:E6],[:A5,:A6],[:C6,:C7],[:A5,:A6],[:G5,:G6],[:G5,:G6]]
b1[23]=[2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,1.0,2.0,3.0,3.0,3.0,3.0,3.0,2.0,1.0]
a1[24]=[[:A5,:A6],[:G5,:G6],[:F5,:F6],[:E5,:E6]]
b1[24]=[2.0,1.0,1.0,2.0]
a1[25]=[[:D5,:D6]]
b1[25]=[3.0]
c1=[288,276,284,264,288,284,276,160,288,160,288,130,288,280,272,192,450,288,900,288,160,288,130,288,264,132]
####################
a2=[]
b2=[]
a2[0]=[:r,:r,:r,:r,:r,:r]
b2[0]=[3.0,3.0,3.0,3.0,3.0,3.0]
a2[1]=[:r,:r]
b2[1]=[3.0,3.0]
a2[2]=[:r,:r,:r,:r,:r,:r]
b2[2]=[3.0,3.0,3.0,3.0,3.0,3.0]
a2[3]=[:r,:r]
b2[3]=[3.0,3.0]
a2[4]=[:D6,:E6,:Fs6,:E6,:D6,:Cs6,:B5,:A5,:B5,:Cs6,:Cs6,:D6,:B5,:A5,:D6,:E6,:Fs6,:E6,:D6,:Cs6,:B5,:A5,:Cs6,:D6,:Cs6,:B5,:Bf5,:B5,:B5,:D6,:E6,:Fs6,:E6,:D6,:Cs6,:B5,:A5,:B5,:Cs6,:Cs6,:D6,:B5,:A5,:D6,:E6,:Fs6,:E6,:D6,:Cs6,:B5,:A5,:Cs6,:D6,:Cs6]
b2[4]=[2.0,1.0,2.0,1.0,1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,3.0,3.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,2.0,1.0,1.0,2.0,1.0,2.0,2.0,4.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,3.0,3.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,2.0,1.0,1.0,2.0]
a2[5]=[:B5,:Bf5,:B5]
b2[5]=[1.0,2.0,2.0]
a2[6]=[:B5]
b2[6]=[3.0]
a2[7]=[:r]
b2[7]=[1.0]
a2[8]=[:B5,:B5,:B5,:B5,:B5,:Cs6,:B5,:A5,:B5]
b2[8]=[1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,2.0]
a2[9]=[:r]
b2[9]=[1.0]
a2[10]=[:B5,:B5,:B5,:B5,:B5,:Cs6,:B5,:A5,:B5]
b2[10]=[1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,2.0]
a2[11]=[:r]
b2[11]=[1.0]
a2[12]=[:E6,:E6,:E6,:E6,:E6,:E6,:E6,:E6,:E6,:E6,:E6,:E6,:Fs6,:D6,:Cs6,:D6,:E6,:Fs6,:E6,:D6,:Cs6,:B5,:A5,:Cs6]
b2[12]=[2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,1.0,2.0,3.0,3.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,2.0,1.0]
a2[13]=[:D6,:Cs6,:B5]
b2[13]=[1.0,2.0,1.0]
a2[14]=[:Bf5,:B5]
b2[14]=[2.0,5.0]
a2[15]=[:r]
b2[15]=[1.0]
a2[16]=[:r]
b2[16]=[3.0]
a2[17]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:D6,:E6,:Fs6,:E6,:D6,:Cs6,:B5,:A5,:B5,:Cs6,:Cs6,:D6,:B5,:A5,:D6,:E6,:Fs6,:E6,:D6,:Cs6,:B5,:A5,:Cs6,:D6,:Cs6,:B5,:Bf5,:B5,:B5]
b2[17]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,3.0,3.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,2.0,1.0,1.0,2.0,1.0,2.0,2.0,4.0]
a2[18]=[:r]
b2[18]=[3.0]
a2[19]=[:B5,:B5,:B5,:B5,:B5,:Cs6,:B5,:A5,:B5]
b2[19]=[1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,2.0]
a2[20]=[:r]
b2[20]=[1.0]
a2[21]=[:B5,:B5,:B5,:B5,:B5,:Cs6,:B5,:A5,:B5]
b2[21]=[1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,2.0]
a2[22]=[:r]
b2[22]=[1.0]
a2[23]=[:Cs6,:Cs6,:Cs6,:Cs6,:Cs6,:Cs6,:Cs6,:Cs6,:Cs6,:Cs6,:Cs6,:Cs6,:D6,:B5,:A5,:D6,:E6,:Fs6,:E6,:D6,:Cs6,:B5,:A5,:Cs6]
b2[23]=[2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,1.0,2.0,3.0,3.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,2.0,1.0]
a2[24]=[:D6,:Cs6,:B5,:Bf5]
b2[24]=[1.0,2.0,1.0,2.0]
a2[25]=[:B5]
b2[25]=[3.0]
c2=[288,276,284,264,288,284,276,160,288,160,288,130,288,280,272,192,450,288,900,288,160,288,130,288,264,132]
####################
a3=[]
b3=[]
a3[0]=[:r,:r,:r,:r,:r,:r]
b3[0]=[3.0,3.0,3.0,3.0,3.0,3.0]
a3[1]=[:r,:r]
b3[1]=[3.0,3.0]
a3[2]=[:r,:r,:r,:r,:r,:r]
b3[2]=[3.0,3.0,3.0,3.0,3.0,3.0]
a3[3]=[:r,:r]
b3[3]=[3.0,3.0]
a3[4]=[:F4,:G4,:A4,:G4,:F4,:E4,:D4,:C4,:D4,:E4,:E4,:F4,:D4,:C4,:F4,:G4,:A4,:G4,:F4,:E4,:D4,:C4,:E4,:F4,:E4,:D4,:Cs4,:D4,:D4,:F4,:G4,:A4,:G4,:F4,:E4,:D4,:C4,:D4,:E4,:E4,:F4,:D4,:C4,:F4,:G4,:A4,:G4,:F4,:E4,:D4,:C4,:E4,:F4,:E4]
b3[4]=[2.0,1.0,2.0,1.0,1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,3.0,3.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,2.0,1.0,1.0,2.0,1.0,2.0,2.0,4.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,3.0,3.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,2.0,1.0,1.0,2.0]
a3[5]=[:D4,:Cs4,:D4]
b3[5]=[1.0,2.0,2.0]
a3[6]=[:D4]
b3[6]=[3.0]
a3[7]=[:r]
b3[7]=[1.0]
a3[8]=[:D4,:D4,:D4,:D4,:D4,:E4,:D4,:C4,:D4]
b3[8]=[1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,2.0]
a3[9]=[:r]
b3[9]=[1.0]
a3[10]=[:D4,:D4,:D4,:D4,:D4,:E4,:D4,:C4,:D4]
b3[10]=[1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,2.0]
a3[11]=[:r]
b3[11]=[1.0]
a3[12]=[:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:A4,:F4,:E4,:F4,:G4,:A4,:G4,:F4,:E4,:D4,:C4,:E4]
b3[12]=[2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,1.0,2.0,3.0,3.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,2.0,1.0]
a3[13]=[:F4,:E4,:D4]
b3[13]=[1.0,2.0,1.0]
a3[14]=[:Cs4,:D4]
b3[14]=[2.0,5.0]
a3[15]=[:r]
b3[15]=[1.0]
a3[16]=[:r]
b3[16]=[3.0]
a3[17]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:F4,:G4,:A4,:G4,:F4,:E4,:D4,:C4,:D4,:E4,:E4,:F4,:D4,:C4,:F4,:G4,:A4,:G4,:F4,:E4,:D4,:C4,:E4,:F4,:E4,:D4,:Cs4,:D4,:D4]
b3[17]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,3.0,3.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,2.0,1.0,1.0,2.0,1.0,2.0,2.0,4.0]
a3[18]=[:r]
b3[18]=[3.0]
a3[19]=[:D4,:D4,:D4,:D4,:D4,:E4,:D4,:C4,:D4]
b3[19]=[1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,2.0]
a3[20]=[:r]
b3[20]=[1.0]
a3[21]=[:D4,:D4,:D4,:D4,:D4,:E4,:D4,:C4,:D4]
b3[21]=[1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,2.0]
a3[22]=[:r]
b3[22]=[1.0]
a3[23]=[:E4,:E4,:E4,:E4,:E4,:E4,:E4,:E4,:E4,:E4,:E4,:E4,:F4,:D4,:C4,:F4,:G4,:A4,:G4,:F4,:E4,:D4,:C4,:E4]
b3[23]=[2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,1.0,2.0,3.0,3.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,2.0,1.0]
a3[24]=[:F4,:E4,:D4,:Cs4]
b3[24]=[1.0,2.0,1.0,2.0]
a3[25]=[:D4]
b3[25]=[3.0]
c3=[288,276,284,264,288,284,276,160,288,160,288,130,288,280,272,192,450,288,900,288,160,288,130,288,264,132]
####################
a4=[]
b4=[]
a4[0]=[:r,:r,:r,:r,:r,:r]
b4[0]=[3.0,3.0,3.0,3.0,3.0,3.0]
a4[1]=[:r,:r]
b4[1]=[3.0,3.0]
a4[2]=[:r,:r,:r,:r,:r,:r]
b4[2]=[3.0,3.0,3.0,3.0,3.0,3.0]
a4[3]=[:r,:r]
b4[3]=[3.0,3.0]
a4[4]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:A5,:Fs5,:A5,:Fs5,:A5,:Fs5,:Fs5,:D5,:E5,:E5,:Fs5,:D5,:Cs5,:A5,:Fs5,:A5,:Fs5,:A5,:Fs5,:Fs5,:E5,:Fs5,:E5]
b4[4]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,2.0,2.0,2.0,2.0,3.0,3.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,2.0,2.0,1.0]
a4[5]=[:D5,:Cs5,:B4]
b4[5]=[1.0,2.0,2.0]
a4[6]=[:B4]
b4[6]=[3.0]
a4[7]=[:r]
b4[7]=[1.0]
a4[8]=[:Ef5,:Ef5,:Ef5,:Ef5,:Ef5,:E5,:D5,:Cs5,:B4]
b4[8]=[1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,2.0]
a4[9]=[:r]
b4[9]=[1.0]
a4[10]=[:Fs5,:Fs5,:Fs5,:Fs5,:Fs5,:A5,:Fs5,:Fs5,:Fs5]
b4[10]=[1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,2.0]
a4[11]=[:r]
b4[11]=[1.0]
a4[12]=[:A5,:A5,:A5,:A5,:A5,:A5,:A5,:A5,:A5,:A5,:A5,:A5,:Fs5,:Fs5,:Fs5,:A5,:Fs5,:A5,:Fs5,:A5,:Fs5,:Fs5,:E5]
b4[12]=[2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,1.0,2.0,3.0,3.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,2.0]
a4[13]=[:Fs5,:E5,:D5]
b4[13]=[2.0,1.0,1.0]
a4[14]=[:Cs5,:B4]
b4[14]=[2.0,5.0]
a4[15]=[:r]
b4[15]=[1.0]
a4[16]=[:r]
b4[16]=[3.0]
a4[17]=[: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]
b4[17]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0]
a4[18]=[:r]
b4[18]=[3.0]
a4[19]=[:r,:r,:r,:r,:r]
b4[19]=[3.0,3.0,3.0,3.0,2.0]
a4[20]=[:r]
b4[20]=[1.0]
a4[21]=[:r,:r,:r,:r,:r]
b4[21]=[3.0,3.0,3.0,3.0,2.0]
a4[22]=[:r]
b4[22]=[1.0]
a4[23]=[:A5,:A5,:A5,:A5,:A5,:A5,:A5,:A5,:A5,:A5,:A5,:A5,:Fs5,:Fs5,:Fs5,:A5,:Fs5,:A5,:Fs5,:A5,:Fs5,:Fs5,:E5]
b4[23]=[2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,1.0,2.0,3.0,3.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,2.0]
a4[24]=[:Fs5,:E5,:D5,:Cs5]
b4[24]=[2.0,1.0,1.0,2.0]
a4[25]=[:B4]
b4[25]=[3.0]
c4=[288,276,284,264,288,284,276,160,288,160,288,130,288,280,272,192,450,288,900,288,160,288,130,288,264,132]
####################
a5=[]
b5=[]
a5[0]=[:r,:r,:r,:r,:r,:r]
b5[0]=[3.0,3.0,3.0,3.0,3.0,3.0]
a5[1]=[:r,:r]
b5[1]=[3.0,3.0]
a5[2]=[:r,:r,:r,:r,:r,:r]
b5[2]=[3.0,3.0,3.0,3.0,3.0,3.0]
a5[3]=[:r,:r]
b5[3]=[3.0,3.0]
a5[4]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:G4,:E4,:G4,:E4,:G4,:E4,:E4,:C4,:D4,:D4,:E4,:C4,:B3,:G4,:E4,:G4,:E4,:G4,:E4,:E4,:D4,:E4,:D4]
b5[4]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,2.0,2.0,2.0,2.0,3.0,3.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,2.0,2.0,1.0]
a5[5]=[:C4,:B3,:A3]
b5[5]=[1.0,2.0,2.0]
a5[6]=[:A3]
b5[6]=[3.0]
a5[7]=[:r]
b5[7]=[1.0]
a5[8]=[:Cs4,:Cs4,:Cs4,:Cs4,:Cs4,:D4,:C4,:B3,:A3]
b5[8]=[1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,2.0]
a5[9]=[:r]
b5[9]=[1.0]
a5[10]=[:E4,:E4,:E4,:E4,:E4,:G4,:E4,:E4,:E4]
b5[10]=[1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,2.0]
a5[11]=[:r]
b5[11]=[1.0]
a5[12]=[:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:E4,:E4,:E4,:G4,:E4,:G4,:E4,:G4,:E4,:E4,:D4]
b5[12]=[2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,1.0,2.0,3.0,3.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,2.0]
a5[13]=[:E4,:D4,:C4]
b5[13]=[2.0,1.0,1.0]
a5[14]=[:B3,:A3]
b5[14]=[2.0,5.0]
a5[15]=[:r]
b5[15]=[1.0]
a5[16]=[:r]
b5[16]=[3.0]
a5[17]=[: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[17]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0]
a5[18]=[:r]
b5[18]=[3.0]
a5[19]=[:r,:r,:r,:r,:r]
b5[19]=[3.0,3.0,3.0,3.0,2.0]
a5[20]=[:r]
b5[20]=[1.0]
a5[21]=[:r,:r,:r,:r,:r]
b5[21]=[3.0,3.0,3.0,3.0,2.0]
a5[22]=[:r]
b5[22]=[1.0]
a5[23]=[:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:E4,:E4,:E4,:G4,:E4,:G4,:E4,:G4,:E4,:E4,:D4]
b5[23]=[2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,1.0,2.0,3.0,3.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,2.0]
a5[24]=[:E4,:D4,:C4,:B3]
b5[24]=[2.0,1.0,1.0,2.0]
a5[25]=[:A3]
b5[25]=[3.0]
c5=[288,276,284,264,288,284,276,160,288,160,288,130,288,280,272,192,450,288,900,288,160,288,130,288,264,132]
####################
a6=[]
b6=[]
a6[0]=[:r,:r,:r,:r,:r,:r]
b6[0]=[3.0,3.0,3.0,3.0,3.0,3.0]
a6[1]=[:r,:r]
b6[1]=[3.0,3.0]
a6[2]=[:r,:r,:r,:r,:r,:r]
b6[2]=[3.0,3.0,3.0,3.0,3.0,3.0]
a6[3]=[:r,:r]
b6[3]=[3.0,3.0]
a6[4]=[: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]
b6[4]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0]
a6[5]=[:r,:r]
b6[5]=[3.0,2.0]
a6[6]=[:r,:r]
b6[6]=[1.0,2.0]
a6[7]=[:r]
b6[7]=[1.0]
a6[8]=[:r,:r,:r,:r,:r]
b6[8]=[3.0,3.0,3.0,3.0,2.0]
a6[9]=[:r]
b6[9]=[1.0]
a6[10]=[:r,:r,:r,:r,:r]
b6[10]=[3.0,3.0,3.0,3.0,2.0]
a6[11]=[:r]
b6[11]=[1.0]
a6[12]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r]
b6[12]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0]
a6[13]=[:r,:r]
b6[13]=[3.0,1.0]
a6[14]=[:r,:r,:r]
b6[14]=[2.0,3.0,2.0]
a6[15]=[:r]
b6[15]=[1.0]
a6[16]=[:r]
b6[16]=[3.0]
a6[17]=[:F4,:G4,:A4,:C5,:Bf4,:A4,:A4,:G4,:F4,:F4,:E4,:D4,:E4,:F4,:G4,:G4,:F4,:E4,:F4,:E4,:D4,:E4,:F4,:G4,:A4,:C5,:Bf4,:A4,:A4,:G4,:A4,:G4,:F4,:E4,:F4,:E4,:D4,:Cs4,:D4,:D4,:F4,:G4,:A4,:C5,:Bf4,:A4,:A4,:G4,:F4,:F4,:E4,:D4,:E4,:F4,:G4,:G4,:F4,:E4,:F4,:E4,:D4,:E4,:F4,:G4,:A4,:C5,:Bf4,:A4,:A4,:G4,:A4,:G4,:F4,:E4,:F4,:E4,:D4,:Cs4,:D4,:D4]
b6[17]=[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,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,1.0,1.0,2.0,1.0,2.0,2.0,4.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,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,1.0,1.0,2.0,1.0,2.0,2.0,4.0]
a6[18]=[:r]
b6[18]=[3.0]
a6[19]=[[:A4,:D5],[:A4,:D5],[:A4,:D5],[:A4,:D5],[:A4,:D5],[:C5,:E5],[:D5,:A4],[:A4,:C5],[:A4,:D5]]
b6[19]=[1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,2.0]
a6[20]=[:r]
b6[20]=[1.0]
a6[21]=[:r,:r,:r,:r,:r]
b6[21]=[3.0,3.0,3.0,3.0,2.0]
a6[22]=[:r]
b6[22]=[1.0]
a6[23]=[[:C4,:E4,:G4],[:C4,:E4,:G4],[:C4,:E4,:G4],[:C4,:E4,:G4],[:C4,:E4,:G4],[:C4,:E4,:G4],[:C4,:E4,:G4],[:C4,:E4,:G4],[:C4,:E4,:G4],[:C4,:E4,:G4],[:C4,:E4,:G4],[:C4,:E4,:G4],:A3,:C4,:F4,:A4,[:A3,:D4,:F4],[:A3,:C4,:E4],:F4,:G4,:A4,:C5,:Bf4,:A4,:A4,:G4,:A4,:G4,:F4,:E4]
b6[23]=[2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,1.0,0.5,0.5,0.5,0.5,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]
a6[24]=[:F4,:E4,:D4,:Cs4]
b6[24]=[1.0,2.0,1.0,2.0]
a6[25]=[:D4]
b6[25]=[2.0]
c6=[288,276,284,264,288,284,276,160,288,160,288,130,288,280,272,192,450,288,900,288,160,288,130,288,264,132]
####################
a7=[]
b7=[]
a7[0]=[:r,:r,:r,:r,:r,:r]
b7[0]=[3.0,3.0,3.0,3.0,3.0,3.0]
a7[1]=[:r,:r]
b7[1]=[3.0,3.0]
a7[2]=[:r,:r,:r,:r,:r,:r]
b7[2]=[3.0,3.0,3.0,3.0,3.0,3.0]
a7[3]=[:r,:r]
b7[3]=[3.0,3.0]
a7[4]=[: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]
b7[4]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0]
a7[5]=[:r,:r]
b7[5]=[3.0,2.0]
a7[6]=[:r,:r]
b7[6]=[1.0,2.0]
a7[7]=[:r]
b7[7]=[1.0]
a7[8]=[:r,:r,:r,:r,:r]
b7[8]=[3.0,3.0,3.0,3.0,2.0]
a7[9]=[:r]
b7[9]=[1.0]
a7[10]=[:r,:r,:r,:r,:r]
b7[10]=[3.0,3.0,3.0,3.0,2.0]
a7[11]=[:r]
b7[11]=[1.0]
a7[12]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r]
b7[12]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0]
a7[13]=[:r,:r]
b7[13]=[3.0,1.0]
a7[14]=[:r,:r,:r]
b7[14]=[2.0,3.0,2.0]
a7[15]=[:r]
b7[15]=[1.0]
a7[16]=[:r]
b7[16]=[3.0]
a7[17]=[[:F3,:C4],[:F3,:C4],[:F3,:A3],[:F3,:C4],[:F3,:A3],[:D3,:A3],[:C3,:C4],[:C3,:C4],[:D3,:A3],[:D3,:A3],[:A2,:A3],[:F3,:C4],[:F3,:C4],[:F3,:A3],[:F3,:C4],[:C3,:C4],[:C3,:C4],[:F3,:C4],[:C3,:C4],[:D3,:A3],[:A2,:A3],[:D3,:A3],[:D3,:A3],[:F3,:C4],[:F3,:C4],[:F3,:A3],[:F3,:C4],[:F3,:A3],[:D3,:A3],[:C3,:C4],[:C3,:C4],[:D3,:A3],[:D3,:A3],[:A2,:A3],[:F3,:C4],[:F3,:C4],[:F3,:A3],[:F3,:C4],[:C3,:C4],[:C3,:C4],[:F3,:C4],[:C3,:C4],[:D3,:A3],[:A2,:A3],[:D3,:A3],:A3]
b7[17]=[3.0,2.0,1.0,3.0,2.0,1.0,2.0,2.0,2.0,3.0,3.0,3.0,2.0,1.0,3.0,2.0,1.0,2.0,1.0,1.0,2.0,2.0,4.0,3.0,2.0,1.0,3.0,2.0,1.0,2.0,2.0,2.0,3.0,3.0,3.0,2.0,1.0,3.0,2.0,1.0,2.0,1.0,1.0,2.0,2.0,4.0]
a7[18]=[:r]
b7[18]=[3.0]
a7[19]=[[:D3,:Fs3],[:D3,:Fs3],[:D3,:Fs3],[:D3,:Fs3],[:D3,:Fs3],[:C3,:G3],[:D3,:F3],[:A2,:E3],:D3]
b7[19]=[1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,2.0]
a7[20]=[:r]
b7[20]=[1.0]
a7[21]=[:r,:r,:r,:r,:r]
b7[21]=[3.0,3.0,3.0,3.0,2.0]
a7[22]=[:r]
b7[22]=[1.0]
a7[23]=[:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:F3,:D3,:D3,:A2,[:F3,:C4],[:F3,:C4],[:F3,:A3],[:F3,:C4],[:C3,:C4],[:C3,:C4]]
b7[23]=[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,3.0,3.0,3.0,2.0,1.0,3.0,2.0,1.0]
a7[24]=[[:F3,:C4],[:C3,:C4],[:D3,:A3],[:A2,:A3]]
b7[24]=[2.0,1.0,1.0,2.0]
a7[25]=[[:D3,:A3]]
b7[25]=[2.0]
c7=[288,276,284,264,288,284,276,160,288,160,288,130,288,280,272,192,450,288,900,288,160,288,130,288,264,132]
####################
a8=[]
b8=[]
a8[0]=[:r,:A4,:r,:C5,:r,:A4,:r,:F4,:r,:G4,:r,:G4,:r,:G4,:r,:G4,:r,:r,:A4]
b8[0]=[0.25,2.75,0.25,2.75,0.25,2.75,0.25,2.75,0.0625,0.9375,0.0625,0.9375,0.0625,0.9375,0.0625,0.9375,0.125,0.0625,1.8125]
a8[1]=[:r,:F4,:r,:E4]
b8[1]=[0.25,2.75,0.25,2.75]
a8[2]=[:r,:A4,:r,:C5,:r,:A4,:r,:r,:G4,:r,:G4,:r,:r,:A4,:r,:G4,:r,:F4,:r,:r,:E4]
b8[2]=[0.25,2.75,0.25,2.75,0.25,2.75,0.125,0.0625,1.8125,0.0625,0.9375,0.125,0.0625,1.8125,0.0625,0.9375,0.0625,0.9375,0.125,0.0625,1.8125]
a8[3]=[:r,:r,:D4,:r,:D4]
b8[3]=[0.125,0.0625,1.8125,0.125,3.875]
a8[4]=[:r,:A4,:r,:C5,:r,:A4,:r,:F4,:r,:r,:G4,:r,:G4,:r,:r,:A4,:r,:F4,:r,:E4,:r,:A4,:r,:C5,:r,:A4,:r,:r,:G4,:r,:G4,:r,:r,:A4,:r,:G4,:r,:F4,:r,:r,:E4,:r,:r,:D4,:r,:D4,:r,:A4,:r,:C5,:r,:A4,:r,:F4,:r,:r,:G4,:r,:G4,:r,:r,:A4,:r,:F4,:r,:E4,:r,:A4,:r,:C5,:r,:A4,:r,:r,:G4,:r,:G4,:r,:r,:A4,:r,:G4]
b8[4]=[0.25,2.75,0.25,2.75,0.25,2.75,0.25,2.75,0.125,0.0625,1.8125,0.0625,1.9375,0.125,0.0625,1.8125,0.25,2.75,0.25,2.75,0.25,2.75,0.25,2.75,0.25,2.75,0.125,0.0625,1.8125,0.0625,0.9375,0.125,0.0625,1.8125,0.0625,0.9375,0.0625,0.9375,0.125,0.0625,1.8125,0.125,0.0625,1.8125,0.125,3.875,0.25,2.75,0.25,2.75,0.25,2.75,0.25,2.75,0.125,0.0625,1.8125,0.0625,1.9375,0.125,0.0625,1.8125,0.25,2.75,0.25,2.75,0.25,2.75,0.25,2.75,0.25,2.75,0.125,0.0625,1.8125,0.0625,0.9375,0.125,0.0625,1.8125,0.0625,0.9375]
a8[5]=[:r,:F4,:r,:r,:E4,:r,:r,:D4]
b8[5]=[0.0625,0.9375,0.125,0.0625,1.8125,0.125,0.0625,1.8125]
a8[6]=[:r,:D4]
b8[6]=[0.125,2.875]
a8[7]=[:r]
b8[7]=[1.0]
a8[8]=[[:D3,:Fs3,:A3,:D4],[:D3,:Fs3,:A3,:D4],[:C3,:G3,:C4,:E4],:D4,[:A2,:E3,:A3,:C4],[:D3,:A3,:D4]]
b8[8]=[3.0,3.0,2.0,2.0,2.0,2.0]
a8[9]=[:r]
b8[9]=[1.0]
a8[10]=[[:D3,:Fs3,:A3,:D4],[:D3,:Fs3,:A3,:D4],[:C3,:G3,:C4,:E4],:D4,[:A2,:E3,:A3,:C4],[:D3,:A3,:D4]]
b8[10]=[3.0,3.0,2.0,2.0,2.0,2.0]
a8[11]=[:r]
b8[11]=[1.0]
a8[12]=[[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:F3,:A3,:F4,:A4],[:D3,:A3,:D4,:F4],[:A2,:A3,:C4,:E4],[:F3,:C4,:F4,:A4],[:F3,:C4,:A4,:C5],[:F3,:C4,:F4,:A4],[:C3,:C4,:E4,:G4]]
b8[12]=[2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,1.0,2.0,3.0,3.0,3.0,3.0,3.0,3.0]
a8[13]=[[:F3,:C4,:F4,:A4],[:C3,:C4,:E4,:G4],[:D3,:A3,:D4,:F4]]
b8[13]=[2.0,1.0,1.0]
a8[14]=[[:A2,:A3,:Cs4,:E4],:D4]
b8[14]=[2.0,5.0]
a8[15]=[:r]
b8[15]=[1.0]
a8[16]=[:r]
b8[16]=[3.0]
a8[17]=[: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]
b8[17]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0]
a8[18]=[:r]
b8[18]=[3.0]
a8[19]=[:r,:r,:r,:r,:r]
b8[19]=[3.0,3.0,3.0,3.0,2.0]
a8[20]=[:r]
b8[20]=[1.0]
a8[21]=[[:D3,:Fs3,:A3,:D4],[:D3,:Fs3,:A3,:D4],[:C3,:G3,:C4,:E4],:D4,[:A2,:E3,:A3,:C4],[:D3,:A3,:D4]]
b8[21]=[3.0,3.0,2.0,2.0,2.0,2.0]
a8[22]=[:r]
b8[22]=[1.0]
a8[23]=[[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],[:C3,:C4,:E4,:G4],:F3,:A3,:C4,:D4,:F4,:A4,[:D3,:A3,:D4,:F4],[:A2,:A3,:C4,:E4],[:F3,:C4,:F4,:A4],[:F3,:C4,:A4,:C5],[:F3,:C4,:F4,:A4],[:C3,:C4,:E4,:G4]]
b8[23]=[2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,1.0,1.0,1.0,0.33333334,0.33333334,0.33333334,0.33333334,0.33333334,0.33333334,3.0,3.0,3.0,3.0,3.0,3.0]
a8[24]=[[:F3,:C4,:F4,:A4],[:C3,:C4,:E4,:G4],[:D3,:A3,:D4,:F4],[:A2,:A3,:Cs4,:E4]]
b8[24]=[2.0,1.0,1.0,2.0]
a8[25]=[[:D3,:A3,:D4]]
b8[25]=[3.0]
c8=[288,276,284,264,288,284,276,160,288,160,288,130,288,280,272,192,450,288,900,288,160,288,130,288,264,132]
####################
a9=[]
b9=[]
a9[0]=[:r,:r,:F4,:r,:r,:A4,:r,:r,:F4,:r,:r,:C4,[:C3,:C4],[:C3,:C4],[:C3,:C4],:r,:r,:D4]
b9[0]=[0.125,0.0625,2.8125,0.125,0.0625,2.8125,0.125,0.0625,2.8125,0.125,0.0625,2.8125,1.0,1.0,1.0,1.0,0.125,1.875]
a9[1]=[:r,:r,:D4,:r,:r,:C4]
b9[1]=[0.125,0.0625,2.8125,0.125,0.0625,2.8125]
a9[2]=[:r,:r,:F4,:r,:r,:A4,:r,:r,:F4,:r,:E4,:r,:r,:F4,:r,:r,:r,:Cs4]
b9[2]=[0.125,0.0625,2.8125,0.125,0.0625,2.8125,0.125,0.0625,2.8125,0.125,1.875,1.0,0.125,1.875,1.0,1.0,0.125,1.875]
a9[3]=[:r,:A3,:r,:A3]
b9[3]=[0.0625,1.9375,0.0625,3.9375]
a9[4]=[:r,:r,:F4,:r,:r,:A4,:r,:r,:F4,:r,:r,:C4,:r,:E4,:r,:r,:r,:D4,:r,:r,:D4,:r,:r,:C4,:r,:r,:F4,:r,:r,:A4,:r,:r,:F4,:r,:E4,:r,:r,:F4,:r,:r,:r,:Cs4,:r,:A3,:r,:A3,:r,:r,:F4,:r,:r,:A4,:r,:r,:F4,:r,:r,:C4,:r,:E4,:r,:r,:r,:D4,:r,:r,:D4,:r,:r,:C4,:r,:r,:F4,:r,:r,:A4,:r,:r,:F4,:r,:E4,:r,:r,:F4,:r]
b9[4]=[0.125,0.0625,2.8125,0.125,0.0625,2.8125,0.125,0.0625,2.8125,0.125,0.0625,2.8125,0.125,1.875,1.0,1.0,0.125,1.875,0.125,0.0625,2.8125,0.125,0.0625,2.8125,0.125,0.0625,2.8125,0.125,0.0625,2.8125,0.125,0.0625,2.8125,0.125,1.875,1.0,0.125,1.875,1.0,1.0,0.125,1.875,0.0625,1.9375,0.0625,3.9375,0.125,0.0625,2.8125,0.125,0.0625,2.8125,0.125,0.0625,2.8125,0.125,0.0625,2.8125,0.125,1.875,1.0,1.0,0.125,1.875,0.125,0.0625,2.8125,0.125,0.0625,2.8125,0.125,0.0625,2.8125,0.125,0.0625,2.8125,0.125,0.0625,2.8125,0.125,1.875,1.0,0.125,1.875,1.0]
a9[5]=[:r,:r,:Cs4,:r,:A3]
b9[5]=[1.0,0.125,1.875,0.0625,1.9375]
a9[6]=[:r,:A3]
b9[6]=[0.0625,2.9375]
a9[7]=[:r]
b9[7]=[1.0]
a9[8]=[:r,:r,:r,:r,:r]
b9[8]=[3.0,3.0,3.0,3.0,2.0]
a9[9]=[:r]
b9[9]=[1.0]
a9[10]=[:r,:r,:r,:r,:r]
b9[10]=[3.0,3.0,3.0,3.0,2.0]
a9[11]=[:r]
b9[11]=[1.0]
a9[12]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r]
b9[12]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0]
a9[13]=[:r,:r]
b9[13]=[3.0,1.0]
a9[14]=[:r,:r,:r]
b9[14]=[2.0,3.0,2.0]
a9[15]=[:r]
b9[15]=[1.0]
a9[16]=[:r]
b9[16]=[3.0]
a9[17]=[: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[17]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0]
a9[18]=[:r]
b9[18]=[3.0]
a9[19]=[:r,:r,:r,:r,:r]
b9[19]=[3.0,3.0,3.0,3.0,2.0]
a9[20]=[:r]
b9[20]=[1.0]
a9[21]=[:r,:r,:r,:r,:r]
b9[21]=[3.0,3.0,3.0,3.0,2.0]
a9[22]=[:r]
b9[22]=[1.0]
a9[23]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r]
b9[23]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0]
a9[24]=[:r,:r]
b9[24]=[3.0,3.0]
a9[25]=[:r]
b9[25]=[3.0]
c9=[288,276,284,264,288,284,276,160,288,160,288,130,288,280,272,192,450,288,900,288,160,288,130,288,264,132]
####################
a10=[]
b10=[]
a10[0]=[:r,:C4,:r,:C4,:r,:C4,:r,:A3,:r,:r,:r,:A3]
b10[0]=[0.0625,2.9375,0.0625,2.9375,0.0625,2.9375,0.0625,2.9375,3.0,1.0,0.0625,1.9375]
a10[1]=[:r,:A3,:r,:A3]
b10[1]=[0.0625,2.9375,0.0625,2.9375]
a10[2]=[:r,:C4,:r,:C4,:r,:C4,:r,:C4,:r,:r,:C4,:r,:r,:r,:A3]
b10[2]=[0.0625,2.9375,0.0625,2.9375,0.0625,2.9375,0.0625,1.9375,1.0,0.0625,1.9375,1.0,1.0,0.0625,1.9375]
a10[3]=[:D3,:D3]
b10[3]=[2.0,4.0]
a10[4]=[:r,:C4,:r,:C4,:r,:C4,:r,:A3,:r,:C4,:r,:r,:r,:A3,:r,:A3,:r,:A3,:r,:C4,:r,:C4,:r,:C4,:r,:C4,:r,:r,:C4,:r,:r,:r,:A3,:D3,:D3,:r,:C4,:r,:C4,:r,:C4,:r,:A3,:r,:C4,:r,:r,:r,:A3,:r,:A3,:r,:A3,:r,:C4,:r,:C4,:r,:C4,:r,:C4,:r,:r,:C4,:r]
b10[4]=[0.0625,2.9375,0.0625,2.9375,0.0625,2.9375,0.0625,2.9375,0.0625,1.9375,1.0,1.0,0.0625,1.9375,0.0625,2.9375,0.0625,2.9375,0.0625,2.9375,0.0625,2.9375,0.0625,2.9375,0.0625,1.9375,1.0,0.0625,1.9375,1.0,1.0,0.0625,1.9375,2.0,4.0,0.0625,2.9375,0.0625,2.9375,0.0625,2.9375,0.0625,2.9375,0.0625,1.9375,1.0,1.0,0.0625,1.9375,0.0625,2.9375,0.0625,2.9375,0.0625,2.9375,0.0625,2.9375,0.0625,2.9375,0.0625,1.9375,1.0,0.0625,1.9375,1.0]
a10[5]=[:r,:r,:A3,:D3]
b10[5]=[1.0,0.0625,1.9375,2.0]
a10[6]=[:D3]
b10[6]=[3.0]
a10[7]=[:r]
b10[7]=[1.0]
a10[8]=[:r,:r,:r,:r,:r]
b10[8]=[3.0,3.0,3.0,3.0,2.0]
a10[9]=[:r]
b10[9]=[1.0]
a10[10]=[:r,:r,:r,:r,:r]
b10[10]=[3.0,3.0,3.0,3.0,2.0]
a10[11]=[:r]
b10[11]=[1.0]
a10[12]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r]
b10[12]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0]
a10[13]=[:r,:r]
b10[13]=[3.0,1.0]
a10[14]=[:r,:r,:r]
b10[14]=[2.0,3.0,2.0]
a10[15]=[:r]
b10[15]=[1.0]
a10[16]=[:r]
b10[16]=[3.0]
a10[17]=[: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]
b10[17]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0]
a10[18]=[:r]
b10[18]=[3.0]
a10[19]=[:r,:r,:r,:r,:r]
b10[19]=[3.0,3.0,3.0,3.0,2.0]
a10[20]=[:r]
b10[20]=[1.0]
a10[21]=[:r,:r,:r,:r,:r]
b10[21]=[3.0,3.0,3.0,3.0,2.0]
a10[22]=[:r]
b10[22]=[1.0]
a10[23]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r]
b10[23]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0]
a10[24]=[:r,:r]
b10[24]=[3.0,3.0]
a10[25]=[:r]
b10[25]=[3.0]
c10=[288,276,284,264,288,284,276,160,288,160,288,130,288,280,272,192,450,288,900,288,160,288,130,288,264,132]
####################
a11=[]
b11=[]
a11[0]=[:F3,:F3,:F3,:F3,:r,[:C3,:C4],:D3]
b11[0]=[3.0,3.0,3.0,3.0,3.0,1.0,2.0]
a11[1]=[:D3,:A2]
b11[1]=[3.0,3.0]
a11[2]=[:F3,:F3,:F3,:C3,[:C3,:C4],:F3,[:C3,:C4],[:D3,:A3],:A2]
b11[2]=[3.0,3.0,3.0,2.0,1.0,2.0,1.0,1.0,2.0]
a11[3]=[:r,:r]
b11[3]=[3.0,3.0]
a11[4]=[:F3,:F3,:F3,:F3,:C3,[:C3,:C4],:D3,:D3,:A2,:F3,:F3,:F3,:C3,[:C3,:C4],:F3,[:C3,:C4],[:D3,:A3],:A2,:r,:r,:F3,:F3,:F3,:F3,:C3,[:C3,:C4],:D3,:D3,:A2,:F3,:F3,:F3,:C3,[:C3,:C4],:F3,[:C3,:C4]]
b11[4]=[3.0,3.0,3.0,3.0,2.0,2.0,2.0,3.0,3.0,3.0,3.0,3.0,2.0,1.0,2.0,1.0,1.0,2.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,2.0,1.0,2.0,1.0]
a11[5]=[[:D3,:A3],:A2,:r]
b11[5]=[1.0,2.0,2.0]
a11[6]=[:r,:r]
b11[6]=[1.0,2.0]
a11[7]=[:r]
b11[7]=[1.0]
a11[8]=[:r,:r,:r,:r,:r]
b11[8]=[3.0,3.0,3.0,3.0,2.0]
a11[9]=[:r]
b11[9]=[1.0]
a11[10]=[:r,:r,:r,:r,:r]
b11[10]=[3.0,3.0,3.0,3.0,10]
a11[11]=[:r]
b11[11]=[1.0]
a11[12]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r]
b11[12]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0]
a11[13]=[:r,:r]
b11[13]=[3.0,3.0]
a11[14]=[:r,:r]
b11[14]=[3.0,2.0]
a11[15]=[:r]
b11[15]=[1.0]
a11[16]=[:r]
b11[16]=[3.0]
a11[17]=[: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]
b11[17]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0]
a11[18]=[:r]
b11[18]=[3.0]
a11[19]=[:r,:r,:r,:r,:r]
b11[19]=[3.0,3.0,3.0,3.0,2.0]
a11[20]=[:r]
b11[20]=[1.0]
a11[21]=[:r,:r,:r,:r,:r]
b11[21]=[3.0,3.0,3.0,3.0,2.0]
a11[22]=[:r]
b11[22]=[1.0]
a11[23]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r]
b11[23]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0]
a11[24]=[:r,:r]
b11[24]=[3.0,3.0]
a11[25]=[:r]
b11[25]=[3.0]
c11=[288,276,284,264,288,284,276,160,288,160,288,130,288,288,280,272,192,450,288,900,288,160,288,130,288,264,132]
####################
a12=[]
b12=[]
a12[0]=[:r,:r,:r,:r,:r,:r]
b12[0]=[3.0,3.0,3.0,3.0,3.0,3.0]
a12[1]=[:r,:r]
b12[1]=[3.0,3.0]
a12[2]=[:r,:r,:r,:r,:r,:r]
b12[2]=[3.0,3.0,3.0,3.0,3.0,3.0]
a12[3]=[:r,:r]
b12[3]=[3.0,3.0]
a12[4]=[:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:r,:F3,:F3,:F3,:F3,:F3,:F3,:F3,:F3,:C3,:C3,:r,:F3,:D3,:D3,:A2,:F3,:F3,:F3,:F3,:F3,:F3,:C3,:C3,:F3,:C3]
b12[4]=[3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,3.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.5,0.5,1.0,1.0,3.0,3.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,2.0]
a12[5]=[:D3,:A2,:D3]
b12[5]=[1.0,2.0,2.0]
a12[6]=[:D3]
b12[6]=[3.0]
a12[7]=[:r]
b12[7]=[1.0]
a12[8]=[:D3,:D3,:D3,:D3,:D3,:C3,:D3,:r,:A2,:D3]
b12[8]=[1.0,1.0,1.0,2.0,1.0,2.0,1.5,0.5,2.0,2.0]
a12[9]=[:r]
b12[9]=[1.0]
a12[10]=[:r,:r,:r,:r,:r]
b12[10]=[3.0,3.0,3.0,3.0,2.0]
a12[11]=[:r]
b12[11]=[1.0]
a12[12]=[:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:F2,:D2,:D2,:A2,:F2,:F2,:F2,:C3,:C3]
b12[12]=[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,3.0,3.0,3.0,3.0,3.0,2.0,1.0]
a12[13]=[:F2,:C3,:D3]
b12[13]=[2.0,1.0,1.0]
a12[14]=[:A2,:D2]
b12[14]=[2.0,5.0]
a12[15]=[:r]
b12[15]=[1.0]
a12[16]=[:r]
b12[16]=[3.0]
a12[17]=[:F3,:F3,:F3,:F3,:F3,:F3,:F3,:F3,:C3,:C3,:r,:F3,:D3,:D3,:A2,:F3,:F3,:F3,:F3,:F3,:F3,:C3,:C3,:F3,:C3,:D3,:A2,:D3,:F3,:F3,:F3,:F3,:F3,:F3,:F3,:F3,:C3,:C3,:r,:F3,:D3,:D3,:A2,:F3,:F3,:F3,:F3,:F3,:F3,:C3,:C3,:F3,:C3,:D3,:A2,:D3]
b12[17]=[2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.5,0.5,1.0,1.0,3.0,3.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,2.0,1.0,2.0,6.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.5,0.5,1.0,1.0,3.0,3.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0,1.0,2.0,1.0,2.0,6.0]
a12[18]=[:r]
b12[18]=[3.0]
a12[19]=[:D3,:D3,:D3,:D3,:D3,:C3,:D3,:A2,:D3]
b12[19]=[1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,2.0]
a12[20]=[:r]
b12[20]=[1.0]
a12[21]=[:D3,:D3,:D3,:D3,:D3,:C3,:D3,:A2,:D3]
b12[21]=[1.0,1.0,1.0,2.0,1.0,2.0,2.0,2.0,2.0]
a12[22]=[:r]
b12[22]=[1.0]
a12[23]=[:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:F2,:D2,:D2,:A2,:F2,:F2,:F2,:C3,:C3]
b12[23]=[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,3.0,3.0,3.0,3.0,3.0,2.0,1.0]
a12[24]=[:F2,:C3,:D3,:A2]
b12[24]=[2.0,1.0,1.0,2.0]
a12[25]=[:D2]
b12[25]=[3.0]
c12=[288,276,284,264,288,284,276,160,288,160,288,130,288,280,272,192,450,288,900,288,160,288,130,288,264,132]
#playing starts here
with_fx :reverb , room: 0.8,mix: 0.6 do #apply some reverb
with_fx :level,amp: 1 do |vol| #play twice. First time a bit quieter
2.times do
#recorder
use_synth :sine
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]*s,release: b1[i][j]*r,amp: v1,pan: p1
sleep b1[i][j]
end
end
end
#alto crumhorn (baritone sax)
use_synth :tri
in_thread do
for i in st..a2.length-1
use_bpm c2[i]
for j in 0..a2[i].length-1
play note(a2[i][j])-21,sustain: b2[i][j]*s,release: b2[i][j]*r,amp: v2,pan: p2
sleep b2[i][j]
end
end
end
#oboe
use_synth :saw
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]*s,release: b3[i][j]*r,amp: v3,pan: p3
sleep b3[i][j]
end
end
end
#tenor crumhorn (baritone sax)
use_synth :tri
in_thread do
for i in st..a4.length-1
use_bpm c4[i]
for j in 0..a4[i].length-1
play note(a4[i][j])-21,sustain: b4[i][j]*s,release: b4[i][j]*r,amp: v4,pan: p4
sleep b4[i][j]
end
end
end
#English Horn
use_synth :saw
in_thread do
for i in st..a5.length-1
use_bpm c5[i]
for j in 0..a5[i].length-1
play note(a5[i][j])-7,sustain: b5[i][j]*s,release: b5[i][j]*r,amp: v5,pan: p5
sleep b5[i][j]
end
end
end
#harpsichord
use_synth :piano
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],amp: v6,pan: p6
sleep b6[i][j]
end
end
end
in_thread do
for i in st..a7.length-1
use_bpm c7[i]
for j in 0..a7[i].length-1
play a7[i][j],sustain: b7[i][j],amp: v7,pan: p7
sleep b7[i][j]
end
end
end
#lute section
with_fx :compressor,amp: 3 do#apply compressor to give more constant volume
use_synth :pluck
in_thread do
for i in st..a8.length-1
use_bpm c8[i]
for j in 0..a8[i].length-1
play a8[i][j],sustain: b8[i][j],amp: vl
sleep b8[i][j]
end
end
end
in_thread do
for i in st..a9.length-1
use_bpm c9[i]
for j in 0..a9[i].length-1
play a9[i][j],sustain: b9[i][j],amp: vl
sleep b9[i][j]
end
end
end
in_thread do
for i in st..a10.length-1
use_bpm c10[i]
for j in 0..a10[i].length-1
play a10[i][j],sustain: b10[i][j],amp: vl
sleep b10[i][j]
end
end
end
in_thread do
for i in st..a11.length-1
use_bpm c11[i]
for j in 0..a11[i].length-1
play a11[i][j],sustain: b11[i][j],amp: vl
sleep b11[i][j]
end
end
end
end#compress
#end of lute
#viola da gamba (cello)
use_synth :blade
for i in st..a12.length-1
use_bpm c12[i]
for j in 0..a12[i].length-1
play a12[i][j],sustain: b12[i][j]*s,release: b12[i][j]*r,amp: v12
sleep b12[i][j]
end
end
use_bpm 288
sleep 3
control vol ,amp: 1.5
end
end
end #reverb
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment