function ff=alexlogo(flag)
%ALEXLOGO  Display the Alex logo image. 
% 
%        F=ALEXLOGO
%
%        F is the figure handle.
%             
%        Claudio  21 Feb, 1995.
%

%
% Copyright (c) 1995 by Claudio Rivetti and Mark Young
% claudio@alice.uoregon.edu,    mark@alice.uoregon.edu
%

global AlexDir PP

if nargin==1
  dh=40;
else
  dh=0;
end

f=findobj('Name', 'Welcome to ALEX');

if isempty(f)
  load alexlogo.mat
  c=screencenter;
  w=size(aLogo,2);
  h=size(aLogo,1);
  pos=[c(1)-w/2 c(2)-h/2 w h+dh];
  f=figure('position', pos,'NumberTitle','off','Name','Welcome to ALEX',...
  		   'color', [.4 .4 .4], 'Resize', 'off', 'WindowButtonDownFcn', 'close(gcf)');
  image(aLogo);
  colormap(Logomap)
  set(gca, 'units', 'pixels', 'position', [1 dh w h]);
  axis off;
else
  figure(f);
end
drawnow


if nargin==1

PP=['                                                                     ';...
	'    The ALEX project                                                 ';...
	'        Bustamante Lab, HHMI, IMB, University of Oregon              ';...
	'                                                                     ';...
	'    ALEX is a MATLAB-based image analysis toolbox.                   ';...
	'    This project was motivated by a need to analyze images           ';...
	'    from atomic force microscopy in various ways.                    ';...
	'                                                                     ';...
	'    ALEX was conceived by Claudio Rivetti here in the laboratory of  ';...
	'    Carlos Bustamante, The Howard Hughes Medical Institute and       ';...
	'    Institute of Molecular Biology, The University of Oregon, Eugene ';...
	'    Oregon, in the fall of 1994. Throughout 1995, the program was    ';...
	'    worked on by Claudio, myself, and Chip Walker.                   ';...
	'                                                                     ';...
	'                                                                     ';...
	'                                                                     ';...
	'                    Mark Young, 22 August, 1995                      ';...
	'                                                                     '];

	uicontrol(gcf, 'style', 'push',...
			'string', 'The Alex Project',...
			'position', [30 8 200, 22],...
			'inter', 'yes',...
			'units', 'pixels',...
			'CallBack', 'global PP;display_text(PP, ''The Alex Project'', [300   380   680   450]);');

	uicontrol(gcf, 'style', 'push',...
			'string', 'Mail Comments',...
			'inter', 'yes',...
			'position', [270 8 200, 22],...
			'units', 'pixels',...
			'CallBack', 'sendmail(''edit'');');
else
  pause(2);
end

if nargout == 1
  ff=f;
end

return