Pase el agua Anonymous Spanish 15th Century played by Sonic Pi (use run_file "path to filename" to play) Hear it at https://soundcloud.com/user-999157198-370666210/pase-el-agua

paseagua-RF.rb

#paseagua-RF.rb
#Pase el agua, ma Julieta Spanish Anon 15th century
#arranged for Sonic Pi by Robin Newman, May 2019
s=0.85;r=0.1
with_fx :reverb,room: 0.5,amp: 0.8,mix: 0.7 do
use_synth :chiplead

with_fx :level,amp: 0.5 do
a1=[]
b1=[]
a1[0]=[:A4,:C5,:A4,:F4,:G4,:G4,:G4,:G4,:A4,:F4,:E4,:A4,:C5,:A4,:G4,:G4,:A4,:G4,:F4,:E4,:D4,:D4,:D4,:D4,:D4,:D4,:E4,:D4,:Cs4,:D4,:D4,:D4,:D4,:D4,:D4,:E4,:D4,:Cs4,:D4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:A4,:F4,:E4,:A4,:C5,:A4,:G4,:G4,:A4,:G4,:F4,:E4,:D4,:A4,:C5,:A4,:F4,:G4,:G4,:G4,:G4,:A4,:F4,:E4,:A4,:C5,:A4,:G4,:G4,:A4,:G4,:F4,:E4,:D4,:D4,:D4,:D4,:D4,:D4,:E4,:D4,:Cs4,:D4,:D4,:D4,:D4,:D4,:D4,:E4,:D4,:Cs4,:D4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:G4,:A4,:F4,:E4,:A4,:C5,:A4,:G4,:G4,:A4,:G4,:F4,:E4,:D4]
b1[0]=[1.5,1.5,1.5,1.5,0.5,0.5,0.5,0.5,1.0,1.5,1.5,1.5,1.5,1.5,1.0,0.5,1.0,0.5,0.5,1.0,3.0,0.5,0.5,0.5,1.0,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,0.5,1.0,1.0,1.0,1.5,1.0,0.5,1.0,0.5,1.0,0.5,1.0,0.5,0.5,0.5,0.5,0.5,1.0,1.5,1.5,1.5,1.5,1.5,1.0,0.5,1.0,0.5,0.5,1.0,3.0,1.5,1.5,1.5,1.5,0.5,0.5,0.5,0.5,1.0,1.5,1.5,1.5,1.5,1.5,1.0,0.5,1.0,0.5,0.5,1.0,3.0,0.5,0.5,0.5,1.0,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,0.5,1.0,1.0,1.0,1.5,1.0,0.5,1.0,0.5,1.0,0.5,1.0,0.5,0.5,0.5,0.5,0.5,1.0,1.5,1.5,1.5,1.5,1.5,1.0,0.5,1.0,0.5,0.5,1.0,3.0]
c1=[150]
in_thread do
for i in 0..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,pan: -0.8
sleep b1[i][j]
end
end
end

a2=[]
b2=[]
a2[0]=[:F4,:A4,:F4,:C4,:E4,:E4,:E4,:E4,:F4,:D4,:Cs4,:F4,:A4,:F4,:E4,:E4,:F4,:E4,:D4,:Cs4,:D4,:Fs4,:Fs4,:Fs4,:Fs4,:Fs4,:G4,:F4,:E4,:D4,:Fs4,:Fs4,:Fs4,:Fs4,:Fs4,:G4,:F4,:E4,:D4,:E4,:E4,:E4,:E4,:E4,:E4,:E4,:E4,:E4,:E4,:E4,:E4,:F4,:D4,:Cs4,:F4,:A4,:F4,:E4,:E4,:F4,:E4,:D4,:Cs4,:D4,:F4,:A4,:F4,:C4,:E4,:E4,:E4,:E4,:F4,:D4,:Cs4,:F4,:A4,:F4,:E4,:E4,:F4,:E4,:D4,:Cs4,:D4,:Fs4,:Fs4,:Fs4,:Fs4,:Fs4,:G4,:F4,:E4,:D4,:Fs4,:Fs4,:Fs4,:Fs4,:Fs4,:G4,:F4,:E4,:D4,:E4,:E4,:E4,:E4,:E4,:E4,:E4,:E4,:E4,:E4,:E4,:E4,:F4,:D4,:Cs4,:F4,:A4,:F4,:E4,:E4,:F4,:E4,:D4,:Cs4,:D4]
b2[0]=[1.5,1.5,1.5,1.5,0.5,0.5,0.5,0.5,1.0,1.5,1.5,1.5,1.5,1.5,1.0,0.5,1.0,0.5,0.5,1.0,3.0,0.5,0.5,0.5,1.0,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,0.5,1.0,1.0,1.0,1.5,1.0,0.5,1.0,0.5,1.0,0.5,1.0,0.5,0.5,0.5,0.5,0.5,1.0,1.5,1.5,1.5,1.5,1.5,1.0,0.5,1.0,0.5,0.5,1.0,3.0,1.5,1.5,1.5,1.5,0.5,0.5,0.5,0.5,1.0,1.5,1.5,1.5,1.5,1.5,1.0,0.5,1.0,0.5,0.5,1.0,3.0,0.5,0.5,0.5,1.0,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,0.5,1.0,1.0,1.0,1.5,1.0,0.5,1.0,0.5,1.0,0.5,1.0,0.5,0.5,0.5,0.5,0.5,1.0,1.5,1.5,1.5,1.5,1.5,1.0,0.5,1.0,0.5,0.5,1.0,3.0]
c2=[150]
in_thread do
for i in 0..a2.length-1
use_bpm c2[i]
for j in 0..a2[i].length-1
play a2[i][j],sustain: b2[i][j]*s,release: b2[i][j]*r,pan: -0.4
sleep b2[i][j]
end
end
end

