function alex

%
% M FILE TO START ALEX.
% FOR INSTALLATION PROCEDURE SEE BELOW.
%

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

% DEFINE GLOBAL THE IMPORTANT VARIABLES
% NO MODIFICATION REQUIRED 
global H I
global Fname FullFname
global ed_zrange1 ed_zrange2 ed_colormap ed_contrast ed_offset
global SB_frame B_frame
global FileFilter
global Handleimg Handlebar Handleimgax Handleframeax Handlefig
global handleline
global FontName FontSize FontWeight
global map Extramap MapSize MapNum
global Clipboard Undofun
global Uibgcolor Figbgcolor
global AlexDir TempDir savepath readpath extrafun_path help_path
global LineSpace FigNormalSize
global SelObj
global Fcoordext Fprofext Fcontourext Fstatext
global Coords 
global Device
global Fast3Dplot AutoZrange


%%%%% INSTALLATION: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%=====================================================================%
%            PROPERLY SET THE NEXT TRHEE STRING ASSIGMENTS             %
%          (CHANGE ONLY THE CHARACTERS BETWEEN THE 'QUOTES').         %
%                                                                     %
% - The ALEX directory.                                               %
% - A temporary files directory.                                      %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%  
             
AlexDir='~wrightc/alex';
TempDir='~wrightc/alex/temp';                

% SAVE THE FILE AND TYPE ALEX AT THE MATLAB PROMPT.
% REMEMBER TO ADD  ALEXDIR TO THE MATLAB PATH USING THE
% COMMAND PATH(PATH, ALEXDIR) WHEN STARTING ALEX FROM A 
% DIRECTORY DIFFERENT THAN ALEXDIR.
% NO OTHER CHANGES ARE REQUIRED FOR THE INSTALLATION
%======================================================================
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% FOR A GENERAL EXTRA_FUNCTION COLLECTION, UNCOMMENT THE NEXT LINE. 
% WITH THE NEXT extrafun_path ASSIGMENT ONE CAN SELECT FOR A GENERAL
% EXTRA_FUNCTION COLLECTION (UNCOMMENT THE FIRST LINE) OR FOR A
% PERSONAL EXTRA_FUNCTION COLLECTION (UNCOMMENT THE SECOND LINE).

extrafun_path=[AlexDir 'extrafun/'];
% extrafun_path=[getenv('HOME') '/extrafun/'];  



% DISPLAY THE ALEX LOGO
logo=alexlogo;

%  START VARIABLE ASSIGNMENT
FontName   = 'screen';
FontSize   = 12;
FontWeight = 'demi';
Fname='';
FullFname='';
FileFilter= '';    
Device=1;
MapSize=240;
MapNum=1;
Uibgcolor=[0.55 0.55 0.55];
Figbgcolor=[0.55 0.55 0.55];
LineSpace=1;

% SET THE AUTOMATIC FILE NAME EXTENSIONS.
Fcoordext='.coord.mat';
Fprofext='.prof.mat';
Fcontourext='.contour.mat';
Fstatext='.stat.mat';

readpath = [pwd filesep];
savepath = [pwd filesep];
help_path = [AlexDir 'help' filesep];

% UPGRADE THE MATLAB PATH
%path(path, [AlexDir '3Dviewer']);
%path(path, extrafun_path(1:length(extrafun_path)-1));

% LOAD THE .alex FILE IN THE USER DIRECTORY AND SET SOME VARIABLES
% TO THE VALUES OF THE LAST ALEX SESSION.
load_setup

% LOAD THE COLORMAPS FILE
cmaps('default');
cs=screencenter;
close(logo);
clear logo;

% INITIALIZE THE MAIN ALEX WINDOW
%p1=[cs(1)-868/2 cs(2)-706/2 868 706];
%FigNormalSize=[cs(1)-944/2 cs(2)-810/2 944 810];
wd=868/1024;
ht=706/800;
FigNormalSize=[(1-wd)/2 (1-ht)/2 wd ht];
Handlefig=figure('units','normalized','position', FigNormalSize, 'NumberTitle', 'off','menubar','none',...
		 'Name', 'Alex  (Beta-1 version)', 'color', Figbgcolor);

% INITIALIZE THE ALEX PULLDOWN MENU
alexmenu(Handlefig);
setalexmenu('off');

% INITIALIZE THE IMAGE FRAMEBOX
Handleframeax=axes( 'YTick', [], 'XTick', [], 'DataAspectRatio', [1 1 1],... 
		    'XlimMode', 'auto', 'yLimMode', 'auto',...
		    'color', 'k', 'Xcolor', get(Handlefig, 'color'),... 
		    'Ycolor', get(Handlefig, 'color'));

Handleimg=0;

% CREATE THE COLORBAR AND THE COLORMAP UICONTROLS
Handlebar=cbar;

% CREATE THE CONTROL FRAME 
B_frame=buttonframe;

% INIZIALIZE THE STATUSBAR
statusbar;

% CREATE THE IMAGE TITLE
imagetitle;

% SET THE ZOOM ON
setzoomstatus(1);