% hObject handle to PLAY (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
Fs1 = 44100; %Set Sampling Frequency
Fr = Fs1; %Set Reconstruction Frequency
Fs = Fs1; % The multiple of the sampling frequency to be used
T = 1/Fs; %Sampling Period
N = 0.2*Fs1; % Number of samples to achieve desired duration
L = 1; % default value for L (L=1 => no duration change)
n = @(L) 1:L*N; %the array, n, takes a-n integer multiplier, L, that can reduce or increase the duration of a note, i.e. 1/2 note, 1/4 note, etc
m = 0; %default input for oct, the octave shift function (using downsampling)
%Generate General Sinusoid
%m is the desired octave, which is transformed into the appropriate multiplier by the oct function
%L is the desired length of the note (in quarter notes)
%fN is the frequncy of the note
note = @(m, L, fN) sin(2*pi*oct(m)*fN*T*n(L)); %standard note at fund. freq.
fA = 440.00; % Master Tuned to A 440
fGS = fA*2^(-1/12);
fG = fGS*2^(-1/12);
fFS = fG*2^(-1/12);
fF = fFS*2^(-1/12);
fE = fF*2^(-1/12);
fDS = fE*2^(-1/12);
fD = fDS*2^(-1/12);
fCS = fD*2^(-1/12);
fC = fCS*2^(-1/12);
fAS = fA*2^(1/12);
fB = fAS*2^(1/12);
namp = 1; % set the amplitude for the natural freq
hamp = 0.8; % set the amplitude for the overtones
%each note passes m and L to the note function above
%two overtones are added to each note
C = @(m, L) namp*note(m, 2.17*L, fC) + hamp*note(m, 2.17*L, 0.5*fC) + hamp*note(m, 2.17*L, 2*fC);
CS = @(m, L) namp*note(m, 2.17*L, fCS) + hamp*note(m, 2.17*L, 0.5*fCS) + hamp*note(m, 2.17*L, 2*fCS);
D = @(m, L) namp*note(m, 2.17*L, fD) + hamp*note(m, 2.17*L, 0.5*fD) + hamp*note(m, 2.17*L, 2*fD);
DS = @(m, L) namp*note(m, 2.17*L, fDS) + hamp*note(m, 2.17*L, 0.5*fDS) + hamp*note(m, 2.17*L, 2*fDS);
E = @(m, L) namp*note(m, 2.17*L, fE) + hamp*note(m, 2.17*L, 0.5*fE) + hamp*note(m, 2.17*L, 2*fE);
F = @(m, L) namp*note(m, 2.17*L, fF) + hamp*note(m, 2.17*L, 0.5*fF) + hamp*note(m, 2.17*L, 2*fF);
FS = @(m, L) namp*note(m, 2.17*L, fFS) + hamp*note(m, 2.17*L, 0.5*fFS) + hamp*note(m, 2.17*L, 2*fFS);
G = @(m, L) namp*note(m, 2.17*L, fG) + hamp*note(m, 2.17*L, 0.5*fG) + hamp*note(m, 2.17*L, 2*fG);
GS = @(m, L) namp*note(m, 2.17*L, fGS) + hamp*note(m, 2.17*L, 0.5*fGS) + hamp*note(m, 2.17*L, 2*fGS);
A = @(m, L) namp*note(m, 2.17*L, fA) + hamp*note(m, 2.17*L, 0.5*fA)+ hamp*note(m, 2.17*L, 2*fA);
AS = @(m, L) namp*note(m, 2.17*L, fAS) + hamp*note(m, 2.17*L, 0.5*fAS) + hamp*note(m, 2.17*L, 2*fAS);
B = @(m, L) namp*note(m, 2.17*L, fB) + hamp*note(m, 2.17*L, 0.5*fB) + hamp*note(m, 2.17*L, 2*fB);
%Define Rests
bk = zeros(1, .05*N); % cut the note
er = zeros(1, .10*N); % eigth rest
qr = zeros(1, .25*N); % quarter rest
hr = zeros(1, .5*N); % half rest
tr = zeros(1, .75*N); % three-quarter rest
wr = zeros(1, N); % whole rest
%Jingle Bells
%note(octave, duration in 1/4 note) example: A=C(1,1) = 1/4 note middle C
track1 = [CS(2,0.25) bk DS(2,0.25) bk E(2,0.75) bk E(2,0.75) bk DS(2,1) bk CS(2,1) bk GS(1,1) bk A(-1,0.5) bk B(-1,0.5) bk E(0,0.5) GS(0,1.5) bk GS(1,0.25) bk A(1,0.25) bk B(1,1) bk B(1,0.5) bk A(1,1) bk GS(1,1) bk E(1,3.5)+GS(1,3.5) bk CS(1,0.5) bk B(0,0.5) bk CS(1,0.5) bk E(1,0.5) bk FS(1,1) bk FS(1,1) bk E(1,0.5) bk B(0,0.5) bk CS(1,0.75) bk FS(0,0.75)+FS(1,0.75) bk GS(0,2)+E(1,2)+GS(1,2) bk CS(1,0.25) bk DS(1,0.25) bk E(1,2.75) bk B(0,1.25)+E(1,1.25)+GS(1,1.25) bk FS(0,4)+DS(1,4)+FS(1,4)];
track2 = [E(0,0.5)+FS(0,0.5) bk FS(1,0.5) bk FS(1,0.5) bk E(1,0.5) bk FS(1,0.75) bk E(1,0.75) bk FS(1,1) bk E(1,1) bk FS(1,1) bk GS(1,1) bk FS(1,1) bk E(1,0.5) bk FS(1,0.5) bk E(1,0.5) bk FS(1,0.75) bk GS(1,0.75) bk FS(1,1) bk E(1,1) bk CS(1,0.5) bk E(0,1)+CS(1,1) E(0,1)+B(0,1)+CS(1,1) bk FS(0,0.5)+B(0,0.5) FS(0,0.5)+B(0,0.5)+FS(1,0.5) bk FS(1,0.5) bk E(1,0.5) bk FS(1,0.75) bk E(1,0.25) GS(0,0.5)+E(1,0.5) bk A(0,1)+B(0,1)+FS(1,1) bk B(0,1)+E(1,1) bk A(0,1)+C(1,1)+FS(1,1) bk B(0,1)+GS(1,1) bk CS(1,2) bk B(0,0.5) bk B(0,2) bk B(-1,2)+E(0,2)+FS(0,2) bk B(-1,2.5)+E(0,2.5)+GS(0,2.5) er];
track3 = [DS(1,0.5) bk E(1,0.5) bk B(1,0.5) bk DS(1,0.5) bk E(1,0.5) bk B(1,0.5) bk DS(1,0.5) bk FS(0,1)+CS(1,1) bk DS(1,0.5) bk E(1,0.5) bk B(1,0.5) bk DS(1,0.5) bk E(1,0.5) bk B(1,0.5) bk FS(0,0.5)+B(0,0.5) FS(0,0.5)+CS(1,0.5) bk E(1,0.5) bk B(1,0.5) bk DS(1,0.5) bk E(1,0.5) bk B(1,0.5) bk DS(1,0.5)];
track4 = [CS(0,1) CS(0,0.5)+DS(1,0.5) bk B(-1,0.5)+E(1,0.5) B(-1,0.5)+B(1,0.5) bk FS(-1,0.5)+CS(0,0.5)+DS(1,0.5) bk GS(-1,0.5)+E(0,0.5)+E(1,0.5) bk B(-1,0.5)+FS(-1,0.5)+B(1,0.5) bk CS(0,1)+GS(0,1) bk CS(0,0.5)+DS(1,0.5) bk GS(-1,0.5)+CS(0,0.5)+E(1,0.5) bk GS(-1,0.5)+CS(0,0.5)+B(1,0.5) bk E(0,0.5)+DS(1,0.5) bk E(0,0.5)+E(1,0.5) bk FS(0,0.5)+B(1,0.5) bk A(-1,1)+CS(0,1)+E(0,1)+GS(0,1) bk CS(0,0.5)+DS(1,0.5) bk CS(0,0.5)+E(1,0.5) bk A(-1,0.5)+CS(0,0.5)+B(1,0.5) A(-1,0.5)+CS(0,0.5)+DS(1,0.5) A(-1,0.5)+CS(0,0.5)+E(1,0.5) bk B(1,0.5) bk A(-1,1.5)+CS(0,1.5)+FS(0,1.5) bk E(0,0.5) bk B(-1,1)+DS(0,1)+FS(0,1) bk B(-1,1) bk DS(0,1) bk CS(0,0.5)+GS(0,0.5) bk CS(0,0.5)+CS(1,0.5) CS(0,0.5)+FS(1,0.5) CS(0,0.5)+F(1,0.5) CS(0,0.5)+CS(1,0.5) CS(0,1)+GS(0,1) bk];
track5 = [CS(0,2)+E(0,2)+GS(0,2) bk CS(0,1)+E(0,1)+CS(1,1) bk CS(0,1)+E(0,1)+CS(1,1) bk E(0,1)+A(0,1)+E(1,1) bk CS(1,0.5) bk E(0,1)+A(0,1)+E(1,1) bk GS(1,1) bk GS(0,1)+B(0,1)+DS(1,1)+FS(1,1) bk E(1,1) bk FS(1,1) bk GS(1,1) bk B(0,0.5)+DS(1,0.5)+FS(1,0.5) GS(0,1)+B(0,1)+DS(1,1)+FS(1,1) bk B(0,0.5) bk GS(0,0.5)+B(0,0.5) E(0,1)+GS(0,1)+B(0,1)+E(1,1) bk FS(0,1)+CS(1,1)+FS(1,1) bk CS(0,0.5)+CS(1,0.5) bk B(-1,0.5) bk CS(0,0.5) bk E(0,1) bk GS(0,1.5) bk E(0,1)+E(1,1) bk DS(0,1)+DS(1,1) bk B(-1,1)+B(0,1) bk GS(-1,1)+GS(0,1) wr wr wr wr CS(1,1) bk CS(1,1) bk E(0,1)+A(0,1)+E(1,1) bk CS(1,0.5) bk E(0,1)+A(0,1)+E(1,1) bk GS(1,1) bk GS(0,1)+B(0,1)+DS(1,1)+FS(1,1) tr er er B(0,1) bk CS(1,1) bk B(0,1)+B(1,1) bk GS(0,1)+B(0,1)+DS(1,1)+GS(1,1) bk FS(1,0.5) bk E(1,1) bk FS(0,1)+B(0,1)+DS(1,1)+FS(1,1) tr er er FS(0,1)+G(0,1)+B(0,1)+FS(1,1) bk E(1,0.5) bk FS(1,0.5) bk E(1,0.5) bk B(0,1)+D(1,1)+FS(1,1) tr er er FS(0,1)+A(0,1)+CS(1,1)+FS(1,1) bk E(1,0.5) bk FS(1,0.5) bk E(1,0.5) bk A(0,1)+CS(1,1)+GS(1,1) bk B(0,0.5) bk CS(0,4.5)+E(0,4.5)+GS(0,4.5)+CS(1,4.5) wr wr wr wr wr wr wr FS(0,1)+FS(1,1) bk];
track6 = [CS(1,0.75)+FS(1,0.75)+B(1,0.75)+CS(2,0.75) bk FS(0,0.75)+FS(1,0.75) bk FS(0,0.5)+FS(1,0.5) bk FS(0,0.75)+A(0,0.75)+CS(1,0.75)+FS(1,0.75) bk E(0,0.75)+A(0,0.75)+CS(1,0.75)+E(1,0.75) bk E(0,0.5)+E(1,0.5) bk FS(0,0.75)+A(0,0.75)+D(1,0.75)+FS(1,0.75) bk A(0,0.75)+A(1,0.75) bk B(0,0.5)+B(1,0.5) bk CS(1,2)+FS(1,2)+A(1,2)+CS(2,2) bk];
track7 = [FS(0,0.75)+A(0,0.75)+CS(1,0.75)+FS(1,0.75) bk A(0,0.75)+A(1,0.75) bk B(0,0.5)+B(1,0.5) bk CS(1,0.75)+E(1,0.75)+A(1,0.75)+CS(2,0.75) bk B(0,0.75)+B(1,0.75) bk A(0,0.5)+A(1,0.5) bk B(0,0.75)+E(1,0.75)+GS(1,0.75)+B(1,0.75) bk A(0,0.75)+A(1,0.75) bk E(0,0.5)+E(1,0.5) bk FS(0,2)+B(0,2)+E(1,2)+FS(1,2) wr tr FS(0,1)+A(0,1)+D(1,1)+FS(1,1) bk E(0,1)+A(0,1)+D(1,1)+E(1,1) bk FS(0,1)+A(0,1)+D(1,1)+FS(1,1) bk A(0,1)+CS(1,1)+E(1,1)+A(1,1) bk FS(0,1)+FS(1,1) bk E(0,1)+GS(0,1)+CS(1,1)+E(1,1) bk CS(0,1)+CS(1,1) bk DS(0,1.5)+FS(0,1.5)+A(0,1.5)+DS(1,1.5) bk GS(0,0.5)+GS(1,0.5) bk GS(0,2)+DS(1,2)+GS(1,2) bk F(0,1.5)+GS(0,1.5)+B(0,1.5)+F(1,1.5) bk CS(1,0.5)+CS(2,0.5) bk CS(1,2)+F(1,2)+CS(2,2) bk];
track8 = [FS(0,0.75)+B(0,0.75)+E(1,0.75)+FS(1,0.75) bk A(0,0.75)+A(1,0.75) bk B(0,0.5)+B(1,0.5) bk CS(1,0.75)+E(1,0.75)+GS(1,0.75)+CS(2,0.75) bk E(1,0.75)+E(2,0.75) bk B(0,0.5)+B(1,0.5) bk CS(1,0.75)+E(1,0.75)+GS(1,0.75)+CS(2,0.75) bk B(0,0.75)+E(1,0.75)+GS(1,0.75)+B(1,0.75) bk A(0,0.5)+A(1,0.5) bk FS(0,1)+GS(0,1)+CS(1,1)+FS(1,1) bk E(0,1)+GS(0,1)+CS(1,1)+E(1,1) bk FS(0,4)+B(0,4)+D(1,4)+FS(1,4) bk GS(0,3.5)+CS(1,3.5)+E(1,3.5)+GS(1,3.5) bk A(0,0.5)+A(1,0.5) bk A(0,4)+D(1,4)+FS(1,4)+A(1,4) bk B(0,3.5)+E(1,3.5)+GS(1,3.5)+B(1,3.5) bk CS(1,0.5)+CS(2,0.5) bk CS(1,4)+FS(1,4)+A(1,4)+CS(2,4) wr wr wr wr wr wr wr];
track9 = [DS(1,0.5) bk CS(0,0.5)+FS(0,0.5)+E(1,0.5) bk CS(0,0.5)+FS(0,0.5)+B(1,0.5) bk E(0,0.5)+DS(1,0.5) bk CS(0,0.5)+FS(0,0.5)+E(1,0.5) CS(0,0.25)+FS(0,0.25)+B(1,0.25) CS(0,0.25)+E(0,0.25)+B(1,0.25) E(0,0.5)+DS(1,0.5) bk FS(0,0.5)+E(1,0.5) FS(0,0.5)+B(1,0.5) bk A(-1,0.5)+C(0,0.5)+E(0,0.5)+DS(1,0.5) A(-1,0.5)+C(0,0.5)+E(0,0.5)+E(1,0.5) bk FS(0,0.5)+B(1,0.5) A(-1,0.5)+CS(0,0.5)+FS(0,0.5)+DS(1,0.5) bk A(-1,0.5)+CS(0,0.5)+GS(0,0.5)+E(1,0.5) GS(0,0.5)+B(1,0.5) GS(0,0.5) bk FS(0,0.5)+DS(1,0.5) FS(-1,0.5)+A(-1,0.5)+FS(0,0.5)+E(1,0.5) bk FS(-1,0.5)+A(-1,0.5)+E(0,0.5)+B(1,0.5) bk FS(0,0.5)+DS(1,0.5) bk FS(-1,0.5)+A(-1,0.5)+E(0,0.5)+E(1,0.5) FS(-1,0.5)+A(-1,0.5)+FS(0,0.5)+B(1,0.5) FS(0,0.25)+DS(1,0.25) GS(0,0.25)+DS(1,0.25) GS(0,0.5)+E(1,0.5) bk FS(0,0.5) FS(-1,0.5)+B(-1,0.5)+FS(0,0.5)+DS(1,0.5) bk FS(-1,0.5)+B(-1,0.5)+E(0,0.5)+E(1,0.5) E(0,0.5)+B(1,0.5) bk FS(-1,0.5)+B(-1,0.5)+CS(0,0.5)+DS(1,0.5) FS(-1,0.5)+B(-1,0.5)+CS(0,0.5)+E(1,0.5) bk B(-1,1)+B(1,1) bk CS(0,1.5)+E(0,1.5)+GS(0,1.5)+CS(1,1.5) bk GS(0,0.5)+GS(1,0.5) bk GS(0,2)+CS(1,2)+E(1,2)+GS(1,2) bk DS(1,0.5) bk E(1,0.5) bk B(1,0.5) bk DS(1,0.5) bk E(1,0.5) bk B(1,0.5) bk DS(1,0.5) bk E(1,0.5) bk B(1,0.5) bk DS(1,0.5) bk E(1,0.5) bk B(1,0.5) bk DS(1,0.5) bk E(1,0.5) bk B(1,0.5) bk];
track10= [FS(0,0.5) bk GS(0,0.75) bk CS(0,0.75) bk CS(0,0.5) bk CS(0,0.75) bk E(0,0.75) bk FS(0,1) bk E(0,0.25) bk E(0,0.25) bk GS(-1,0.5)+CS(0,0.5)+FS(0,0.5) bk GS(-1,0.5)+CS(0,0.5)+E(0,0.5) bk FS(0,0.5) GS(-1,0.5)+CS(0,0.5)+FS(0,0.5) FS(0,0.25) GS(-1,0.5)+CS(0,0.5)+FS(0,0.5) FS(0,0.75) bk E(0,0.25) bk E(0,0.25) bk A(-1,0.5)+CS(0,0.5)+FS(0,0.5) bk E(-1,0.5)+A(-1,0.5)+E(0,0.5) bk FS(0,0.5) E(-1,0.25)+A(-1,0.25)+FS(0,0.25) E(-1,0.25)+A(-1,0.25)+GS(0,0.25) GS(0,0.25) E(-1,0.25)+A(-1,0.25)+GS(0,0.25) E(-1,0.25)+A(-1,0.25)+FS(0,0.25) FS(0,0.5) bk E(0,0.25) bk E(0,0.25) bk FS(-1,0.5)+A(-1,0.5)+FS(0,0.5) bk CS(-1,0.5)+FS(-1,0.5)+E(0,0.5) bk FS(0,0.5) CS(-1,0.25)+FS(-1,0.25)+FS(0,0.25) CS(-1,0.25)+FS(-1,0.25)+GS(0,0.25) GS(0,0.25) CS(-1,0.25)+FS(-1,0.25)+GS(0,0.25) CS(-1,0.25)+FS(-1,0.25)+CS(0,0.25) CS(0,0.75) bk FS(-1,0.5)+B(-1,0.5) bk FS(-1,0.5)+B(-1,0.5) bk FS(-1,0.5)+B(-1,0.5) bk CS(0,0.5) bk FS(-1,0.5)+B(-1,0.5)+E(0,0.5) bk FS(0,0.25) FS(-1,0.25)+B(-1,0.25)+FS(0,0.25) FS(-1,0.25)+B(-1,0.25)+DS(0,0.25)+GS(0,0.25) DS(0,0.75)+GS(0,0.75) bk GS(-1,0.5)+CS(0,0.5) bk GS(-1,0.5)+CS(0,0.5) bk GS(-1,0.5)+CS(0,0.5) bk E(0,0.5) GS(-1,0.5)+CS(0,0.5)+E(0,0.5) GS(-1,0.5)+CS(0,0.5)+FS(0,0.5) bk A(-1,1)+CS(0,1)+E(0,1)+GS(0,1) bk CS(0,0.5) bk E(0,0.5) bk E(-1,0.5)+A(-1,0.5)+CS(0,0.5) CS(0,0.5) bk E(-1,0.5)+A(-1,0.5) E(-1,0.5)+A(-1,0.5)+FS(0,0.5) bk A(-1,1)+CS(0,1)+FS(0,1) bk FS(0,0.5) bk E(0,0.5) bk B(-1,1)+DS(0,1)+FS(0,1) bk GS(0,0.5) DS(-1,0.5)+FS(-1,0.5)+GS(0,0.5) bk DS(-1,0.5)+FS(-1,0.5)+GS(-1,0.5)+B(-1,0.5)+DS(0,0.5) GS(-1,0.5)+B(-1,0.5)+DS(0,0.5) bk CS(0,0.5) bk CS(0,0.5) bk B(-1,1)+CS(0,1)+E(0,1)+FS(0,1) bk B(-1,2)+CS(0,2)+E(0,2)+GS(0,2)];
track11= [A(-3,0.75)+A(-2,0.75) bk A(-3,0.75)+A(-2,0.75) bk A(-3,0.5)+A(-2,0.5) bk CS(0,1)+E(0,1)+CS(1,1) bk CS(0,1)+E(0,1)+CS(1,1) bk E(0,1)+CS(1,1)+E(1,1) bk CS(0,0.5)+CS(1,0.5) bk E(0,1)+CS(1,1)+E(1,1) bk GS(0,1)+CS(1,1)+GS(1,1) bk FS(0,1.5)+B(0,1.5)+DS(1,1.5)+FS(1,1.5) bk E(0,1)+GS(0,1)+E(1,1) bk FS(0,1)+B(0,1)+FS(1,1) bk GS(0,1)+B(0,1)+DS(1,1)+GS(1,1) bk FS(0,1.5)+B(0,1.5)+DS(1,1.5)+FS(1,1.5) bk B(-1,1.5)+DS(0,1.5)+FS(0,1.5)+B(0,1.5) bk CS(0,1)+DS(0,1)+FS(0,1)+CS(1,1) bk CS(-2,0.75)+CS(-1,0.75) bk CS(-2,0.75)+CS(-1,0.75) bk B(0,0.5)+B(1,0.5) bk B(0,0.5)+B(1,0.5) bk CS(1,0.5)+CS(2,0.5) bk CS(1,1)+CS(2,1) bk CS(-2,0.75)+CS(-1,0.75) bk CS(-2,0.75)+CS(-1,0.75) bk B(0,0.5)+B(1,0.5) bk B(0,0.5)+B(1,0.5) bk CS(1,0.5)+CS(2,0.5) bk GS(0,1)+GS(1,1) bk A(-3,0.75)+A(-2,0.75) bk A(-2,0.75) bk A(-2,0.5) bk CS(0,1)+E(0,1)+CS(1,1) bk CS(0,1)+E(0,1)+CS(1,1) bk E(0,1)+CS(1,1)+E(1,1) bk CS(0,0.5)+CS(1,0.5) bk E(0,1)+CS(1,1)+E(1,1) bk GS(0,1)+CS(1,1)+GS(1,1) bk FS(0,1.5)+B(0,1.5)+DS(1,1.5)+FS(1,1.5) bk B(-1,1)+GS(0,1)+B(0,1) bk CS(0,1)+GS(0,1)+CS(1,1) bk B(0,1)+DS(1,1)+B(1,1) bk GS(0,1)+DS(1,1)+GS(1,1) bk FS(0,0.5)+FS(1,0.5) bk E(0,1)+CS(1,1)+E(1,1) bk FS(0,1)+CS(1,1)+FS(1,1) bk B(-2,0.5) bk FS(0,1)+G(0,1)+B(0,1)+FS(1,1) bk E(0,0.5)+E(1,0.5) bk FS(0,0.5)+FS(1,0.5) bk E(0,0.5)+E(1,0.5) bk FS(0,0.75)+B(0,0.75)+D(1,0.75)+FS(1,0.75) bk G(-2,0.5) bk FS(0,1)+A(0,1)+CS(1,1)+FS(1,1) bk E(0,0.5)+E(1,0.5) bk FS(0,0.5)+FS(1,0.5) bk E(0,0.5)+E(1,0.5) FS(0,0.75)+A(0,0.75)+CS(1,0.75)+FS(1,0.75) bk E(0,0.75)+A(0,0.75)+CS(1,0.75)+E(1,0.75) bk GS(0,3.5)+CS(1,3.5)+E(1,3.5)+GS(1,3.5) bk CS(-2,0.5)+CS(-1,0.5) wr FS(0,1)+FS(1,1) bk];
track12= [FS(0,0.75)+B(0,0.75)+E(1,0.75)+FS(1,0.75) bk A(0,0.75)+A(1,0.75) bk B(0,0.5)+B(1,0.5) bk CS(1,0.75)+E(1,0.75)+GS(1,0.75)+CS(2,0.75) bk E(1,0.75)+E(2,0.75) bk B(0,0.5)+B(1,0.5) bk CS(1,0.75)+E(1,0.75)+GS(1,0.75)+CS(2,0.75) bk B(0,0.75)+E(1,0.75)+GS(1,0.75)+B(1,0.75) bk A(0,0.5)+A(1,0.5) bk FS(0,1)+GS(0,1)+CS(1,1)+FS(1,1) bk E(0,1)+GS(0,1)+CS(1,1)+E(1,1) bk FS(0,2)+B(0,2)+D(1,2)+FS(1,2) FS(0,0.5)+B(0,0.5)+D(1,0.5)+FS(1,0.5)+B(1,0.5) FS(0,0.5)+B(0,0.5)+D(1,0.5)+FS(1,0.5)+B(1,0.5) FS(0,0.5)+B(0,0.5)+D(1,0.5)+FS(1,0.5)+E(2,0.5) FS(0,0.5)+B(0,0.5)+D(1,0.5)+FS(1,0.5)+E(2,0.5) bk GS(0,2)+CS(1,2)+E(1,2)+GS(1,2) GS(0,0.5)+CS(1,0.5)+E(1,0.5)+GS(1,0.5)+CS(2,0.5) GS(0,0.5)+CS(1,0.5)+E(1,0.5)+GS(1,0.5)+CS(2,0.5) GS(0,0.5)+CS(1,0.5)+E(1,0.5)+GS(1,0.5)+E(2,0.5) GS(0,0.5)+CS(1,0.5)+E(1,0.5)+GS(1,0.5)+E(2,0.5) bk A(0,2)+D(1,2)+FS(1,2)+A(1,2) A(0,0.5)+D(1,0.5)+FS(1,0.5)+A(1,0.5)+D(1,0.5) A(0,0.5)+D(1,0.5)+FS(1,0.5)+A(1,0.5)+D(1,0.5) A(0,0.5)+D(1,0.5)+FS(1,0.5)+A(1,0.5)+FS(2,0.5) A(0,0.5)+D(1,0.5)+FS(1,0.5)+A(1,0.5)+FS(2,0.5) bk E(0,0.5)+E(1,0.5) bk GS(0,3.5)+B(0,3.5)+E(1,3.5)+GS(1,3.5) bk];
track13= [FS(0,0.5)+FS(1,0.5) bk FS(0,0.5)+A(0,0.5)+CS(1,0.5)+FS(1,0.5) bk GS(0,1)+B(1,1)+DS(1,1)+GS(1,1) bk FS(0,0.25)+FS(1,0.25) bk FS(0,0.25)+FS(1,0.25) bk FS(0,1)+B(0,1)+DS(1,1)+FS(1,1) bk E(0,0.5)+E(1,0.5) bk E(0,2.25)+GS(0,2.25)+CS(1,2.25)+E(1,2.25) bk E(0,0.5)+E(1,0.5) bk FS(0,1.5)+GS(0,1.5)+CS(1,1.5)+FS(1,1.5) bk B(0,0.5)+B(1,0.5) bk B(0,1.5)+E(1,1.5)+A(1,1.5)+B(1,1.5) bk CS(1,1.5)+DS(1,1.5)+FS(1,1.5)+CS(2,1.5) bk GS(0,2.5)+CS(1,2.5)+E(1,2.5)+GS(1,2.5) bk E(0,0.5) bk FS(0,0.5) bk GS(0,1) bk G(1,0.25) bk A(1,0.25) bk D(1,1.5)+G(1,1.5)+B(1,1.5)+D(2,1.5) bk E(1,1.5)+A(1,1.5)+CS(2,1.5)+E(2,1.5) bk D(1,0.5) bk FS(1,0.5)+B(1,0.5)+D(2,0.5) bk CS(1,0.5) bk FS(1,0.5)+B(1,0.5)+CS(2,0.5) bk B(0,0.5) bk D(1,0.5)+FS(1,0.5)+B(1,0.5) bk A(0,2)+D(1,2)+FS(1,2)+A(1,2) bk A(0,0.25)+A(1,0.25) bk A(0,0.25)+A(1,0.25) bk A(0,1)+D(1,1)+G(1,1)+A(1,1) bk G(0,0.25)+G(1,0.25) bk G(0,0.25)+G(1,0.25) bk G(0,1.5)+A(0,1.5)+D(1,1.5)+G(1,1.5) bk FS(0,2)+A(0,2)+B(0,2)+D(1,2)+FS(1,2) bk CS(0,0.5) bk D(0,0.5) bk A(0,0.5) bk FS(0,1) bk G(-2,0.5) bk];
track14= [G(-2,0.5)+E(1,0.5) bk G(-1,0.5)+B(-1,0.5)+E(1,0.5) bk G(-2,0.5)+D(1,0.5) bk G(-1,0.5)+B(-1,0.5)+G(0,0.5)+B(0,0.5)+E(1,0.5) G(-2,0.25)+G(0,0.25)+B(0,0.25)+E(1,0.25) bk G(-2,0.25)+D(1,0.25) G(-2,0.5)+D(1,0.5) G(-2,0.5)+A(0,0.5)+D(1,0.5)+E(1,0.5) D(-1,0.5)+A(0,0.5)+D(1,0.5)+E(1,0.5) D(-1,0.5)+D(1,0.5) bk D(-1,0.5)+D(1,0.5)+A(2,0.5) bk FS(-1,0.5)+A(-1,0.5)+E(1,0.5) D(-1,0.5)+E(1,0.5)+G(2,0.5) bk FS(-1,0.5)+A(-1,0.5)+FS(1,0.5) bk D(-1,0.5)+FS(1,0.5)+FS(2,0.5) bk FS(-1,0.5)+A(-1,0.5)+E(1,0.5) A(-2,0.5)+E(1,0.5)+E(2,0.5) A(-2,0.5)+E(1,0.5) bk A(-2,0.5)+E(1,0.5) bk E(-1,0.5)+A(-1,0.5)+D(1,0.5) bk A(-2,0.5)+A(0,0.5)+CS(1,0.5)+E(1,0.5) E(-1,0.5)+A(-1,0.5)+A(0,0.5)+CS(1,0.5)+E(1,0.5) bk A(-2,0.5)+D(1,0.5) E(-1,0.5)+A(-1,0.5)+D(1,0.5) B(-2,1)+D(0,1)+FS(0,1)+B(0,1) bk FS(-1,0.5)+B(-1,0.5)+D(2,0.5) B(-2,0.5)+D(1,0.5) bk A(-2,1)+E(0,1)+A(0,1)+E(1,1) E(-1,0.5)+A(-1,0.5)+E(0,0.5)+A(0,0.5)+E(1,0.5) A(-2,0.5)+E(0,0.5)+A(0,0.5)+E(1,0.5) G(-2,0.5) G(-2,0.5)+E(1,0.5) bk G(-2,0.5)+E(1,0.5) bk G(-1,0.5)+B(-1,0.5)+D(1,0.5) bk G(-2,0.5)+G(0,0.5)+B(0,0.5)+E(1,0.5) G(-1,0.25)+B(-1,0.25)+G(0,0.25)+B(0,0.25)+E(1,0.25) G(-1,0.25)+B(-1,0.25)+D(1,0.25) G(-2,0.5)+D(1,0.5) bk G(-1,0.5)+B(-1,0.5)+A(0,0.5)+D(1,0.5)+E(1,0.5) A(0,0.5)+D(1,0.5)+E(1,0.5) bk D(1,1) bk FS(-1,0.5)+A(-1,0.5)+A(0,0.5)+D(1,0.5)+E(1,0.5) FS(-2,0.5)+A(0,0.5)+D(1,0.5)+E(1,0.5) bk FS(-1,0.5)+A(-1,0.5)+D(1,0.5)+E(1,0.5)+A(1,0.5) bk FS(-2,0.5)+G(1,0.5) bk FS(-1,0.5)+A(-1,0.5)+G(0,0.5)+B(0,0.5)+FS(1,0.5) E(-2,1.5)+G(0,1.5)+B(0,1.5)+E(1,1.5) E(-1,0.5)+G(-1,0.5)+G(0,0.5)+B(0,0.5)+E(1,0.5) E(-2,0.5)+G(0,0.5)+B(0,0.5)+E(1,0.5) E(-1,0.5)+G(-1,0.5)+G(0,0.5)+B(0,0.5)+E(1,0.5) E(-2,0.5)+G(0,0.5)+B(0,0.5)+E(1,0.5) bk E(-1,0.5)+G(-1,0.5)+D(0,0.5)+D(1,0.5) bk A(-2,1)+E(0,1)+A(0,1)+CS(1,1)+E(1,1) bk E(-1,0.5)+A(-1,0.5)+D(0,0.5)+D(1,0.5) bk E(-1,0.5)+A(-1,0.5)+FS(0,0.5)+B(0,0.5)+D(1,0.5)+FS(1,0.5) B(-2,1)+FS(0,1)+B(0,1)+D(1,1)+FS(1,1) DS(-1,1)+FS(-1,1)+FS(0,1)+B(0,1)+D(1,1)+FS(1,1) bk];
track15= [B(-1,0.25) bk D(0,0.25) bk FS(0,0.25) B(0,0.25) bk D(1,0.25) bk FS(1,0.25) bk B(0,0.25)+B(1,0.25) bk D(1,0.25) bk FS(1,0.25) bk B(1,0.25) bk D(2,0.25) bk FS(2,0.25) bk B(1,1)+D(2,1)+B(2,1) bk FS(2,1) bk B(1,1)+D(2,1)+E(2,1) D(0,1)+D(1,1)+B(1,1)+D(2,1)+E(2,1)];
track16= [B(0,0.75)+E(1,0.75)+G(1,0.75)+B(1,0.75) bk E(0,0.25)+E(1,0.25) E(0,0.5)+E(1,0.5)+B(1,0.5) bk E(0,0.5)+E(1,0.5) bk E(0,0.5)+G(0,0.5)+B(0,0.5)+E(1,0.5)+B(1,0.5) E(0,0.25)+G(0,0.25)+B(0,0.25)+E(1,0.25) bk D(0,0.25)+G(0,0.25)+B(0,0.25)+D(1,0.25) D(0,0.5)+G(0,0.5)+B(0,0.5)+D(1,0.5)+B(1,0.5) bk D(0,0.5)+D(1,0.5)+A(1,0.5) bk E(0,0.75)+G(0,0.75)+C(1,0.75)+E(1,0.75) bk G(0,0.25)+G(1,0.25) G(0,0.5)+G(1,0.5)+C(2,0.5) bk A(0,0.5)+A(1,0.5) bk B(0,0.5)+E(1,0.5)+G(1,0.5)+B(1,0.5) C(0,0.5)+E(0,0.5)+B(0,0.5)+E(1,0.5)+G(1,0.5)+B(1,0.5) bk G(1,0.5) C(0,0.5)+E(0,0.5)+G(1,0.5) bk D(0,0.75)+G(0,0.75)+B(0,0.75)+D(1,0.75) bk G(0,0.25)+G(1,0.25) G(0,0.5)+G(1,0.5)+D(2,0.5) bk A(0,0.5)+A(1,0.5) bk B(0,0.5)+D(1,0.5)+G(1,0.5)+B(1,0.5)+D(2,0.5) B(0,0.25)+D(1,0.25)+G(1,0.25)+B(1,0.25) bk A(0,0.25)+D(1,0.25)+G(1,0.25)+A(1,0.25) A(0,0.5)+D(1,0.5)+G(1,0.5)+A(1,0.5)+D(2,0.5) bk G(0,0.5)+G(1,0.5)+C(2,0.5) bk A(0,0.75)+B(0,0.75)+D(1,0.75)+A(1,0.75) bk G(0,0.25)+G(1,0.25) G(0,0.5)+G(1,0.5)+B(1,0.5) bk D(0,0.5)+D(1,0.5) E(0,0.5)+FS(0,0.5)+B(0,0.5)+E(1,0.5)+B(1,0.5) E(0,0.5)+FS(0,0.5)+B(0,0.5)+E(1,0.5)+FS(1,0.5) bk D(0,0.5)+FS(0,0.5)+B(0,0.5)+D(1,0.5)+G(1,0.5) D(0,0.5)+FS(0,0.5)+B(0,0.5)+D(1,0.5)+A(1,0.5) bk E(0,1)+A(0,1)+C(1,1)+E(1,1) A(-1,0.5)+C(0,0.5)+A(1,0.5) E(-1,0.5)+A(1,0.5) E(0,0.25)+G(1,0.25) C(0,0.25)+G(1,0.25) B(-1,0.25)+G(1,0.25) A(-1,0.25)+G(1,0.25) E(-1,0.25)+A(1,0.25) C(-1,0.25)+A(1,0.25) A(-2,0.5)+A(1,0.5) bk FS(0,1)+B(0,1)+D(1,1)+FS(1,1) B(-1,0.5)+D(0,0.5)+B(1,0.5) FS(-1,0.5)+B(1,0.5) FS(0,0.25)+A(1,0.25) E(0,0.25)+A(1,0.25) D(0,0.25)+A(1,0.25) B(-1,0.25)+A(1,0.25) FS(-1,0.25)+B(1,0.25) D(-1,0.25)+B(1,0.25) bk B(-2,0.5)+G(0,0.5)+G(1,0.5) bk G(0,1)+C(1,1)+E(1,1)+G(1,1) C(0,0.5)+E(0,0.5)+C(2,0.5) G(-1,0.5)+C(2,0.5) G(0,0.25)+C(2,0.25) FS(0,0.25)+C(2,0.25) E(0,0.25)+C(2,0.25) C(0,0.25)+C(2,0.25) G(-1,0.25)+C(2,0.25) E(-1,0.25)+C(2,0.25) C(-1,0.5)+C(2,0.5) D(-1,1)+A(0,1)+D(1,1)+FS(1,1)+A(1,1) D(-1,1)+D(2,1) D(-1,1)+FS(-1,1)+D(2,1) D(-1,0.5)+FS(-1,0.5)+A(-1,0.5)+D(2,0.5) D(-1,0.5)+FS(-1,0.5)+A(-1,0.5)+B(0,0.5)+B(1,0.5) bk D(-1,4.5)+A(-1,4.5)+D(0,4.5)+B(0,4.5)+D(1,4.5)+FS(1,4.5)+B(1,4.5)];
track17= [E(-2,0.25)+B(0,0.25)+D(1,0.25)+FS(1,0.25)+B(1,0.25) E(-1,0.25)+B(0,0.25)+D(1,0.25)+FS(1,0.25)+B(1,0.25) E(-2,0.25)+B(0,0.25)+D(1,0.25)+FS(1,0.25)+B(1,0.25) E(-1,0.25)+B(0,0.25)+D(1,0.25)+FS(1,0.25)+B(1,0.25) E(-2,0.25)+B(0,0.25)+D(1,0.25)+FS(1,0.25)+B(1,0.25) E(-1,0.25)+B(0,0.25)+D(1,0.25)+FS(1,0.25)+B(1,0.25) E(-2,0.25)+B(0,0.25)+D(1,0.25)+FS(1,0.25)+B(1,0.25) E(-1,0.25)+B(0,0.25)+D(1,0.25)+FS(1,0.25)+B(1,0.25) E(-2,0.25)+B(0,0.25)+D(1,0.25)+FS(1,0.25)+B(1,0.25) E(-1,0.25)+B(0,0.25)+D(1,0.25)+FS(1,0.25)+B(1,0.25) E(-2,0.25)+B(0,0.25)+D(1,0.25)+FS(1,0.25)+B(1,0.25) E(-1,0.25)+B(0,0.25)+D(1,0.25)+FS(1,0.25)+B(1,0.25) E(-2,0.25)+B(0,0.25)+D(1,0.25)+FS(1,0.25)+B(1,0.25) E(-1,0.25)+B(0,0.25)+D(1,0.25)+FS(1,0.25)+B(1,0.25) E(-2,0.25)+B(0,0.25)+D(1,0.25)+FS(1,0.25)+B(1,0.25) E(-1,0.25)+B(0,0.25)+D(1,0.25)+FS(1,0.25)+B(1,0.25) bk E(-2,0.25) bk E(-1,0.25) bk E(-2,0.25) bk E(-1,0.25) bk E(-2,0.25)+FS(0,0.25)+FS(1,0.25) E(-1,0.25)+FS(0,0.25)+FS(1,0.25) E(-2,0.25)+FS(0,0.25)+FS(1,0.25) E(-1,0.25)+FS(0,0.25)+FS(1,0.25) bk E(-2,0.25)+CS(1,0.25)+CS(2,0.25) E(-1,0.25)+CS(1,0.25)+CS(2,0.25) E(-2,0.25)+CS(1,0.25)+CS(2,0.25) E(-1,0.25)+CS(1,0.25)+CS(2,0.25) bk E(-2,0.25)+B(0,0.25)+B(1,0.25) E(-1,0.25)+B(0,0.25)+B(1,0.25) E(-2,0.25)+B(0,0.25)+B(1,0.25) E(-2,0.25)+B(0,0.25)+B(1,0.25) bk];
track18= [CS(1,0.75)+FS(1,0.75)+A(1,0.75)+CS(2,0.75) CS(1,0.25)+FS(1,0.25)+CS(2,0.25) FS(-1,0.5)+A(-1,0.5)+CS(0,0.5)+CS(1,0.5)+FS(1,0.5) FS(-1,0.5)+A(-1,0.5)+CS(0,0.5)+FS(1,0.5) FS(-2,0.5)+CS(1,0.5)+FS(1,0.5) FS(-1,0.25)+CS(1,0.25)+FS(1,0.25) FS(-1,0.25)+CS(1,0.25)+E(1,0.25) E(-2,0.5)+CS(1,0.5)+E(1,0.5) bk E(-1,0.25)+D(1,0.25)+D(2,0.25) E(-1,0.25)+E(1,0.25)+E(2,0.25) bk FS(1,0.75)+FS(2,0.75) FS(1,0.25)+A(1,0.25)+FS(2,0.25) A(-1,0.5)+D(0,0.5)+FS(0,0.5)+FS(1,0.5)+A(1,0.5) A(-1,0.5)+D(0,0.5)+FS(0,0.5)+CS(1,0.5)+B(1,0.5) bk A(-1,1)+D(0,1)+E(0,1)+E(1,1)+A(1,1)+CS(2,1)+E(2,1) A(-1,0.5)+D(0,0.5)+E(0,0.5)+E(1,0.5)+A(1,0.5) A(-1,0.5)+D(0,0.5)+E(0,0.5)+E(1,0.5)+A(1,0.5) bk CS(1,0.75)+FS(1,0.75)+CS(2,0.75) bk CS(1,0.25)+E(1,0.25)+A(1,0.25)+CS(2,0.25) E(-1,0.5)+A(-1,0.5)+CS(0,0.5)+CS(1,0.5)+E(1,0.5)+A(1,0.5) E(-1,0.5)+A(-1,0.5)+CS(0,0.5)+B(1,0.5) bk CS(1,0.5)+E(1,0.5)+A(1,0.5)+CS(2,0.5) A(-1,0.25)+CS(0,0.25)+CS(1,0.25)+E(1,0.25)+A(1,0.25)+CS(2,0.25) A(-1,0.25)+CS(0,0.25)+CS(1,0.25)+FS(1,0.25)+B(1,0.25) A(-2,0.5)+CS(1,0.5)+FS(1,0.5)+B(1,0.5) bk A(-1,0.5)+CS(0,0.5)+A(1,0.5) bk B(0,0.75)+E(1,0.75)+GS(1,0.75)+B(1,0.75) A(1,0.25)+B(1,0.25) E(-1,0.5)+GS(-1,0.5)+B(-1,0.5)+A(1,0.5)+B(1,0.5) E(-1,0.5)+GS(-1,0.5)+B(-1,0.5)+E(1,0.5)+B(1,0.5) bk E(-2,0.5)+B(0,0.5)+E(1,0.5)+FS(1,0.5) E(-1,0.5)+GS(-1,0.5)+B(-1,0.5)+B(0,0.5)+E(1,0.5)+FS(1,0.5) E(-2,0.5)+B(0,0.5)+E(1,0.5)+FS(1,0.5) E(-1,0.5)+GS(-1,0.5)+B(-1,0.5)+B(0,0.5)+E(1,0.5)+FS(1,0.5) bk D(-2,1) bk D(-2,0.5)+FS(0,0.5)+A(0,0.5)+D(1,0.5)+FS(1,0.5) D(-1,0.5)+FS(-1,0.5)+FS(0,0.5)+A(0,0.5)+D(1,0.5)+FS(1,0.5) bk D(-2,0.5)+E(0,0.5)+A(0,0.5)+D(1,0.5)+E(1,0.5) D(-1,0.5)+FS(-1,0.5)+E(0,0.5)+A(0,0.5)+D(1,0.5)+E(1,0.5) bk D(-2,0.5)+FS(0,0.5)+A(0,0.5)+D(1,0.5)+FS(1,0.5) D(-1,0.5)+FS(-1,0.5)+FS(0,0.5)+A(0,0.5)+D(1,0.5)+FS(1,0.5) bk A(0,1)+CS(1,1)+E(1,1)+A(1,1) bk CS(-2,0.5)+FS(0,0.5)+FS(1,0.5) CS(-1,0.5)+E(-1,0.5)+FS(0,0.5)+FS(1,0.5) bk CS(-2,0.5)+E(0,0.5)+GS(0,0.5)+CS(1,0.5)+E(1,0.5) CS(-1,0.5)+E(-1,0.5)+E(0,0.5)+GS(0,0.5)+CS(1,0.5)+E(1,0.5) bk CS(-2,0.5)+CS(0,0.5)+CS(1,0.5) CS(-1,0.5)+E(-1,0.5)+CS(0,0.5)+CS(1,0.5) bk];
track19= [DS(-2,1.5)+DS(0,1.5)+FS(0,1.5)+A(0,1.5)+DS(1,1.5) DS(-1,0.5)+FS(-1,0.5)+GS(0,0.5)+GS(1,0.5) bk DS(-2,0.5)+GS(0,0.5)+DS(1,0.5)+GS(1,0.5) DS(-1,0.5)+FS(-1,0.5)+GS(0,0.5)+DS(1,0.5)+GS(1,0.5) DS(-2,0.5)+GS(0,0.5)+DS(1,0.5)+GS(1,0.5) DS(-1,0.5)+FS(-1,0.5)+GS(0,0.5)+DS(1,0.5)+GS(1,0.5) bk D(1,1.5)+F(1,1.5)+GS(1,1.5)+D(2,1.5) bk F(-1,0.5)+GS(-1,0.5)+CS(1,0.5)+CS(2,0.5) bk F(-2,0.25)+CS(1,0.25)+F(1,0.25)+GS(1,0.25)+CS(2,0.25) GS(-2,0.25)+CS(1,0.25)+F(1,0.25)+GS(1,0.25)+CS(2,0.25) B(-2,0.25)+CS(1,0.25)+F(1,0.25)+GS(1,0.25)+CS(2,0.25) D(-1,0.25)+CS(1,0.25)+F(1,0.25)+GS(1,0.25)+CS(2,0.25) F(-1,0.25)+CS(1,0.25)+F(1,0.25)+GS(1,0.25)+CS(2,0.25) GS(-1,0.25)+CS(1,0.25)+F(1,0.25)+GS(1,0.25)+CS(2,0.25) B(-1,0.25)+CS(1,0.25)+F(1,0.25)+GS(1,0.25)+CS(2,0.25) D(0,0.25)+CS(1,0.25)+F(1,0.25)+GS(1,0.25)+CS(2,0.25) F(0,0.25)+CS(1,0.25)+F(1,0.25)+GS(1,0.25)+CS(2,0.25) GS(0,0.25)+CS(1,0.25)+F(1,0.25)+GS(1,0.25)+CS(2,0.25) B(0,0.25)+CS(1,0.25)+F(1,0.25)+GS(1,0.25)+CS(2,0.25) D(0,0.25)+CS(1,0.25)+F(1,0.25)+GS(1,0.25)+CS(2,0.25)];
track20= [CS(1,0.5)+E(1,0.5)+GS(1,0.5)+CS(2,0.5) bk CS(0,0.25)+FS(0,0.25)+CS(1,0.25)+E(1,0.25)+GS(1,0.25)+CS(2,0.25) CS(0,0.25)+FS(0,0.25)+GS(0,0.25)+CS(1,0.25)+FS(1,0.25) CS(0,0.5)+FS(0,0.5)+GS(0,0.5)+CS(1,0.5)+FS(1,0.5) CS(0,0.5)+FS(0,0.5)+FS(1,0.5) bk GS(0,0.5)+CS(1,0.5)+FS(1,0.5) CS(0,0.25)+E(0,0.25)+GS(0,0.25)+CS(1,0.25)+FS(1,0.25) CS(0,0.25)+E(0,0.25)+GS(0,0.25)+CS(1,0.25)+E(1,0.25) CS(0,0.5)+E(0,0.5)+GS(0,0.5)+CS(1,0.5)+E(1,0.5) CS(0,0.5)+E(0,0.5)+E(1,0.5) bk A(0,0.5)+D(1,0.5)+FS(1,0.5) D(0,0.25)+GS(0,0.25)+A(0,0.25)+D(1,0.25)+FS(1,0.25) D(0,0.25)+GS(0,0.25)+D(1,0.25)+FS(1,0.25)+A(1,0.25) D(0,0.5)+GS(0,0.5)+D(1,0.5)+FS(1,0.5)+A(1,0.5) bk D(0,0.5)+GS(0,0.5)+B(1,0.5) bk CS(1,0.5)+FS(1,0.5)+A(1,0.5)+CS(2,0.5) D(0,0.5)+A(0,0.5)+CS(1,0.5)+FS(1,0.5)+A(1,0.5)+CS(2,0.5) bk D(0,0.5)+A(0,0.5)+CS(1,0.5)+FS(1,0.5)+A(1,0.5) bk D(0,0.5)+A(0,0.5)+CS(1,0.5)+FS(1,0.5)+A(1,0.5) bk B(0,0.5)+E(1,0.5)+FS(1,0.5) E(0,0.25)+GS(0,0.25)+B(0,0.25)+E(1,0.25)+FS(1,0.25) E(0,0.25)+GS(0,0.25)+B(0,0.25)+E(1,0.25)+A(1,0.25) E(0,0.5)+GS(0,0.5)+B(0,0.5)+E(1,0.5)+A(1,0.5) bk E(0,0.5)+GS(0,0.5)+B(1,0.5) bk B(-1,0.5)+E(0,0.5)+E(1,0.5)+GS(1,0.5)+CS(2,0.5) B(-1,0.25)+E(0,0.25)+E(1,0.25)+GS(1,0.25)+CS(2,0.25) B(-1,0.25)+E(0,0.25)+E(1,0.25)+GS(1,0.25)+E(2,0.25) DS(0,0.17)+E(1,0.17)+GS(1,0.17)+E(2,0.17) D(0,0.16)+E(1,0.16)+GS(1,0.16)+E(2,0.16) CS(0,0.17)+E(1,0.17)+GS(1,0.17)+E(2,0.17) C(0,0.17)+B(1,0.17) B(-1,0.16)+B(1,0.16) AS(-1,0.17)+B(1,0.17) bk E(1,0.5)+GS(1,0.5)+CS(2,0.5) E(-1,0.25)+A(-1,0.25)+E(1,0.25)+GS(1,0.25)+CS(2,0.25) E(-1,0.25)+A(-1,0.25)+E(1,0.25)+GS(1,0.25)+B(1,0.25) E(-1,0.5)+A(-1,0.5)+E(1,0.5)+GS(1,0.5)+B(1,0.5) bk E(-1,0.5)+A(-1,0.5)+CS(2,0.5) bk CS(1,0.5)+FS(1,0.5) E(-1,0.5)+GS(-1,0.5)+CS(1,0.5)+FS(1,0.5) E(-1,0.5)+GS(-1,0.5)+GS(0,0.5)+CS(1,0.5)+E(1,0.5) E(-1,0.5)+GS(-1,0.5)++GS(0,0.5)+CS(1,0.5)+E(1,0.5) bk];
track21= [B(-1,1)+FS(0,1)+B(0,1)+D(1,1)+FS(1,1) FS(0,0.5)+B(0,0.5)+D(1,0.5)+FS(1,0.5)+FS(2,0.5) B(-1,0.5)+FS(0,0.5)+B(0,0.5)+D(1,0.5)+FS(1,0.5) FS(0,0.5)+B(0,0.5)+D(1,0.5)+FS(1,0.5)+FS(2,0.5) B(-1,0.5)+FS(0,0.5)+B(0,0.5)+D(1,0.5)+FS(1,0.5) FS(0,0.5)+B(0,0.5)+D(1,0.5)+E(1,0.5)+FS(1,0.5)+FS(2,0.5) B(-1,0.5)+FS(0,0.5)+B(0,0.5)+D(1,0.5)+E(1,0.5)+FS(1,0.5) bk CS(0,1)+GS(0,1)+CS(1,1)+E(1,1)+GS(1,1) GS(0,0.5)+CS(1,0.5)+E(1,0.5)+GS(1,0.5)+GS(2,0.5) CS(0,0.5)+GS(0,0.5)+CS(1,0.5)+E(1,0.5)+GS(1,0.5) GS(0,0.5)+CS(1,0.5)+E(1,0.5)+GS(1,0.5)+GS(2,0.5) CS(0,0.5)+GS(0,0.5)+CS(1,0.5)+E(1,0.5)+GS(1,0.5) GS(0,0.5)+CS(1,0.5)+E(1,0.5)+GS(1,0.5)+GS(2,0.5) CS(0,0.5)+GS(0,0.5)+A(0,0.5)+A(1,0.5) bk D(0,1)+A(0,1)+D(1,1)+FS(1,1)+A(1,1) A(0,0.5)+D(1,0.5)+FS(1,0.5)+A(1,0.5)+A(2,0.5) D(0,0.5)+A(0,0.5)+D(1,0.5)+FS(1,0.5)+A(1,0.5) A(0,0.5)+D(1,0.5)+FS(1,0.5)+A(1,0.5)+A(2,0.5) D(0,0.5)+A(0,0.5)+D(1,0.5)+FS(1,0.5)+A(1,0.5) A(0,0.5)+D(1,0.5)+FS(1,0.5)+A(1,0.5)+A(2,0.5) D(0,0.5)+A(0,0.5)+E(1,0.5) bk E(0,1)+GS(0,1)+B(0,1)+E(1,1)+GS(1,1) GS(0,0.5)+B(0,0.5)+E(1,0.5)+GS(1,0.5)+GS(2,0.5) E(0,0.5)+GS(0,0.5)+B(0,0.5)+E(1,0.5)+GS(1,0.5) GS(0,0.5)+B(0,0.5)+E(1,0.5)+GS(1,0.5)+GS(2,0.5) E(0,0.5)+GS(0,0.5)+B(0,0.5)+E(1,0.5)+GS(1,0.5) GS(0,0.5)+B(0,0.5)+E(1,0.5)+GS(1,0.5)+GS(2,0.5) E(0,0.5)+FS(0,0.5)+B(0,0.5)+FS(1,0.5) bk];
track22= [FS(0,1)+A(0,1)+CS(1,1)+FS(1,1) FS(0,1)+A(0,1)+CS(1,1)+FS(1,1) bk FS(0,1)+A(0,1)+CS(1,1)+FS(1,1) bk FS(0,0.5)+A(0,0.5)+CS(1,0.5)+FS(1,0.5) bk B(0,1)+DS(1,1)+GS(1,1)+B(1,1) B(0,1)+DS(1,1)+GS(1,1)+B(1,1) bk B(0,1)+DS(1,1)+GS(1,1)+B(1,1) bk B(0,0.5)+DS(1,0.5)+GS(1,0.5)+B(1,0.5) CS(1,0.5)+CS(2,0.5)+B(2,0.5) bk CS(1,1)+E(1,1)+A(1,1)+CS(2,1) CS(1,1)+E(1,1)+A(1,1)+CS(2,1) bk CS(1,1)+E(1,1)+A(1,1)+CS(2,1) bk CS(1,1)+E(1,1)+A(1,1)+CS(2,1) CS(1,2)+E(1,2)+A(1,2)+CS(2,2) CS(1,1)+E(1,1)+A(1,1)+CS(2,1) B(0,0.5)+CS(1,0.5)+E(1,0.5)+A(1,0.5)+B(1,0.5)+CS(2,0.5) B(0,0.5)+CS(1,0.5)+E(1,0.5)+A(1,0.5)+B(1,0.5)+CS(2,0.5) bk FS(-1,4)+CS(0,4)+FS(0,4)+A(0,4)+CS(1,4)+FS(1,4) bk E(-1,2)+B(-1,2)+E(0,2) E(-1,2)+B(-1,2)+E(0,2)+GS(0,2)+B(0,2) bk D(-1,6)+A(-1,6)+D(0,6)+FS(0,6)+A(0,6) bk E(-1,2)+E(0,2)+E(1,2) bk FS(-1,4)+CS(0,4)+FS(0,4)+A(0,4)+CS(1,4)+FS(1,4) bk E(-1,4)+B(-1,4)+E(0,4)+B(0,4)+E(1,4)+GS(1,4) bk D(-1,12)+A(-1,12)+D(0,12)+E(0,12)+FS(0,12)+A(0,12)];
%track6 track7 track8 track12 track16 are refrain(副歌)
%song:1 2 3 4 5 6 7 6 8 9 10 11 6 7 6 12 13 14 15 16 17 18 19 20 21 22
%Song constructed from several, sometimes repeating, jbsequences
music = [track1 track2 track3 track4 track5 track6 track7 track6 track8 track9 track10 track11 track6 track7 track6 track12 track13 track14 track15 track16 track17 track18 track19 track20 track21 track22];
octm2 = [C(-2, 0.5) qr CS(-2, 0.5) qr D(-2, 0.5) qr DS(-2, 0.5) qr E(-2, 0.5) qr F(-2, 0.5) qr FS(-2, 0.5) qr G(-2, 0.5) qr GS(-2, 0.5) qr A(-2, 0.5) qr AS(-2, 0.5) qr B(-2, 0.5) qr];
octm1 = [C(-1, 0.5) qr CS(-1, 0.5) qr D(-1, 0.5) qr DS(-1, 0.5) qr E(-1, 0.5) qr F(-1, 0.5) qr FS(-1, 0.5) qr G(-1, 0.5) qr GS(-1, 0.5) qr A(-1, 0.5) qr AS(-1, 0.5) qr B(-1, 0.5) qr];
oct0 = [C(0, 0.5) qr CS(0, 0.5) qr D(0, 0.5) qr DS(0, 0.5) qr E(0, 0.5) qr F(0, 0.5) qr FS(0, 0.5) qr G(0, 0.5) qr GS(0, 0.5) qr A(0, 0.5) qr AS(0, 0.5) qr B(0, 0.5) qr];
oct1 = [C(1, 0.5) qr CS(1, 0.5) qr D(1, 0.5) qr DS(1, 0.5) qr E(1, 0.5) qr F(1, 0.5) qr FS(1, 0.5) qr G(1, 0.5) qr GS(1, 0.5) qr A(1, 0.5) qr AS(1, 0.5) qr B(1, 0.5) qr];
oct2 = [C(2, 0.5) qr CS(2, 0.5) qr D(2, 0.5) qr DS(2, 0.5) qr E(2, 0.5) qr F(2, 0.5) qr FS(2, 0.5) qr G(2, 0.5) qr GS(2, 0.5) qr A(2, 0.5) qr AS(2, 0.5) qr B(2, 0.5) qr];
superoct = [octm2 octm1 oct0 oct1 oct2];
polytest1 = [C(0,4)+ E(1,4) C(0, 2) C(0,4)+ E(1,4) C(0, 2) C(0,4)+ F(1,4) C(0, 2) C(0,4)+ D(1,4)];
polytest = [polytest1 polytest1 polytest1 C(0,8) + C(-1,8)];
%Output song reconstructed at Fr
sound(0.15*music, Fr); % the multiplier in front of song sets the master volume
[y,fs]=audioread('piano.mp3');
sound(y,fs);
time=(1:length(y))/fs;
plot(time,y);
[y,fs]=audioread('piano.mp3');
x=fft(y);
s=abs(x);
time=(1:length(y))/fs;
plot(time,s);
sound(y,fs);
cutoffFreq = 1000; % Cutoff frequency
n=5; % Order of filter
[Y,fs]=audioread('piano.mp3');
[b,a]=butter(n,cutoffFreq/(fs/2), 'high');
y=filter(b,a,Y);
time=(1:length(y))/fs;
plot(time,y);
sound(y,fs);
cutOffFreq=500; % Cutoff frequency
filterOrder=5; % Order of filter
[Y,fs]=audioread('piano.mp3');
[b, a]=butter(filterOrder, cutOffFreq/(fs/2), 'low');
y=filter(b, a, Y);
time=(1:length(y))/fs;
plot(time, y);
sound(y,fs);
clear all;