a3=[] #transpose -3
b3=[]
a3[0]=[:Ef4,:Ef4,:Ef4,:C4,:Ef4,:Ef4,:Ef4,:Ef4,:C4,:C4,:C4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:C4,:C4,:C4,:C4,:C4,:C4,:C4,:C4,:Ef4,:C4,:C4,:C4,:C4,:C4,:C4,:C4,:C4,:Ef4,:C4,:C4,:C4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:C4,:C4,:C4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:C4,:C4,:C4,:Ef4,:Ef4,:Ef4,:C4,:Ef4,:Ef4,:Ef4,:Ef4,:C4,:C4,:C4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:C4,:C4,:C4,:C4,:C4,:C4,:C4,:C4,:Ef4,:C4,:C4,:C4,:C4,:C4,:C4,:C4,:C4,:Ef4,:C4,:C4,:C4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:C4,:C4,:C4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:Ef4,:C4,:C4,:C4]
b3[0]=[1.5,1.5,1.5,1.5,0.5,0.5,0.5,0.5,1.0,1.5,1.5,1.5,1.5,1.5,1.0,0.5,1.0,0.5,1.0,0.5,3.0,0.5,0.5,0.5,1.0,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,0.5,1.0,1.0,1.0,1.5,1.0,0.5,1.0,0.5,1.0,0.5,1.0,0.5,0.5,0.5,0.5,0.5,1.0,1.5,1.5,1.5,1.5,1.5,1.0,0.5,1.0,0.5,0.5,1.0,3.0,1.5,1.5,1.5,1.5,0.5,0.5,0.5,0.5,1.0,1.5,1.5,1.5,1.5,1.5,1.0,0.5,1.0,0.5,1.0,0.5,3.0,0.5,0.5,0.5,1.0,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,0.5,1.0,1.0,1.0,1.5,1.0,0.5,1.0,0.5,1.0,0.5,1.0,0.5,0.5,0.5,0.5,0.5,1.0,1.5,1.5,1.5,1.5,1.5,1.0,0.5,1.0,0.5,0.5,1.0,3.0]
c3=[150]
in_thread do
for i in 0..a3.length-1
use_bpm c3[i]
for j in 0..a3[i].length-1
play note(a3[i][j])-3,sustain: b3[i][j]*s,release: b3[i][j]*r,pan: 0.4
sleep b3[i][j]
end
end
end

use_synth :dsaw
a4=[]
b4=[]
a4[0]=[:F3,:F3,:F3,:F3,:C3,:C3,:C3,:C3,:F3,:D3,:D3,:A2,:F3,:F3,:F3,:C3,:C3,:F3,:C3,:D3,:A2,:D3,:D3,:D3,:D3,:D3,:D3,:C3,:D3,:A2,:D3,:D3,:D3,:D3,:D3,:D3,:C3,:D3,:A2,:D3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:F3,:D3,:D3,:A2,:F3,:F3,:F3,:C3,:C3,:F3,:C3,:D3,:A2,:D3,:F3,:F3,:F3,:F3,:C3,:C3,:C3,:C3,:F3,:D3,:D3,:A2,:F3,:F3,:F3,:C3,:C3,:F3,:C3,:D3,:A2,:D3,:D3,:D3,:D3,:D3,:D3,:C3,:D3,:A2,:D3,:D3,:D3,:D3,:D3,:D3,:C3,:D3,:A2,:D3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:C3,:F3,:D3,:D3,:A2,:F3,:F3,:F3,:C3,:C3,:F3,:C3,:D3,:A2,:D3]
b4[0]=[1.5,1.5,1.5,1.5,0.5,0.5,0.5,0.5,0.5,0.5,1.5,1.5,1.5,1.5,1.5,1.0,0.5,1.0,0.5,0.5,1.0,3.0,0.5,0.5,0.5,1.0,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,0.5,1.0,1.0,1.0,1.5,1.0,0.5,1.0,0.5,1.0,0.5,1.0,0.5,0.5,0.5,0.5,0.5,0.5,0.5,1.5,1.5,1.5,1.5,1.5,1.0,0.5,1.0,0.5,0.5,1.0,3.0,1.5,1.5,1.5,1.5,0.5,0.5,0.5,0.5,0.5,0.5,1.5,1.5,1.5,1.5,1.5,1.0,0.5,1.0,0.5,0.5,1.0,3.0,0.5,0.5,0.5,1.0,0.5,1.0,1.0,1.0,1.5,0.5,0.5,0.5,1.0,0.5,1.0,1.0,1.0,1.5,1.0,0.5,1.0,0.5,1.0,0.5,1.0,0.5,0.5,0.5,0.5,0.5,0.5,0.5,1.5,1.5,1.5,1.5,1.5,1.0,0.5,1.0,0.5,0.5,1.0,3.0]
c4=[150]
in_thread do
for i in 0..a4.length-1
use_bpm c4[i]
for j in 0..a4[i].length-1
play a4[i][j],sustain: b4[i][j]*s,release: b4[i][j]*r,pan: 0.8
sleep b4[i][j]
end
end
end
end #level

