--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/test/gui/functions/gltpda_aoPlot.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,44 @@
+function gltpda_aoPlot(handles, ax)
+
+% GLTPDA_AOPLOT plot analysis objects.
+% 
+% 
+% M Hewitson 15-02-07
+% 
+% $Id: gltpda_aoPlot.m,v 1.1 2007/03/12 13:00:31 hewitson Exp $
+% 
+
+
+% get AO array
+aos = getappdata(handles.main, 'aos');
+
+% Get selected objects
+selected = get(handles.aoList, 'Value');
+if selected == 0
+  selected = 1;
+end
+as = aos.objs(selected);
+
+% Go through and check objects
+a = as(1);
+d = a.data;
+dinfo = whos('d');
+cl = dinfo.class;
+for j=2:length(as)
+  a = as(j);
+  d = a.data;
+  dinfo = whos('d');
+  if ~strcmp(dinfo.class, cl)
+    error('### objects should all be the same data type for plotting.');
+  end
+end
+
+% Plot
+% Choose history axes
+axes(ax);
+plot(aos.objs(selected));
+hold off;
+
+
+
+% END
\ No newline at end of file