clear;

FS=8000;
SPACE=200;

x1 =[loadwave('tone0.wav'),  zeros(1:SPACE)];
x3 =[loadwave('tone2.wav'),  zeros(1:SPACE)];
x5 =[loadwave('tone4.wav'),  zeros(1:SPACE)];
x6 =[loadwave('tone5.wav'),  zeros(1:SPACE)];
x8 =[loadwave('tone7.wav'),  zeros(1:SPACE)];
x10=[loadwave('tone9.wav'),  zeros(1:SPACE)];
x12=[loadwave('tone11.wav'), zeros(1:SPACE)];

x=[x1, x3, x5, x6, x8, x10, x12];

rand('normal');
rand('seed', 12);
env=rand(1:length(x));
env=convol(ones(1:500), env);
env=env(1:length(x));
x=x.*(1.0+0.003*env);                         // modulation

x=convol([-0.47, 0.0, 1.0, 0.0, -0.47], x);     // FIR BPF
x=0.95*x/max(abs(x));
savewave('scaletone2.wav', x, FS);

for i=1:5
  x=[x, x];
end
savewave('scaletone2loop.wav', x, FS);