function spinmap(time,inc)
%SPINMAP Spin color map.
%   SPINMAP cyclically rotates the color map for about 3 seconds.
%   SPINMAP(T) rotates it for about T seconds.
%   SPINMAP(inf) is an infinite loop, break with <ctrl-C>.
%   SPINMAP(T,inc) uses the specified increment.  The default is
%   inc = 2, so inc = 1 is a slower rotation, inc = 3 is faster,
%   inc = -2 is the other direction, etc.
%
%   To avoid multiple redraws, set(gcf,'sharecolors','off') and
%   set(gcf,'renderer','painters').
%
%   See also COLORMAP, RGBPLOT.

%   Copyright 1984-2002 The MathWorks, Inc. 
%   $Revision: 5.11.4.1 $  $Date: 2002/12/24 12:08:49 $

if nargin < 1, time = 3; end
if nargin < 2, inc = 2; end

cm = colormap;
M = cm;

% Generate the rotated index vector; allow for negative inc.
m = size(M,1);
k = rem((m:2*m-1)+inc,m) + 1;

% Use while loop because time might be inf.
t = clock;
while etime(clock, t) < time
   M = M(k,:);
   colormap(M)
   drawnow('expose');
end

colormap(cm)