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);

song=makesong(keys1,keys2,keys3,dur1,dur2,dur3,piano);
soundsc(song,8000)
max(song)
wavwrite((song./3),'ipanema')

clear dur3;clear keys1;clear keys2;clear keys3; clear dur1;clear dur2;clear song;