function gcolor(S)
% gcolor(S)   Apply a gray (S=0) or inverted-gray colormap (no S, prints best).
% dpwe 1994nov09

if(nargin < 1)
  S=0;
end

colormap('gray');

if(S==0)
  g = colormap;
  colormap(g([64:-1:1],:));
end
