function sepgabor_test(X)
%SEPGABOR_TEST  Test execution speed of straightforward 2D Gabor fitlering
%	vs. separable Gabor filtering.
%
%	sepgabor_test test the methods with the `clown' image
%
%	sepgabor_test(X) test the methods with the image X

if nargin<1,
  load clown
end
for i=-2:-1:-6,
  CtrFreq=2.^(i)*sqrt(2);
  for Angle=[0 pi/6 pi/4],
    c0=clock; y=gabor(X,CtrFreq,Angle);    t1=etime(clock,c0);
    c0=clock; y=sepgabor(X,CtrFreq,Angle); t2=etime(clock,c0);
    fprintf(1,'CtrFreq=%3.2f, angle=%3.2fpi: full %3.2f, sep %3.2f\n',...
	CtrFreq,Angle/pi,t1,t2);
  end
end

