bpm = 70; % beats per minute

keys1 = [47    44  44  42  47  44  44  44  42  47  44  44  42  47  47  44  44  44  42 ];
dur1  = [1.5/4 1/8 1/4 1/4 1/4 1/8 1/4 1/8 1/4 1/4 1/4 1/4 1/4 1/8 1/8 1/8 1/4 1/8 1/4];  

keys2 = [37 37 37 39 39 39];
dur2  = [1 1.5/4 (1/8+1/2) 1 1.5/4 (1/8+1/2)];

keys3 = [21 28 21 28 21 23 26 23 33 23];
dur3  = [1/2 1/2 1.5/4 1.5/4 1/4 1/2 1/2 1.5/4 1.5/4 1/4];


keys1 = [keys1 45  42  42  42  40 44  40  40  40  38 -1  40 -1  40  40];
dur1  = [dur1 1/4 1/8 1/4 1/8 1/4 1/4 1/8 1/4 1/8 1/4 1/4 1.5/2 1/4 1/8 (1/8+1/2)];

keys2 = [keys2 38 38 38 38 38 38 -1  37 -1  38 38];
dur2  = [dur2 1.5/4 1.5/4 1/4 1.5/4 1.5/4 1/4 1/4 1.5/2 1/4 1/8 (1/8+1/2)];

keys3 = [keys3 23 33 23 22 32 22 21 32 21 22 22];
dur3  = [dur3  1.5/4 1.5/4 1/4 1.5/4 1.5/4 1/4 1/4 1/2 1/4 1.5/2 1/4];


keys1 = [keys1 keys1 -1  40 40  -1];
dur1  = [dur1  dur1  1/4 1  1/2 1/4];

keys2 = [keys2 keys2 -1  37 37  -1 ];
dur2  = [dur2  dur2  1/4 1  1/2 1/4];

keys3 = [keys3 keys3 21  32  28  21    21 ];
dur3  = [dur3  dur3 1/4 1/2 1/4 1.5/2 1/4];

dur1=dur1*(60/bpm);
dur2=dur2*(60/bpm);
dur3=dur3*(60/bpm);

notes1=[];
for i=1:length(keys1);
    notes1=[notes1 note(keys1(i),dur1(i),piano)];
end
notes2=[];
for i=1:length(keys2);
    notes2=[notes2 note(keys2(i),dur2(i),piano)];
end
notes3=[];
for i=1:length(keys3);
    notes3=[notes3 note(keys3(i),dur3(i),piano)];
end

x=length(notes1);
y=length(notes2);
z=length(notes3);
if x<y
    notes2=notes2(1:x);
else
    notes1=notes1(1:y);
end
if x<z
    notes3=notes3(1:x);
else
    notes1=notes1(1:z);
    notes2=notes2(1:z);
end

song=notes1+notes2+notes3;
soundsc(song,8000)
clear song;clear notes3;clear notes2;clear notes1;clear dur3;
clear keys1;clear keys2;clear keys3; clear dur1;clear dur2;