;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;*NAME:    
;
;	pro focus
;
;*VERSION:
;
;	$Id$
;
;*CATEGORY:
;					
;*CALLING SEQUENCE:
;
;	focus
;
;*INPUT:
;
;*OUTPUT:
;
;*PARAMETERS:
;
;*KEYWORDS:
;
;*CALLED FUNCTIONS:
;	MY_GAUSS2DFIT	MY_CURVEFIT
;
;*CALLED PROCEDURES:
;
;	my_gauss2_funct	MY_GAUSS2_FUNCT	TELESCL	TELE		IM_RADIUS
;	W_KURVE		DISP_EVAL	READ_SMALLIM		READLIST
;	TELE_SMALLIM	DEFINE_SMALLIM	CHANGEBOXSIZE_EVENT	CHANGEBOXSIZE
;	OPLOTBOXIM	PLOTBOX		OPLOTBOX		DISPLAY_BOX
;	EVALUATE
;
;*PURPOSE:
;
;	Interactive Focus Control Software.
;	In Advance a list containing the filenames of the focus series
;	should be written to a file saved in the same directory as the
;	focus files itself. This list can be read interactively rom inside
;	the program.
;	By clicking onto a spot of the displayed image you can set a box
;	for evaluating this spot. The boxsize can be changed but is the same 
;	for all spots. If the box is too small the evaluation of the spot 
;	may fail. But the box should also be choosen such than no neighboured 
;       spectrum should reach into the box.  
;       Beside displaying the results these are also given to the outer world
;	via a common block. They are:
;	xfwhm: 	  FWHM in xsize of the 2D-gauss fit
;	yfwhm:    FWHM in ysize of the 2D-gauss fit
;	smallpos: Position of the spots in the image
;	smallim:  stack of the spot images 
;
;*MODIFICATION HISTORY:
;
;	TBE: 16/05/2001 - VERSION 1.0	initial programming   
;   
;          
;*AUTHORS:
;
;	TBE		Thomas Becker	Astrophysikalisches Institut Potsdam
;					An der Sternwarte 16
;					D-14481 Potsdam
;                                       email: tbecker@aip.de
;					Tel. (049) 331/7499 - 414
;
;----------------------------------------------------------------------------