FlyBox(message)

function FlyBox(message)
%function flybox(message)                                        jdc 28-May-04
%
%PURPOSE: Display a runtime message that you really can't afford to miss   
%
%INPUT: 
%    message - any ASCII text ........................ default: '       Reload the Error Map ...'
%
%OUTPUT:
%    animated message box (msgbox.m) w/visual and sound effects

if ~nargin, message = '       Reload the Error Map ...'; end

Radius = 0.100+0.350*rand;
Ystart = 0.100;
nsteps = 200;
nwav = [3 7 9 35 36 38 39 43 50 54];
rand('state',sum(100*clock));
I = randperm(10);
wavnumber = sprintf('%1.0f',nwav(I(1)));
[Y,Fs] = wavread(eval(['''c:\Program Files\Windows NT\Pinball\Sound' wavnumber '.wav'''])); % works on Windows 2000 & XPfly
h=msgbox(message,'           REMINDER','modal');
set(h,'Units','normalized');
pos = get(h,'Position');
Xstart = 0.80-pos(3)-Radius;
set(h,'Color','g','Units','normalized','Position',[Xstart Ystart pos(3:4)]); 
sound(Y,Fs);
radius = Radius*(nsteps:-.5:nsteps/2)/nsteps;
for i = 1:nsteps,
    X = Xstart+radius(i)*sin(i/nsteps*4*pi)+0.05*rand;
    Y = Ystart+radius(i)*(1 - cos(i/nsteps*4*pi))+0.05*rand;
    set(h,'Position',[X Y pos(3:4)],'Color',[.5+rand/2 .5+rand/2 .5+rand/2]);
    pause(1/nsteps);
end
global UpdateLECboxpos
UpdateLECboxpos = get(h,'Position');
set(h,'Color','g');