function xOut = anrect( Action, hTarget, u )
%ANRECT Generic rectangle creation and display function.
% ANRECT(ACTION,TARGET,U) is the creation and display
% function for the rectangle object in the simulation animation block.
%
% ACTION may be one of the following strings:
% '#Draw' Draw object.
% '#MouseClick' Respond to a mouse click on the object
% '#New' Create new object.
% '#Modify' Modify object parameters (only sets up a dialog box).
% '#ChangeLook' Change the visual appearance of the object based on dialog box.
% '#UpdateIC' Update internal data based on current position or given data.
% '#Select' Select the object (change color, add handles, whatever)
% '#Deselect' Deselect the object
%
% TARGET is an HG handle. Usually it is the handle to the object, but it may
% also be the axes or figure handle, depending on the requirements of ACTION
%
% U is additional data that may be required by a given ACTION. For instance, U
% is the vector of inputs to the animation block when #Draw is used.
%
% See also ANLINE, ANRECT, ANTEXT, ANOBJ.
% "User-adjustable" properties in the data structure:
% XPos X Coordinates of object (XData)
% YPos Y Coordinates of object (YData)
% Color Color ([R G B])
%
% Self or Non-adjusting properties of data structure:
% Method 'anpatch'
% Animated flag to indicate that there is a DrawString
% DrawString EVALable text string that redraws the object based on u
% Writen By: Loren Dean
% Writen On: March, 1995.
% 4/02/97 KGK converted to switch/case from if(strcmp)
% 4/02/97 KGK converted to use the Figure's new UserData Structure
% 4/02/97 KGK check inputs up front
% 4/02/97 KGK hard code a str2mat call
% 4/07/97 KGK convert TextStrings and Values to cell arrays for prpdlg
% 4/07/97 KGK make one prpdlg callback for all fields
% 4/09/97 KGK Total revamp of #New, #Update, and #Modify using new Data Structure
% 4/10/97 KGK Redo #Draw
% 4/11/97 KGK Redo function call systax and help text
% 4/11/97 KGK Finialize v5 optimization and begin debugging!
% 4/14/97 KGK Add #Select and #Deselect to Action list
% 4/14/97 KGK Change #Update to #UpdateIC
% 4/15/97 KGK Tax time! Ooops, properties must be stored as string expressions!
% 4/15/97 KGK Whoopie! Add AnimationFlag and DrawString to UserData structure!
% 4/17/97 KGK Update #UpdateIC to handle calls from andrag (i.e. no data)
% 4/25/97 KGK Update #Modify, #UpdateIC, and #Draw for Ansim2
% 5/02/97 KGK Clean up
% 5/9/97 KGK rewrites for Ansim2
% $Author$ $State$
% Copyright (c) 1984-97 by The MathWorks, Inc.
% $Revision$ $Date$
%
%###############################################################################
% %
% BEGIN % main
% %
%###############################################################################
%-------------------------------------------------------------------------------
% Check input data -- we must know the target object!
%-------------------------------------------------------------------------------
if nargin == 1, hTarget = gcbo; end;
if nargin < 3 , u = []; end;
%-------------------------------------------------------------------------------
% Retrieve UserData structure (keeper of all knowledge--and handles!)
% Note: hTarget may be either the animation Figure or the animation Object.
% They both have userdata structures, though, and usage will depend on ACTION.
%-------------------------------------------------------------------------------
sTargetUserData = get( hTarget, 'UserData' );
%-------------------------------------------------------------------------------
% Perform the task specified by Action
%-------------------------------------------------------------------------------
switch Action,
%%%%%%%%%%%%
%%% Draw %%%
%%%%%%%%%%%%
case '#Draw',
%---------------------------------------------------------------------------
% This is it! Simulation time! Assume all data is correct and Move Fast!
%---------------------------------------------------------------------------
% Translation of input variables and their derivitives:
% hTarget = Object
% sTargetUserData = Object UserData
%
% Valid call combinations (ACTION-specific variable names):
% andot( #Draw, hObj, u ) redraw object hObj using data vector u
%---------------------------------------------------------------------------
% Check to see if this object is animated
if sTargetUserData.Animated,
% u-specific properties exist. Evaluate the draw string.
% Display error message if there is a problem, but keep on going!
% NOTE: DrawString assumes parameter variable is named: u
% NOTE: DrawString assumes object handle is named: hTarget
eval( ['set(hTarget' sTargetUserData.DrawString ')'], 'disp(lasterr);');
end % if sTargetUserData.Animated
%%%%%%%%%%%%%%%%%%%
%%% Mouse Click %%%
%%%%%%%%%%%%%%%%%%%
case '#MouseClick',
%---------------------------------------------------------------------------
% Mouse click on object. Limited input expected, so we have to derive stuff
%---------------------------------------------------------------------------
% Valid call combinations (ACTION-specific variable names):
% andot #MouseClick (hTarget assumed to be gcbo)
%---------------------------------------------------------------------------
% Pass off info to the Axes to deal with.
anaxes( '#ButtonPress', get( hTarget, 'Parent' ), hTarget )
%%%%%%%%%%%
%%% New %%%
%%%%%%%%%%%
case '#New',
%---------------------------------------------------------------------------
% Make a new Object
%---------------------------------------------------------------------------
% Translation of input variables and their derivitives:
% hTarget = Axes
% u = [],
% OR a [X,Y] coordinate vector,
% OR data structure describing new object properties
%
% Valid call combinations (ACTION-specific variable names):
% andot( #New , hAxes ) add new generic obj to the axes
% andot( #New , hAxes, [X,Y] ) add new generic obj at [X,Y] in the axes
% andot( #New , hAxes, sObjData ) add new obj using data in structre
%---------------------------------------------------------------------------
if nargin==1, error('Axes handle not provided. New object was not added.'); end
% Create the new object
hRect = local_MakeNewObject( hTarget, u );
% Return output, if requested
if nargout, xOut = hRect; end
%%%%%%%%%%%%%%
%%% Modify %%%
%%%%%%%%%%%%%%
case '#Modify',
%---------------------------------------------------------------------------
% User wants to modify object properties. Build a property dialog box.
%---------------------------------------------------------------------------
% Translation of input variables and their derivitives:
% hTarget = Object
% sTargetUserData = Object UserData
% u = [], OR handle to animation figure
%
% Valid call combinations (ACTION-specific variable names):
% andot( #Modify, hObj ) modify the obj (hFig = grandparent of hObj)
% andot( #Modify, hObj, hFig ) modify the obj (hFig for free)
%---------------------------------------------------------------------------
local_ModifyObject( hTarget, sTargetUserData, u );
%%%%%%%%%%%%%%%%%%
%%% ChangeLook %%%
%%%%%%%%%%%%%%%%%%
case '#ChangeLook',
%---------------------------------------------------------------------------
% The object is being modified, and we just want to see what the changes
% look like (purely cosmetic).
%---------------------------------------------------------------------------
% Translation of input variables and their derivitives:
% hTarget = Object
% sTargetUserData = Object UserData
% u = handle to uicontrol which has made change
%
% Valid call combinations (ACTION-specific variable names):
% andot( #UpdateIC, hObj, hUI ) update hObj based on uicontrol hUI
%---------------------------------------------------------------------------
ItWorked = local_CosmeticChange( hTarget, sTargetUserData, u );
if nargout, xOut = ItWorked; end
%%%%%%%%%%%%%%
%%% Update %%%
%%%%%%%%%%%%%%
case '#UpdateIC',
%---------------------------------------------------------------------------
% The object has been modified, now we need to update it's internal
% records and adjust the axes position, etc.
%---------------------------------------------------------------------------
% Translation of input variables and their derivitives:
% hTarget = Object
% sTargetUserData = Object UserData
% u = property/value structure w/fields named by property
% OR []
% Valid call combinations (ACTION-specific variable names):
% andot( #UpdateIC, hObj, ) update hObj based on Position
% andot( #UpdateIC, hObj, sObjData ) update hObj based on sObjData
%---------------------------------------------------------------------------
local_UpdateObject( hTarget, sTargetUserData, u )
%%%%%%%%%%%%%%
%%% Select %%%
%%%%%%%%%%%%%%
case '#Select',
% Use built-in
set( hTarget, 'Selected', 'on' )
%%%%%%%%%%%%%%%%
%%% Deselect %%%
%%%%%%%%%%%%%%%%
case '#Deselect',
% Use built-in
set( hTarget, 'Selected', 'off' )
%%%%%%%%%%%
%%% END %%%
%%%%%%%%%%%
end % if strcmp action
%###############################################################################
% %
% END % main
% %
%###############################################################################
%###############################################################################
% %
% BEGIN % local_MakeNewObject
% %
%###############################################################################
function hObj = local_MakeNewObject( WorkingAxes, sObjectData )
% LOCAL_MAKENEWOBJECT creates a new object on the WorkingAxes
% Assume that someone else will modify the new object
%
% local_MakeNewObject( AXES, DATA ) adds a new RECTANGLE using DATA
% If DATA is a position vector, the elements must be:
% [x,y]
% If DATA is a structure, the fields must be:
% DATA.XPos x-coordinates of lower-left corner
% DATA.YPos y-coordinates of lower-left corner
% DATA.Wide Width
% DATA.High Height
% DATA.Color RGB Color of rectangle
%
% Writen By: Kevin G Kohrt
% Writen On: April 1997
% 5/6/97 KGK change ButtonDown function to call anaxes directly so this
% could become a Private function
% 5/7/97 KGK change inputs to accept Axes rather than figure
% (thereby reducing assumptions about figure's data structure)
%
% Writen By: Kevin G Kohrt
% Writen On: April 1997
%-------------------------------------------------------------------------------
% Evaluate/Define the object's properties
%-------------------------------------------------------------------------------
if isstruct( sObjectData ),
%--------------------------------------------------------------------
% We've been given all of the object information in a data structure
% (i.e. new object came from data file or property dialog box)
%--------------------------------------------------------------------
% Get the initial conditions for this figure
u = angetic( get( WorkingAxes, 'Parent' ) );
% evaluate all parameters based in IC
eval( [ 'XPos =' sObjectData.XPos ';' , ...
'YPos =' sObjectData.YPos ';' , ...
'Wide =' sObjectData.Wide ';' , ...
'High =' sObjectData.High ';' , ...
'MyColor =' sObjectData.Color ';' ...
], ...
'disp( lasterr ); return;' ...
);
% Force other required fields to be set
sObjectData.Method = 'anrect';
sObjectData.Animated = logical(0);
sObjectData.DrawString = '';
else,
%--------------------------------------------------------------------
% We must define our own default values
% (i.e. new object from menus or toolbar)
%--------------------------------------------------------------------
cXYLim = get( WorkingAxes, {'Xlim','Ylim','XTick','YTick'} );
% Get reasonable x & y positions based on how the user called for a new obj
% Note: if from menu, sObjectData should be empty, else use last mouse click
if isempty(sObjectData)
% Put object in middle of axes
XPos = mean( cXYLim{1} );
YPos = mean( cXYLim{2} );
else,
% Button-click provided
XPos = sObjectData(1);
YPos = sObjectData(2);
end
% Width and height in proportion to the axes
Wide = diff( cXYLim{1} )/4;
High = diff( cXYLim{2} )/5;
% Round the coordinates off to 1/10 of an axes gradation,
% or, if ticks are turned off, use 1/20th of the axes limits)
XGradation = min( [ diff(cXYLim{3}), diff(cXYLim{1})/2 ] )/10;
YGradation = min( [ diff(cXYLim{4}), diff(cXYLim{2})/2 ] )/10;
XPos = round2num( XPos, XGradation );
YPos = round2num( YPos, YGradation );
Wide = round2num( Wide, XGradation );
High = round2num( High, YGradation );
% arbitrarily define remaining properties
MyColor = [1 1 1] - get( WorkingAxes, 'Color' ); % High contrast
% Initialize a new UserData structure -- remember, store as strings!
% (With the exception of SelectColor )
sObjectData = struct( 'Animated' , logical(0) , ...
'DrawString' , '' , ...
'Method' , 'anrect' , ...
'XPos' , num2str( XPos ) , ...
'YPos' , num2str( YPos ) , ...
'Wide' , num2str( Wide ) , ...
'High' , num2str( High ) , ...
'Color' , ['[ ' num2str( MyColor ) ' ]'] ...
);
end; % if isstruct( sObjectData )
%-------------------------------------------------------------------------------
% Calculate X and Y data to build a rectangle
%-------------------------------------------------------------------------------
XData = XPos + [0 Wide Wide 0 0];
YData = YPos + [0 0 High High 0];
%-------------------------------------------------------------------------------
% Create the object
%-------------------------------------------------------------------------------
hObj = line( ...
'Parent' , WorkingAxes , ...
'LineStyle' ,'-' , ...
'XData' , XData , ...
'YData' , YData , ...
'Color' , MyColor , ...
'ButtonDownFcn' , ...
'anaxes(''#ButtonPress'',get(gcbo,''Parent''),gcbo)', ...
'EraseMode' , 'normal' , ...
'BusyAction' , 'queue' , ...
'Interruptible' , 'off' , ...
'UserData' , sObjectData , ...
'Tag' , 'AnimRect' ...
);
%###############################################################################
% %
% END % local_MakeNewObject
% %
%###############################################################################
%###############################################################################
% %
% BEGIN % local_ModifyObject
% %
%###############################################################################
function local_ModifyObject( hObject, sObjUserData, WorkingFig )
% local_ModifyObject gathers a property list & calls up a property dialog box
%
% Writen By: Kevin G Kohrt
% Writen On: April 1997
%-------------------------------------------------------------------------------
% Define the HG Object Properties that are to be (re)defined on the object
%-------------------------------------------------------------------------------
cObjectProperties = { 'XPos'
'YPos'
'Wide'
'High'
'Color'
};
%-------------------------------------------------------------------------------
% Retrieve current property expressions (strings) to put in Property Dialog Box
%-------------------------------------------------------------------------------
cPropertyValues = { sObjUserData.XPos
sObjUserData.YPos
sObjUserData.Wide
sObjUserData.High
sObjUserData.Color
};
%-------------------------------------------------------------------------------
% Record the field names so we get a proper structure back with #UpdateIC
%-------------------------------------------------------------------------------
cFieldNames = cObjectProperties;
%-------------------------------------------------------------------------------
% Define prompts for ETBoxes in which user will enter new data
% Note: order must match Object Properties, above
%-------------------------------------------------------------------------------
cTextStrings = { 'X Coordinate of lower left corner:'
'Y Coordinate of lower left corner:'
'Width of rectangle:'
'Height of rectangle:'
'Color ([R,G,B]):'
};
%-------------------------------------------------------------------------------
% Get the WorkingFigure, if not already provided, and its UserData
%-------------------------------------------------------------------------------
if isempty( WorkingFig ) | ~ishandle( WorkingFig )
% Figure is parent of axes is parent of object
WorkingFig = get( get( hObject, 'Parent' ), 'Parent' );
end % if
sFigUserData = get( WorkingFig, 'UserData' );
%-------------------------------------------------------------------------------
% Assign an appropriate Tag and Title for the Property Dialog box
%-------------------------------------------------------------------------------
FigTitle = [ 'Rectangle Object Properties: ', ...
get_param( sFigUserData.m.hAnimationBlock, 'Name') ];
%-------------------------------------------------------------------------------
% Create the Property Dialog box
%-------------------------------------------------------------------------------
anprpdlg( '#Initialize' , hObject , WorkingFig , ...
cTextStrings , cObjectProperties , ...
cPropertyValues , cFieldNames , ...
'anrect' , '#UpdateIC' , ...
FigTitle ...
);
%###############################################################################
% %
% END % local_ModifyObject
% %
%###############################################################################
%###############################################################################
% %
% BEGIN % local_UpdateObject
% %
%###############################################################################
function local_UpdateObject( hObject, sObjectUserData, s )
%-------------------------------------------------------------------------------
% The object has been modified, now we need to update it's internal records
%-------------------------------------------------------------------------------
%-------------------------------------------------------------------------------
% Check to make sure we have s
%-------------------------------------------------------------------------------
if isempty( s ),
% Only the Object's position has been changed
% Make our own u vector based on those facts
% Get the old position
OldXString = sObjectUserData.XPos;
OldYString = sObjectUserData.YPos;
% Get the new position
NewPos = get( hObject, {'XData', 'YData'} );
% Get initial condtions (must be u vector)
u = angetic( get( get( hObject, 'Parent' ), 'Parent' ) );
% Calculate change in position of lower left corner
DiffX = NewPos{1}(1) - eval( OldXString );
DiffY = NewPos{2}(1) - eval( OldYString );
% Create our own u structure based on the old info
s = struct( 'XPos' , OldXString , ...
'YPos' , OldYString , ...
'Wide' , sObjectUserData.Wide , ...
'High' , sObjectUserData.High , ...
'Color' , sObjectUserData.Color ...
);
% Only change data if this object has actually moved
if DiffX | DiffY,
s.XPos = [ OldXString ' + ' num2str( DiffX ) ];
s.YPos = [ OldYString ' + ' num2str( DiffY ) ];
end % if DiffX | DiffY
end % if isempty
%-------------------------------------------------------------------------------
% Put together a drawing string to speed up the drawing process!
%-------------------------------------------------------------------------------
DrawStr = '';
% Check to see if each property is simulation-dependent by looking for
% a "u()" in the property value expression. Add simulation-dependent
% property-value pair to the draw string.
if findstr('u(', [ s.XPos s.Wide ]),
DrawStr = [ DrawStr ',''XData'',' ,...
s.XPos ' + [0 ' s.Wide ' ' s.Wide ' 0 0]' ];
end
if findstr('u(', [ s.YPos s.High ]),
DrawStr = [ DrawStr ',''YData'',' ,...
s.YPos ' + [0 0 ' s.High ' ' s.High ' 0]' ];
end
if findstr('u(', s.Color), DrawStr = [ DrawStr ',''Color'',' s.Color ]; end
%-------------------------------------------------------------------------------
% Determine if the object is animated
%-------------------------------------------------------------------------------
sObjectUserData.Animated = ~isempty( DrawStr ); % If empty, it's not animated
%-------------------------------------------------------------------------------
% Complete the DrawString if it is animated
%-------------------------------------------------------------------------------
if sObjectUserData.Animated,
% Convert the object handle into an accurate string
% (accurate to 999 plus 14 decimal places)
chObjectHandle = num2str( hObject, 17 );
% Assemble fully functional DrawString
DrawStr = [ 'set(' chObjectHandle DrawStr ');' ];
end % if sObjectUserData.Animated
%-------------------------------------------------------------------------------
% Fill the Object's UserData structure with data passed in
% (except the hilite color, which is a fixed value based on current color)
%-------------------------------------------------------------------------------
sObjectUserData.DrawString = DrawStr;
sObjectUserData.XPos = s.XPos;
sObjectUserData.YPos = s.YPos;
sObjectUserData.Wide = s.Wide;
sObjectUserData.High = s.High;
sObjectUserData.Color = s.Color;
%-------------------------------------------------------------------------------
% Put the UserData back in the object
%-------------------------------------------------------------------------------
set( hObject, 'UserData', sObjectUserData )
%-------------------------------------------------------------------------------
% Force Rescale of the axes
%-------------------------------------------------------------------------------
anscale( get(hObject,'Parent'), hObject, 'Force' )
%-------------------------------------------------------------------------------
% Tell the figure to deselect this dot (it's color has probably changed anyway)
%-------------------------------------------------------------------------------
anfigure( '#DeselectObj', get( get( hObject, 'Parent' ), 'Parent' ), hObject );
%###############################################################################
% %
% END % local_UpdateObject
% %
%###############################################################################
%###############################################################################
% %
% BEGIN % local_CosmeticChange
% %
%###############################################################################
function ItWorked = local_CosmeticChange( hObj, s, hETBox )
%---------------------------------------------------------------------------
% The object is being modified, and we just want to see what the changes
% look like (purely cosmetic).
%---------------------------------------------------------------------------
% Translation of input variables and their derivitives:
% hTarget = Object
% sTargetUserData = Object UserData
% u = handle to uicontrol which has made change
%
% Valid call combinations (ACTION-specific variable names):
% andot( #UpdateIC, hObj, hUI ) update hObj based on uicontrol hUI
%---------------------------------------------------------------------------
% Get the initial conditions for the object's figure
u = angetic( get( get( hObj, 'Parent' ), 'Parent' ) );
% Find the Property and Value to be changed, as well as the change record
% Note: we have cleverly stored the exact object property in the UI's tag
% So that all we have to do is get it and eval it!
cPropValHist = get( hETBox, {'Tag','String'} );
ObjProperty = cPropValHist{1};
NewValue = cPropValHist{2};
% We need some current data on the HG primitive (in case a cosmetic change has
% already been made--but has not been stored in the UserData yet)
cXYData = get( hObj, {'XData','YData'} );
XData = cXYData{1};
YData = cXYData{2};
% Assume all goes well (makes for cleaner EVAL statements below)
ItWorked = 1;
% Assign property and value strings
switch ObjProperty
case 'XPos',
% New base X Coordinate Value (subtract old X-coord from XData and add new)
EvalStr = [ 'set( hObj,''XData'', XData - XData(1) + ' NewValue ' );' ];
case 'Wide',
% New Width Value (reassemble rectangle from old base X-coord)
EvalStr = [ 'set( hObj, ''XData'', ', ...
'XData(1) + [0 ' NewValue ' ' NewValue ' 0 0] );' ];
case 'YPos',
% New base Y Coordinate Value (subtract old Y-coord from YData and add new)
EvalStr = [ 'set( hObj,''YData'', YData - YData(1) + ' NewValue ' );' ];
case 'High',
% New Height Value (reassemble rectangle from old base Y-coord)
EvalStr = [ 'set( hObj, ''YData'', ', ...
' YData(1) + [0 0 ' NewValue ' ' NewValue ' 0] );' ];
case 'Color',
% New Color Value
NewValue = colorfixer( NewValue );
set( hETBox, 'String', NewValue );
EvalStr = [ 'set( hObj, ''Color'', ' NewValue ');' ];
otherwise
ItWorked = 0;
return
end
% Try to set the property to the value
% (Should be a numeric property value)
eval( EvalStr, 'ItWorked = 0;' );
