clear all;
close all;
clc;
echo off;

Fs=16000;
t=0:1/Fs:0.4;

cdur = 262*2;

for i = 1:1:17,
    tony(i,:) = sin(2*pi*t*cdur*2^(i/12));
end;

a0 = tony(1,:);
h0 = tony(2,:);
c1 = tony(3,:);
d1 = tony(4,:);
e1 = tony(5,:);
f1 = tony(6,:);
g1 = tony(7,:);
a1 = tony(8,:);
h1 = tony(9,:);
c2 = tony(10,:);
d2 = tony(11,:);
e2 = tony(12,:);
f2 = tony(13,:);
g2 = tony(14,:);
a2 = tony(15,:);
h2 = tony(16,:);
c3 = tony(17,:);
pauza = t .* 0;
k = t(1:1000) .* 0;

x = pauza;
x = [x k g1 k g1 k a1 k g1];
x = [x k g1 k g1 k a1 k g1];
x = [x k g1 k g1 k a1 k g1];
x = [x k g1 k g1 k a1 k g1];
x = [x k f1 k f1 k f1 k f1];
x = [x k e1 k e1 k e1 e1 e1(1:100)];
x = [x k d1 k d1 k g1 k g1];
x = [x k c1 k c1 k c1 c1 c1(1:100)];
x = [x k g1 k g1 k a1 k g1];
x = [x k g1 k g1 k a1 k g1];
x = [x k g1 k g1 k a1 k g1];
x = [x k g1 k g1 k a1 k g1];
x = [x k f1 k f1 k f1 k f1];
x = [x k e1 k e1 k e1 e1 e1(1:100)];
x = [x k d1 k d1 k g1 k g1];
x = [x k c1 k c1 k c1 c1 c1(1:100)];
x = [x k f1 k f1 k f1 k f1];
x = [x k e1 k e1 k e1 e1 e1(1:100)];
x = [x k d1 k d1 k g1 k g1];
x = [x k c1 k c1 k c1 c1 c1(1:100)];

x = x .* 0.1;

sound(x,Fs);

plot(x);