home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l460 / 2.ddi / PLOTXYZ.DI$ / VIEW.M < prev    next >
Encoding:
Text File  |  1993-03-07  |  2.3 KB  |  75 lines
  1. function [ret1, ret2] = view(arg1, arg2)
  2. % VIEW    3-D graph viewpoint specification. 
  3. %     VIEW(AZ,EL) and VIEW([AZ,EL]) set the angle of the view from which an
  4. %    observer sees the current 3-D plot.  AZ is the azimuth or horizontal 
  5. %    rotation and EL is the vertical elevation (both in degrees). Azimuth 
  6. %    revolves about the z-axis, with positive values indicating counter-
  7. %    clockwise rotation of the viewpoint. Positive values of elevation 
  8. %    correspond to moving above the object; negative values move below.
  9. %    VIEW([X Y Z]) sets the view angle in cartesian coordinates. The
  10. %    magnitude of vector X,Y,Z is ignored.
  11. % 
  12. %     Here are some examples:
  13. % 
  14. %     AZ = -37.5, EL = 30 is the default 3-D view.
  15. %     AZ = 0, EL = 90 is directly overhead and the default 2-D view.
  16. %     AZ = EL = 0 looks directly up the first column of the matrix.
  17. %     AZ = 180 is behind the matrix.
  18. %
  19. %    VIEW(2) sets the default 2-D view, AZ = 0, EL = 90.
  20. %    VIEW(3) sets the default 3-D view, AZ = -37.5, EL = 30.
  21. %
  22. %     [AZ,EL] = VIEW returns the current azimuth and elevation.
  23. % 
  24. %     VIEW(T) accepts a 4-by-4 transformation matrix, such as 
  25. %     the perspective transformations generated by VIEWMTX.
  26. %
  27. %     T = VIEW returns the current general 4-by-4 transformation matrix.
  28. %
  29. %    See also VIEWMTX, the AXES properties View, Xform.
  30.  
  31. %    Copyright (c) 1984-93 by The MathWorks, Inc.
  32.  
  33. fig = gcf;
  34. ax = gca;
  35. err = 0;
  36. if (nargin == 0)
  37.     if(nargout < 2)
  38.         ret1 = get(ax,'xform');
  39.     else
  40.         v = get(ax,'View');
  41.         ret1  = v(1); ret2 = v(2);
  42.     end
  43. elseif (nargin == 1)
  44.     [r,c] = size(arg1);
  45.     if (r == 1) & (c == 2)
  46.         set(ax,'View',arg1);
  47.     elseif ((r==1) & (c == 1))
  48.         if arg1 == 2
  49.             view(0,90);
  50.         elseif arg1 == 3 
  51.             view(-37.5,30);
  52.         else
  53.             error('Single scalar argument must be 2 or 3');
  54.         end
  55.     elseif ((r == 4) & (c == 4))
  56.         set(ax,'xform',arg1);
  57.     elseif r*c == 3    % it's a direction vector
  58.         unit = arg1/norm(arg1);
  59.         az = atan2(unit(2),unit(1))*180/pi;
  60.         el = atan2(unit(3),sqrt(unit(1)^2+unit(2)^2))*180/pi;
  61.         set(ax,'View',[az el]);
  62.     else
  63.         error('Argument must be scalar, two-vector, or 4-by-4 matrix');
  64.     end
  65. else
  66.     [r,c] = size(arg1);
  67.     [r2,c2] = size(arg2);
  68.     if ((r == 1) & (c == 1) & (r2 == 1) & (c2 == 1))
  69.         set(ax,'View',[arg1 arg2]);
  70.     else
  71.         error('Arguments must be scalars');
  72.     end
  73. end
  74.  
  75.