mmview3d.m

mmview3d- GUI controlled Azimuth and Elevation adjustment.

function mmview3d(cmd)
%MMVIEW3D GUI Controlled Azimuth and Elevation Adjustment.
% MMVIEW3D adds sliders and text boxes to the current figure window
% for adjusting azimuth and elevation using the mouse.
%
% The 'Revert' pushbutton reverts to the original view.
% The 'Done' pushbutton removes all GUIs.

% The 'cmd' argument executes the callbacks.

% B.R. Littlefield, University of Maine, Orono, ME 04469
% 4/11/95
% Copyright (c) 1996 by Prentice-Hall, Inc.

global Hc_asli Hc_acur Hc_esli Hc_ecur CVIEW

%======================================================================
% If this is a user call, create the uicontrols.
%======================================================================

if nargin == 0

  %--------------------------------------------------------------------
  % Assign a handle to the current figure window.
  % Get the current view for slider initial values.
  % If the view is out of range, adjust as best we can.
  % Use normalized uicontrol units rather than the default 'pixels'.
  %--------------------------------------------------------------------

  Hf_fig = gcf;
  CVIEW = get(gca,'View');
  if abs(CVIEW(1))>180, CVIEW(1)=CVIEW(1)-(360*sign(CVIEW(1))); end
  set(Hf_fig,'DefaultUicontrolUnits','normalized');

  %--------------------------------------------------------------------
  % Define azimuth and elevation sliders.
  % The position is in normalized units (0-1).  
  % Maximum, minimum, and initial values are set.
  %--------------------------------------------------------------------
  
  Hc_asli = uicontrol( Hf_fig,'style','slider',...
    'position',[.09 .02 .3 .05],...
    'min',-180,'max',180,'value',CVIEW(1),...
    'callback','mmview3d(991)');
  
  Hc_esli = uicontrol( Hf_fig,'style','slider',...
    'position',[.92 .5 .04 .42],...
    'min',-90,'max',90,'val',CVIEW(2),...
    'callback','mmview3d(992)');
  
  %--------------------------------------------------------------------
  % Place the text boxes showing the minimum and max values at the
  % ends of each slider.  These are text displays, and cannot be edited.
  %--------------------------------------------------------------------
  
  uicontrol(Hf_fig,'style','text',...
    'pos',[.02 .02 .07 .05],...
    'string',num2str(get(Hc_asli,'min')));
  
  uicontrol(Hf_fig,'style','text',...
    'pos',[.39 .02 .07 .05],...
    'string',num2str(get(Hc_asli,'max')));
  
  uicontrol(Hf_fig,'style','text',...
    'pos',[.915 .45 .05 .05],...
    'string',num2str(get(Hc_esli,'min')));
  
  uicontrol(Hf_fig,'style','text',...
    'pos',[.915 .92 .05 .05],...
    'string',num2str(get(Hc_esli,'max')));
  
  %--------------------------------------------------------------------
  % Place labels for each slider
  %--------------------------------------------------------------------
  
  uicontrol(Hf_fig,'style','text',...
    'pos',[.095 .08 .15 .05],...
    'string','Azimuth');
  
  uicontrol(Hf_fig,'style','text',...
    'pos',[.885 .39 .11 .05],...
    'string','Elevation');
  
  %--------------------------------------------------------------------
  % Define the current value text displays for each slider.
  %--------------------------------------------------------------------
  % These are editable text displays to display the current value
  % of the slider and at the same time allow the user to enter
  % a value using the keyboard.
  %
  % Note that on the text is centered on X Window Systems, but is
  % left-justified on MS-Windows and Macintosh machines.
  %
  % The initial value is found from the value of the sliders.
  % When text is entered into the text area and the return key is
  % pressed, the callback string is evaluated.
  %--------------------------------------------------------------------
  
  Hc_acur = uicontrol(Hf_fig,'style','edit',...
    'pos',[.25 .08 .13 .053],...
    'string',num2str(get(Hc_asli,'val')),...
    'callback','mmview3d(993)');
  
  Hc_ecur = uicontrol(Hf_fig,'style','edit',...
    'pos',[.885 .333 .11 .053],...
    'string',num2str(get(Hc_esli,'val')),...
    'callback','mmview3d(994)');
  
  %--------------------------------------------------------------------
  % Place a 'Done' button in the lower right corner.
  % When clicked, all of the uicontrols will be erased.
  %--------------------------------------------------------------------
  
  uicontrol(Hf_fig,'style','push',...
    'pos',[.88 .02 .10 .08],...
    'backgroundcolor',[.7 .7 .8],...
    'string','Done',...
    'callback','delete(findobj(gcf,''Type'',''uicontrol''))');
  
  %--------------------------------------------------------------------
  % Place a 'Revert' button next to the 'Done' button.
  % When clicked, the view reverts to the original view.
  %--------------------------------------------------------------------
  
  uicontrol(Hf_fig,'style','push',...
    'pos',[.77 .02 .10 .08],...
    'backgroundcolor',[.7 .7 .8],...
    'string','Revert',...
    'callback','mmview3d(995)');
  
