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

%   Ned Gulley, 6-21-93
%   Copyright (c) 1990-1998 by The MathWorks, Inc. All Rights Reserved.
%   $Revision: 5.4 $

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;
