; IA IDL Startup file - executed when starting IDL
Print, 'PIA startup file'
Print, '----------------'
Print, ' '

device, font='6x12' 
device, pseudo_color=8
window, color=128, Title='Loading the PHT-Interactive Analysis', $
   xpos=200, ypos=300
xyouts, 90, 350, '    Welcome to the ', charsize=4, /device
xyouts, 90, 250, 'PHT-Interactive Analysis ', charsize=4, /device
xyouts, 380, 50, 'Please wait, I am loading the PIA executable', charsize=1,$
	/device

; Defining all PIA system variables
ia_init_sysv


; ADD the INCLUDE PATH FOLLOWING THIS COMMENT
 IF !VERSION.OS EQ "vms" THEN $
   !PATH = STRMID(!PIA_TOP,0,STRLEN(!PIA_TOP)-1)+".INCL]," + !PATH $
 ELSE  !PATH = !PIA_TOP+"incl:" + !PATH
 
; ADD the Support PATH FOLLOWING THIS COMMENT
 IF !VERSION.OS EQ "vms" THEN $
   !PATH = STRMID(!PIA_TOP,0,STRLEN(!PIA_TOP)-1)+".SUPPORT]," + !PATH $
 ELSE  !PATH = !PIA_TOP+"support:" + !PATH

; ADD YOUR OWN IA TEST PATH FOLLOWING THIS COMMENT
 IF !VERSION.OS EQ "vms" THEN $
   !PATH = "DISK$DOWN3:[CGABRIEL.ia.wrk]," + !PATH $
 ELSE  !PATH = "/net/penca/iso_iac/pia6/wrk:" + !PATH
;
; ADD help PATH FOLLOWING THIS COMMENT
 IF !VERSION.OS EQ "vms" THEN $
   !help_PATH = !PIA_HELP+"," + !HELP_PATH $
 ELSE !HELP_PATH = !PIA_HELP+":" + !HELP_PATH
;
; ADD YOUR OWN printer configuration FOLLOWING THIS COMMENT
 IF !VERSION.OS EQ "vms" THEN $
   setlog, "pslaser", "cps_e015"  $
 ELSE  setenv, 'pslaser=lw2'

DELVAR, TEMPDIR, FITDIR

; WINDOW UPDATES MUST BE DONE BY IDL IN CASE OF AN ALPHA MACHINE
if !version.arch eq 'alpha' then device,retain=2

; load the PIA executable
RESTORE, !PIA_TOP + 'pia_export.sav'

ia_start

; set the font (for plots) you want to have as default one
wdelete
pia