% ++==============================================================
% || B A S I C   F I G U R E S
% ++==============================================================

% Frequency coverage by the Laws masks
clf; hold on
h=[ 1  4  6  4  1]; ampplot(h/norm(h));
h=[-1 -2  0  4  1]; ampplot(h/norm(h));
h=[-1  0  2  0 -1]; ampplot(h/norm(h));
h=[-1  2  0 -2  1]; ampplot(h/norm(h));
h=[ 1 -4  6 -4  1]; ampplot(h/norm(h));
hold off;
print -deps2 ../figs/laws-freq.eps

% ++==============================================================
% || T E X T U R E   I M A G E S
% ++==============================================================
for id=['Nat-5v ';'Nat-5v2';'Nat-5v3';'Nat-5m ';'Nat-10v'; 'Nat-16v';...
    'Nat-5c ';'Nat-16c';'Nat-10 ']'
  id=deblank(id');
  fprintf(1,'Making figure for test image "%s"\n',id);
  x=cp_image(id);
  gimage(x,'Colorbar','off');
  axis off;
  eval(sprintf('print -deps2 ../figs/%s.eps',id));
  close
end  
for id=[4 84;12 17;5 92;8 84]'
  id=id';
  fprintf(1,'Making figure for test image D%d-D%d\n',id);
  x=cp_image(id);
  gimage(x,'Colorbar','off');
  axis off;
  eval(sprintf('print -deps2 ../figs/D%04dD%04d.eps',id));
  close
end  

