function figNumber=animinit(namestr)
%ANIMINIT Initializes a figure for SIMULINK animations.

%	Ned Gulley, 6-21-93
%	Copyright (c) 1984-94 by The MathWorks, Inc.

if (nargin == 0)
	namestr = 'SIMULINK Animation';
end

[existFlag,figNumber]=figflag(namestr);
    
if ~existFlag,
    % Now initialize the whole figure...
    position=get(0,'DefaultFigurePosition');
    position(3:4)=[400 300];
    figNumber=figure( ...
        'Name',namestr, ...
        'NumberTitle','off', ...
	'BackingStore','off', ...
	'Position',position);
    axes( ...
        'Units','normalized', ...
        'Position',[0.05 0.05 0.70 0.95], ...
        'Visible','off', ...
	'DrawMode','fast');

    %====================================
    % Information for all buttons
    labelColor=[0.8 0.8 0.8];
    yInitPos=0.90;
    top=0.95;
    bottom=0.05;
    left=0.80;
    btnWid=0.15;
    btnHt=0.10;
    % Spacing between the button and the next command's label
    spacing=0.04;
    
    %====================================
    % The CONSOLE frame
    frmBorder=0.02;
    yPos=0.05-frmBorder;
    frmPos=[left-frmBorder yPos btnWid+2*frmBorder 0.9+2*frmBorder];
    h=uicontrol( ...
        'Style','frame', ...
        'Units','normalized', ...
        'Position',frmPos, ...
	'BackgroundColor',[0.5 0.5 0.5]);

    %====================================
    % The CLOSE button
    labelStr='Close';
    callbackStr='close(gcf)';
    closeHndl=uicontrol( ...
        'Style','pushbutton', ...
        'Units','normalized', ...
        'Position',[left bottom btnWid btnHt], ...
        'String',labelStr, ...
        'Callback',callbackStr);
end;

cla reset;
set(gca,'DrawMode','fast');
axis off;
