Add ezview

workflow/apps/matlab/ezview/TempBU/newplot.m

@@ -0,0 +1,137 @@
+function axReturn = newplot(hsave)
+%NEWPLOT Prepares figure, axes for graphics according to NextPlot.
+%   H = NEWPLOT returns the handle of the prepared axes.
+%   H = NEWPLOT(HSAVE) prepares and returns an axes, but does not
+%   delete any objects whose handles appear in HSAVE. If HSAVE is
+%   specified, the figure and axes containing HSAVE are prepared
+%   instead of the current axes of the current figure. If HSAVE is
+%   empty, NEWPLOT behaves as if it were called without any inputs.
+%
+%   NEWPLOT is a standard preamble command that is put at
+%   the beginning of graphics functions that draw graphs
+%   using only low-level object creation commands. NEWPLOT
+%   "does the right thing" in terms of determining which axes and/or
+%   figure to draw the plot in, based upon the setting of the
+%   NextPlot property of axes and figure objects, and returns a
+%   handle to the appropriate axes.
+%
+%   The "right thing" is:
+%
+%   First, prepare a figure for graphics:
+%   Clear and reset the current figure using CLF RESET if its NextPlot
+%   is 'replace', or clear the current figure using CLF if its
+%   NextPlot is 'replacechildren', or reuse the current figure as-is
+%   if its NextPlot is 'add', or if no figures exist, create a figure.
+%   When the figure is prepared, set its NextPlot to 'add', and then
+%   prepare an axes in that figure:
+%   Clear and reset the current axes using CLA RESET if its NextPlot
+%   is 'replace', or clear the current axes using CLA if its NextPlot
+%   is 'replacechildren', or reuse the current axes as-is if its
+%   NextPlot is 'add', or if no axes exist, create an axes.
+%
+%   See also HOLD, ISHOLD, FIGURE, AXES, CLA, CLF.
+
+%   Copyright 1984-2010 The MathWorks, Inc.
+%   Built-in function.
+
+if nargin == 0 || isempty(hsave)
+    hsave = [];
+elseif ~isscalar(hsave) || ~ishghandle(hsave)
+    error(message('MATLAB:newplot:InvalidHandle'))
+end
+
+
+fig = [];
+ax = [];
+
+if ~isempty(hsave)
+    obj = hsave;
+    while ~isempty(obj)
+        if strcmp(get(obj,'type'),'figure')
+            fig = obj;
+        elseif strcmp(get(obj,'type'),'axes')
+            ax = obj;
+        end
+        obj = get(obj,'parent');
+    end
+end
+
+if isempty(fig)
+    fig = gcf;
+end
+
+fig = ObserveFigureNextPlot(fig, hsave);
+% for clay
+set(fig,'nextplot','add');
+
+if isempty(ax)
+    ax = gca(fig);
+elseif ~any(ishghandle(ax))
+    error(message('MATLAB:newplot:NoAxesParent'))
+end
+
+ax = ObserveAxesNextPlot(ax, hsave);
+
+if nargout
+    axReturn = ax;
+end
+
+
+
+function fig = ObserveFigureNextPlot(fig, hsave)
+%
+% Helper fcn for preparing figure for nextplot, optionally
+% preserving specific existing descendants.
+% GUARANTEED to return a figure, even if some crazy combination
+% of create / delete fcns deletes it.
+%
+switch get(fig,'nextplot')
+  case 'new'
+    % if someone calls plot(x,y,'parent',h) and h is an axes
+    % in a figure with NextPlot 'new', ignore the 'new' and
+    % treat it as 'add' - just add the axes to that figure.
+    if isempty(hsave)
+      fig = figure;
+    end
+  case 'replace'
+    clf(fig, 'reset', hsave);
+  case 'replacechildren'
+    clf(fig, hsave);
+  case 'add'
+    % nothing    
+end
+if ~any(ishghandle(fig)) && isempty(hsave)
+  fig = figure;
+end
+
+function ax = ObserveAxesNextPlot(ax, hsave)
+%
+% Helper fcn for preparing axes for nextplot, optionally
+% preserving specific existing descendants
+% GUARANTEED to return an axes in the same figure as the passed-in
+% axes, even if that axes gets deleted by an overzealous create or
+% delete fcn anywhere in the figure.
+%
+
+% for performance only call ancestor when needed 
+fig = get(ax,'Parent');
+if ~strcmp(get(fig,'Type'),'figure')
+  fig = ancestor(fig,'figure');
+end
+
+switch get(ax,'nextplot')
+  case 'replace'
+    cla(ax, 'reset',hsave);    
+  case 'replacechildren'
+    cla(ax, hsave);
+  case 'add'
+    % nothing    
+end
+
+if ~any(ishghandle(ax)) && isempty(hsave)
+  if ~any(ishghandle(fig))
+    ax = axes;
+  else
+    ax = axes('parent',fig);
+  end
+end