function CM = changemaps(DM)
% Simple routine to allow for changing colormaps
cmaps={'default';
       'gray';
	   'copper';
	   'hot';
	   'cool';
	   'autumn';
	   'spring';
	   'summer';
	   'winter'};
rsp=input(['   Use current ', DM,' colormap (1) or change (2): '],'s');
[n,m]=size(cmaps);
if (rsp=='2')
	disp('       Choices:');
	for i=1:n
		tx=num2str(i);
	    tx=['         ' tx '. ' cmaps{i}];
		disp(tx);
	end
	rcp=input('       Selection by number: ');
	if (rcp>0)&(rcp<n)
		CM=cmaps{rcp};
	else
		CM=DM;
	end
else
	CM=DM;
end
disp(' ');