--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/classes/+utils/@plottools/cscale.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,28 @@
+% CSCALE Set the color range of the current figure
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% DESCRIPTION: CSCALE Set the color range of the current figure
+%
+% CALL:        cscale(x1,x2)
+%
+% VERSION:     $Id: cscale.m,v 1.1 2008/08/05 17:51:32 ingo Exp $
+%
+% HISTORY:     09-10-2001 M Hewitson
+%                 Creation.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+function cscale(y1,y2)
+
+  set(gca, 'CLim', [y1 y2]);
+
+  h = get(gcf, 'Children');
+
+  for j=1:length(h)
+    if strcmp(get(h(j), 'Tag'), 'Colorbar')==1
+      colorbar;
+    end
+  end
+
+end
+