function animfourier(steps)
 one = wavread('one.wav');
 sound(one);
 fig=figure;
 subplot(3,1,1); plot(one);
 pause;
 ff = fft(one);
 reconstructedone = zeros(size(one));
 subplot(2,1,2); plot(reconstructedone);
 axis([0 3000 -0.3 0.3]);
 zoom on;
 for t=1:steps:((size(ff,1)-1)/2)-1
   partialfft=bandpassfilter(ff,t,(t+steps-1));
   addtoreconstruction = ifft(partialfft);
   reconstructedone = reconstructedone + real(addtoreconstruction);
   plot(reconstructedone);
   axis([0 3000 -0.3 0.3]);
   pause(0.0001);
 end
  