a5=[] #tambourine
b5=[]
a5[0]=[:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:r,:r,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:r,:D3,:r,:D3,:r,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:r,:D3,:r,:D3,:r,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:r,:r,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:r,:r,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:r,:D3,:r,:D3,:r,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:r,:D3,:r,:D3,:r,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3,:D3]
b5[0]=[0.5,0.5,0.5,0.5,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,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.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.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.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.5,0.5,0.5,0.5,0.5,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,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,0.5,0.5,0.5,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,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,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.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.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.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.5,0.5,0.5,0.5,0.5,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,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,0.5,0.5,0.5,0.5,0.5,0.5,0.25,0.25,0.5,1.5]
c5=[150]
in_thread do
for i in 0..a5.length-1
use_bpm c5[i]
for j in 0..a5[i].length-1
sample :drum_cymbal_closed,amp: 1.5,pan: -0.2 if a5[i][j] != :r
#play a5[i][j],sustain: b5[i][j]*0.9,release: b5[i][j]*0.1
sleep b5[i][j]
end
end
end

a6=[] #tablas
b6=[]
a6[0]=[:D3,:r,:r,:D3,:r,:r,:D3,:r,:r,:D3,:r,:D3,:D3,:r,:r,:D3,:r,:r,:D3,:r,:r,:D3,:r,:D3,:D3,:r,:r,:D3,:r,:r,:D3,:r,:r,:D3,:r,:D3,:D3,:r,:r,:D3,:r,:r,:D3,:D3,:D3,:D3,:r,:r,:D3,:r,:D3,:D3,:r,:D3,:D3,:r,:D3,:r,:D3,:r,:D3,:r,:D3,:D3,:r,:D3,:D3,:r,:D3,:D3,:r,:D3,:r,:D3,:r,:D3,:r,:D3,:D3,:r,:r,:D3,:r,:r,:D3,:r,:r,:D3,:r,:D3,:D3,:r,:r,:D3,:r,:r,:D3,:r,:r,:D3,:r,:D3,:D3,:r,:r,:D3,:r,:r,:D3,:r,:r,:D3,:r,:D3,:D3,:r,:r,:D3,:r,:r,:D3,:D3,:D3,:D3,:r,:r,:D3,:r,:r,:D3,:r,:r,:D3,:r,:r,:D3,:r,:D3,:D3,:r,:r,:D3,:r,:r,:D3,:r,:r,:D3,:r,:D3,:D3,:r,:r,:D3,:r,:r,:D3,:r,:r,:D3,:r,:D3,:D3,:r,:r,:D3,:r,:r,:D3,:D3,:D3,:D3,:r,:r,:D3,:r,:D3,:D3,:r,:D3,:D3,:r,:D3,:r,:D3,:r,:D3,:r,:D3,:D3,:r,:D3,:D3,:r,:D3,:D3,:r,:D3,:r,:D3,:r,:D3,:r,:D3,:D3,:r,:r,:D3,:r,:r,:D3,:r,:r,:D3,:r,:D3,:D3,:r,:r,:D3,:r,:r,:D3,:r,:r,:D3,:r,:D3,:D3,:r,:r,:D3,:r,:r,:D3,:r,:r,:D3,:r,:D3,:D3,:r,:r,:D3,:r,:r,:D3,:D3,:D3,:D3]
b6[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,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.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.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.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.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.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.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.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.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.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,1.5]
c6=[150]
in_thread do
for i in 0..a6.length-1
use_bpm c6[i]
for j in 0..a6[i].length-1
sample :drum_snare_soft,amp: 2,pan: 0.2 if a6[i][j] != :r
#play a6[i][j],sustain: b6[i][j]*0.9,release: b6[i][j]*0.1
sleep b6[i][j]
end
end
end

end #reverb