--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/classes/+utils/@plottools/allyscale.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,33 @@
+% ALLYSCALE Set all the Y scales on the current figure.
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% DESCRIPTION: ALLYSCALE Set all the Y scales on the current figure.
+%
+% CALL:        allyscale(scale)         scale = 'lin' or 'log';
+%
+% VERSION:     $Id: allyscale.m,v 1.1 2008/08/05 17:51:32 ingo Exp $
+%
+% HISTORY:     02-05-2004 M Hewitson
+%                 Creation.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+function allyscale(scale)
+
+  c = get(gcf, 'children');
+
+  if ~(strcmpi(scale, 'lin') || (strcmpi(scale, 'log')))
+    error('### please use ''lin'' or ''log'' as an input.')
+  end
+
+  for k=1:length(c)
+
+    t = get(c(k), 'Tag');
+    if isempty(t)
+      set(c(k), 'YScale', scale);
+    end
+
+  end
+
+end
+