function diamondsetup
%  
%  diamondsetup
%
%  Sets up the diamond splash screen and runs other setup routines
%

%
%  Version SWD971030
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% This matlab source code was originally     %
% developed as part of "DIAMOND" at          %
% Los Alamos National Laboratory. It may     %
% be copied, modified, and distributed in    %
% any form, provided:                        %
%  a) This notice accompanies the files and  %
%     appears near the top of all source     %
%     code files.                            %
%  b) No payment or commercial services are  %
%     received in exchange for the code.     %
%                                            %
% Original copyright is reserved by the      %
% Regents of the University of California,   %
% in addition to Scott W. Doebling, Phillip  %
% J. Cornwell, Erik G. Straser, and Charles  %
% R. Farrar.                                 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


%%===================================
%%  For the SPLASH SCREEN
%%===================================

global HANDLES pathname

HANDLES.hfspl = figure('numbertitle','off','name','DIAMOND: STARTUP',...
		'menubar','none','resize','on','units','pixels','position',[150 20 700 500]);

haspl = axes('visible','off');

hspl(1) = text(0.5,0.8,'DIAMOND');

set(hspl(1),'fontname','times','fontsize',72,'Color','r','HorizontalAlignment','Center','Fontangle','italic','fontweight','bold')

hspl(7) = text(0.5,0.65,'Damage Identification and Modal Analysis of Data');
set(hspl(7),'horiz','center','fontsize',12,'fontname','times','fontangle','italic')

hspl(6) = text(0.5,0.575,'VERSION SWD980224');
set(hspl(6),'HorizontalAlignment','Center','fontsize',10)

hspl(2) = text(0.5,0.45,'Created by Scott Doebling, Phil Cornwell, Erik Straser, and Chuck Farrar');
set(hspl(2),'fontname','times','fontsize',12,'HorizontalAlignment','Center')

hspl(3) = text(0.5,0.35,'Created at Los Alamos National Laboratory');
set(hspl(3),'HorizontalAlignment','Center')

hspl(4) = text(0.5,0.30,'Under the Auspices of the US Department of Energy');
set(hspl(4),'HorizontalAlignment','Center')

hspl(5) = text(0.5,0.25,'Source code may be copied, modified and distributed subject to stated conditions');
set(hspl(5),'HorizontalAlignment','Center')

hspl(8) = text(0.5, 0.10, 'DIAMOND IS STARTING UP...');
set(hspl(8),'HorizontalAlignment','Center')


drawnow
%figure('numbertitle','off','name','Menu figure',...
%		'menubar','none','resize','on','units','pixels','position',[150 20 700 500]);
f=uimenu('Label','File');
  uimenu(f,'Label','New Figure','Callback','figure');
hdmspl = uicontrol('style','radiobutton','string','START','visible','on',...
	'units','normal',...
	'position',[0.4 0.07 0.2 0.05],...
	'callback','testa');

HANDLES.hfigdmnd=figure( ...
    'Name','Diamond - Modal Analysis', ...
    'NumberTitle','off', ...
    'Resize','on', ...
    'units','normal',...
    'visible','off',...
    'Position',[0.05 0.05 0.9 0.9],...
    'menubar','none',...
    'closerequestfcn','errordlg(''Do not attempt to close DIAMOND windows improperly'')');
set(hdmspl,'visible','on')

