time   calls  line
                  1 function [ax,args,nargs] = axescheck(varargin)
                  2 %AXESCHECK Process leading Axes object from input list
                  3 %   [AX,ARGS,NARGS] = AXESCHECK(ARG1,ARG2,...) checks if ARG1 is an Axes
                  4 %   and returns it in AX if it is and returns the processed argument
                  5 %   list in ARGS and NARGS.  If ARG1 is not an Axes, AX will return empty.
                  6 %   Also checks arguments that are property-value pairs 'parent',ARG.
                  7 
                  8 %    Copyright 1984-2006 The MathWorks, Inc.
                  9 %    $Revision $  $Date: 2008/05/23 15:35:43 $
                 10 
          2002   11 args = varargin; 
          2002   12 nargs = nargin; 
  0.02    2002   13 ax=[]; 
  0.05    2002   14 if (nargs > 0) && (numel(args{1}) == 1) && ishghandle(args{1},'axes') 
           713   15   ax = args{1}; 
           713   16   args = args(2:end); 
           713   17   nargs = nargs-1; 
           713   18 end 
          2002   19 if nargs > 0 
  0.03    2002   20   inds = find(strcmpi('parent',args)); 
  0.02    2002   21   if ~isempty(inds) 
                 22     inds = unique([inds inds+1]);
                 23     pind = inds(end);
                 24     if nargs >= pind && ishghandle(args{pind})
                 25       ax = args{pind};
                 26       args(inds) = [];
                 27       nargs = length(args);
                 28     end
                 29   end
          2002   30 end