# spec.mac local config file for su1a
#
# hp 20.10.1999
# hp 18.04.2001
#
#
#
################################################################################
#
# hp 21.10.1999
#
# this files are automatically loaded at each start of spec
#
################################################################################
#
	qdofile("/export/home/hupfeld/beamline/hp_gpib.mac")
	qdofile("/export/home/hupfeld/beamline/hp_lakeshore340.mac")
	qdofile("/export/home/hupfeld/beamline/hp_fio.mac")
#	qdofile("/export/home/hupfeld/beamline/hp_chkbeam.mac")
#
#
#
#
################################################################################
#
# hp 01.12.1999
#
# Definitions for additional information to be written to the data files
#
################################################################################
#
# Short scan analysis at the end of the scan
#
def Ftail 'printf("#R %d %g %g %g %g %g %g %g %g (scan nr., Y_PEAK, at pos., FWHM, at pos., COM, SUM, Time, TEMP_CS)\n", \
	SCAN_N, pl_MAX, pl_xMAX, pl_FWHM, pl_CFWHM, pl_COM, pl_SUM, time()-EPOCH, TEMP_CS);'
#
# store additional information in scan header
#
def Fheader '_cols+=2;_read_absor;_undulator_get_position;printf("\
#E %g %g %g %g (Energy in keV, Lambda in Angstroem, Undulator Gap + Energy)\n\
#K %g %g (Temperature Setpoint in K and C) \n\
#F %d %g %g %g (Filter, Thickness in mm Al, Transmission, calculated for energy)\n\
#U %g %g %g %g %g %g %g %g %g\n",\
			hc_over_e/LAMBDA,LAMBDA,UNDULATOR_GAP,UNDULATOR_keV, \
			TEMP_SP,DEGC_SP, \
			FILTER,FILTER_THICKNESS,FILTER_TRANSMISSION,FILTER_ENERGY, \
			UB[0],UB[1],UB[2],UB[3],UB[4],UB[5],UB[6],UB[7],UB[8])'
#
# store an additional column with the temperature in the scan. Therefore in 
# Fheader the number of columns was increased by 1
#
def Flabel '"DegK  DegK_reg  "'
def Fout   'sprintf("%g %g ",TEMP_CS,TEMP_RG)'
#
#
#
#