else

%======================================================================
% This is the callback section.
%======================================================================

  %--------------------------------------------------------------------
  % The callbacks for the azimuth and elevation sliders will:
  %--------------------------------------------------------------------
  %   1) get the value of the slider and display it in the text window
  %   2) set the 'View' property to the current values of the azimuth 
  %        and elevation sliders.
  %--------------------------------------------------------------------
  
  if cmd == 991
    set(Hc_acur,'string',num2str(get(Hc_asli,'val')));
    set(gca,'View',[get(Hc_asli,'val'),get(Hc_esli,'val')]);

  elseif cmd == 992
    set(Hc_ecur,'string',num2str(get(Hc_esli,'val')));
    set(gca,'View',[get(Hc_asli,'val'),get(Hc_esli,'val')]);
  
  %--------------------------------------------------------------------
  % The 'slider current value' text display callbacks:
  %--------------------------------------------------------------------
  % When text is entered into the text area and the return key is
  % pressed, the entered value is compared to the limits.
  %
  % If the limits have been exceeded, the display is reset to the 
  % value of the slider and an error message is displayed.
  %
  % If the value is within the limits, the slider is set to the 
  % new value, and the view is updated.
  %--------------------------------------------------------------------
  
  elseif cmd == 993
    if str2num(get(Hc_acur,'string')) < get(Hc_asli,'min')...
      | str2num(get(Hc_acur,'string')) > get(Hc_asli,'max')
        set(Hc_acur,'string',num2str(get(Hc_asli,'val')));
        disp('ERROR - Value out of range');
    else
      set(Hc_asli,'val',str2num(get(Hc_acur,'string')));
      set(gca,'View',[get(Hc_asli,'val'),get(Hc_esli,'val')]);
    end

  elseif cmd == 994
    if str2num(get(Hc_ecur,'string')) < get(Hc_esli,'min')...
      | str2num(get(Hc_ecur,'string')) > get(Hc_esli,'max')
        set(Hc_ecur,'string',num2str(get(Hc_esli,'val')));
        disp('ERROR - Value out of range');
    else
      set(Hc_esli,'val',str2num(get(Hc_ecur,'string')));
      set(gca,'View',[get(Hc_asli,'val'),get(Hc_esli,'val')]);
    end

  %--------------------------------------------------------------------
  % Revert to the original view.
  %--------------------------------------------------------------------
  
  elseif cmd == 995
    set(Hc_asli,'val',CVIEW(1));
    set(Hc_esli,'val',CVIEW(2));
    set(Hc_acur,'string',num2str(get(Hc_asli,'val')));
    set(Hc_ecur,'string',num2str(get(Hc_esli,'val')));
    set(gca,'View',[get(Hc_asli,'val'),get(Hc_esli,'val')]);
  
  %--------------------------------------------------------------------
  % Must be bad arguments.
  %--------------------------------------------------------------------
  
  else
    disp('mmview3d: Illegal argument.')
  end
end