home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l460 / 2.ddi / GRAPHICS.DI$ / AXIS.M < prev    next >
Encoding:
Text File  |  1993-03-07  |  6.5 KB  |  214 lines
  1. function [ans1, ans2, ans3] = axis(arg1, arg2, arg3, arg4);
  2. %AXIS    Plot axis scaling and appearance.
  3. %     AXIS([XMIN XMAX YMIN YMAX]) sets scaling for the x- and y-axes
  4. %     on the current plot.
  5. % 
  6. %     AXIS([XMIN XMAX YMIN YMAX ZMIN ZMAX]) sets the scaling for the
  7. %     x-, y- and z-axes on the current 3-D plot.
  8. % 
  9. %     AXIS('auto') returns the axis scaling to its default, automatic
  10. %     mode where, for each plot, xmin = min(x), xmax = max(x), etc.
  11. % 
  12. %     V = AXIS returns a row vector containing the scaling for the
  13. %     current plot.  If the current plot is two-dimensional, V has
  14. %     four components; if it is three-dimensional, V has six components.
  15. % 
  16. %     AXIS(AXIS) freezes the scaling at the current limits, so that if
  17. %    HOLD is turned on, subsquent plots will use the same limits.
  18. % 
  19. %     AXIS('ij') puts MATLAB into its "matrix" axes mode.  The coordinate
  20. %     system origin is at the upper left corner.  The i axis is vertical
  21. %     and is numbered from top to bottom.  The j axis is horizontal and
  22. %     is numbered from left to right.
  23. % 
  24. %     AXIS('xy') puts MATLAB into its default "Cartesian" axes mode.
  25. %     The coordinate system origin is at the lower left corner.  The x axis
  26. %     is horizontal and is numbered from left to right.  The y axis is
  27. %     vertical and is numbered from bottom to top.
  28. % 
  29. %     AXIS('equal') changes the current axis box size so that equal tick
  30. %    mark increments on the x- and y-axis are equal in size. This makes
  31. %    PLOT(SIN(X),COS(X)) look like a circle, instead of an oval.
  32. %     AXIS('square') makes the current axis box square in size.
  33. %     AXIS('image'), for images, makes the aspect ratio the same size as
  34. %     the image.  
  35. %
  36. %     AXIS('normal') restores the current axis box to full size and
  37. %    removes any restrictions on the scaling of the units.
  38. %    This undoes the effects of AXIS('square') and AXIS('equal').
  39. %
  40. %    AXIS('image') sets the aspect ratio and the axis limits so the
  41. %    image in the current axes has square pixels.
  42. % 
  43. %     AXIS('off') turns off all axis labeling and tick marks.
  44. %     AXIS('on') turns axis labeling and tick marks back on.
  45. % 
  46. %     [S1,S2,S3] = AXIS('state') returns strings indicating the
  47. %     current setting of three axis properties.  
  48. % 
  49. %        S1 = 'auto' or 'manual'.
  50. %        S2 = 'on' or 'off'.
  51. %        S3 = 'xy' or 'ij'.
  52.  
  53.  
  54. %    Copyright (c) 1984-93 by The MathWorks, Inc.
  55.  
  56. ax = gca;
  57.  
  58. if(nargin == 0)
  59.     ans1 = [get(ax,'XLim') get(ax,'YLim')];
  60.     v = get(ax,'View');
  61.     if(v ~= [0 90])
  62.         ans1 = [ans1 get(ax,'ZLim')];
  63.     end
  64. elseif(nargin == 1 & ~isstr(arg1))
  65.     if((max(size(arg1)) == 4) | (max(size(arg1)) == 6))
  66.         set(ax,'XLim',arg1(1:2),'YLim',arg1(3:4),...
  67.             'XLimMode','manual','YLimMode','manual');
  68.         if(max(size(arg1)) == 6)
  69.             set(ax,'ZLim',arg1(5:6),'ZLimMode','manual');
  70.         end
  71.         if max(size(arg1)) == 4 & ~ishold
  72.             view(2);
  73.         elseif max(size(arg1)) == 6
  74.             if (get(ax,'View') == [0 90] & ~ishold)
  75.                 view(3);
  76.             end
  77.         end
  78.     else
  79.         error('Vector must have 4 or 6 elements.')
  80.     end
  81. else
  82.     for i = 1:nargin
  83.         cur_arg = eval(['arg',num2str(i)]);
  84.  
  85.         %
  86.         % handle AUTO, AUTO[XYZ]:
  87.         %
  88.         if(strcmp(cur_arg(1:min(4,max(size(cur_arg)))),'auto'))
  89.  
  90.             do_all = (max(size(cur_arg)) == max(size('auto')));
  91.             do_x = max(size(find(cur_arg == 'x')));
  92.             do_y = max(size(find(cur_arg == 'y')));
  93.             do_z = max(size(find(cur_arg == 'z')));
  94.             if(do_all | do_x)
  95.                 set(ax,'XLimMode','auto');
  96.             else
  97.                 set(ax,'XLimMode','manual');
  98.             end
  99.             if(do_all | do_y)
  100.                 set(ax,'YLimMode','auto');
  101.             else
  102.                 set(ax,'YLimMode','manual');
  103.             end
  104.             if(do_all | do_z)
  105.                 set(ax,'ZLimMode','auto');
  106.             else
  107.                 set(ax,'ZLimMode','manual');
  108.             end
  109.  
  110.         %
  111.         % handle MANUAL:
  112.         %
  113.         elseif(strcmp(cur_arg, 'manual'))
  114.             set(ax,'XLimMode','manual','YLimMode','manual','ZLimMode','manual');
  115.  
  116.         %
  117.         % handle IJ:
  118.         %
  119.         elseif(strcmp(cur_arg, 'ij'))
  120.             set(ax,'XDir','normal');
  121.             set(ax,'YDir','reverse');
  122.  
  123.         %
  124.         % handle XY:
  125.         %
  126.         elseif(strcmp(cur_arg, 'xy'))
  127.             set(ax,'XDir','normal');
  128.             set(ax,'YDir','normal');
  129.  
  130.         %
  131.         % handle SQUARE:
  132.         %
  133.         elseif(strcmp(cur_arg, 'square')) 
  134.             a = get(ax,'Aspect');
  135.             set(ax,'Aspect',[1,a(2)])
  136.  
  137.         %
  138.         % handle EQUAL:
  139.         %
  140.         elseif(strcmp(cur_arg, 'equal')) 
  141.             a = get(ax,'Aspect');
  142.             set(ax,'Aspect',[a(1),1])
  143.  
  144.         %
  145.         % handle NORMAL:
  146.         %
  147.         elseif(strcmp(cur_arg, 'normal'))
  148.             set(ax,'Aspect',[nan nan])
  149.  
  150.         %
  151.         % handle IMAGE:
  152.         %
  153.         elseif(strcmp(cur_arg,'image'))
  154.             m = diff(get(ax,'Ylim'));
  155.             n = diff(get(ax,'Xlim'));
  156.             set(ax,'Aspect',[n/m 1])
  157.  
  158.         %
  159.         % handle OFF:
  160.         %
  161.         elseif(strcmp(cur_arg, 'off'))
  162.             set(ax,'Visible','off');
  163.  
  164.         %
  165.         % handle ON:
  166.         %
  167.         elseif(strcmp(cur_arg, 'on'))
  168.             set(ax,'Visible','on');
  169.  
  170.         %
  171.         % handle STATE:
  172.         %
  173.         elseif(strcmp(cur_arg, 'state'))
  174.             str = '';
  175.             if(strcmp(get(ax,'XLimMode'), 'auto'))
  176.                 str = 'x';
  177.             end
  178.             if(strcmp(get(ax,'YLimMode'), 'auto'))
  179.                 str = [str, 'y'];
  180.             end
  181.             if(strcmp(get(ax,'ZLimMode'), 'auto'))
  182.                 str = [str, 'z'];
  183.             end
  184.             if(max(size(str)) == 3)
  185.                 ans1 = 'auto';
  186.             else
  187.                 ans1 = 'manual';
  188.             end
  189.  
  190.             if(nargout > 1)
  191.                 if strcmp(get(ax,'Visible'),'on')
  192.                     ans2 = 'on';
  193.                 else
  194.                     ans2 = 'off';
  195.                 end
  196.             end
  197.  
  198.             if(nargout > 2)
  199.                 ans3 = 'xy';
  200.                 if(    strcmp(get(ax,'XDir'),'normal') & ...
  201.                     strcmp(get(ax,'YDir'),'reverse'))
  202.                         ans3 = 'ij';
  203.                 end
  204.             end
  205.  
  206.         %
  207.         % handle ERROR (NONE OF THE ABOVE STRINGS FOUND):
  208.         %
  209.         else
  210.             error(['Unknown command option ''',cur_arg,'''']);
  211.         end
  212.     end
  213. end
  214.