comparison toolboxes/MIRtoolbox1.3.2/MIRToolbox/surfplot.m @ 0:e9a9cd732c1e tip

first hg version after svn

+function h = surfplot(varargin)
+%SURFPLOT Pseudocolor (checkerboard) plot.
+%   SURFPLOT(C) is a pseudocolor or "checkerboard" plot of matrix C.
+%   The values of the elements of C specify the color in each
+%   cell of the plot. In the default shading mode, 'faceted',
+%   each cell has a constant color and the last row and column of
+%   C are not used. With shading('interp'), each cell has color
+%   resulting from bilinear interpolation of the color at its 
+%   four vertices and all elements of C are used. 
+%   The smallest and largest elements of C are assigned the first and
+%   last colors given in the color table; colors for the remainder of the 
+%   elements in C are determined by table-lookup within the remainder of 
+%   the color table.
+%
+%   SURFPLOT(X,Y,C), where X and Y are vectors or matrices, makes a
+%   pseudocolor plot on the grid defined by X and Y.  X and Y could 
+%   define the grid for a "disk", for example.
+%
+%   SURFPLOT(AX,..) plots into AX instead of GCA.
+%
+%   H = SURFPLOT(...) returns a handle to a SURFACE object.
+%
+%   SURFPLOT is really a SURF with its view set to directly above.
+
+% SURFPLOT is equivalent to PCOLOR, but slighted corrected for MIRToolbox
+
+%-------------------------------
+%   Additional details:
+%
+%
+%   PCOLOR sets the View property of the SURFACE object to directly 
+%   overhead.
+%
+%   If the NextPlot axis property is REPLACE (HOLD is off), PCOLOR resets 
+%   all axis properties, except Position, to their default values
+%   and deletes all axis children (line, patch, surf, image, and 
+%   text objects).  View is set to [0 90].
+
+%   Copyright 1984-2002 The MathWorks, Inc. 
+%   $Revision: 5.9.4.1 $  $Date: 2002/10/24 02:14:11 $
+
+%   Slightly corrected for MIRToolbox
+
+%   J.N. Little 1-5-92
+
+% Parse possible Axes input
+[cax,args,nargs] = axescheck(varargin{:});
+error(nargchk(1,4,nargs))
+
+cax = newplot(cax);
+hold_state = ishold(cax);
+
+if nargs == 1
+    x = args{1};
+    hh = surface(zeros(size(x)),x,'parent',cax);
+    [m,n] = size(x);
+    lims = [ 1 n 1 m];
+elseif nargs == 3
+    [x,y,c] = deal(args{1:3});
+    %cc = zeros(size(y,1),size(x,2));
+    %cc(1:size(c,1),1:size(c,2)) = c;
+    hh = surface(x,y,zeros(size(y,1),size(x,2)),c,'parent',cax,'EdgeColor','none');  % Here are the modification
+    lims = [min(min(x)) max(max(x)) min(min(y)) max(max(y))];
+else
+    error('Must have one or three input data arguments.')
+end
+if ~hold_state
+    set(cax,'View',[0 90]);
+    set(cax,'Box','on');
+    axis(cax,lims);
+end
+if nargout == 1
+    h = hh;
+end