# site_f.mac for beamline 6 ID-D
#
# hp 17.11.1999
# hp 07.11.2000
# hp 02.05.2001 changed data format to support two filter banks
#
#
#
#
#
#
################################################################################
#
# hp 02.12.1999
# hp 09.11.2000
#
# Loading other important macros
#
################################################################################
#
# hp_mono_6idd		specific macros for the 6idd monochromator
# hp_motor_6idd		virtual movement of Huber diffractometer motors
# hp_gpib		handles gpib and serial input output to provide unified commands
# hp_lakeshore340	temperature control, uses hp_gpib
# hp_fio		Macros that control the handling of fio files
# hp_move		Macros for moving up to 10 motors together
# hp_ubm		Macros for UB-matrices
# hp_DAC_vmic4116	Macros for the VMIC 16 Bit digital analog converter (DAC)
# hp_filter_6idd	Macros for controlling the filters
# hp_mca		Macros for controlling the EPICS / Canberra MCA
# dw_pv			Macros for PV reading, moving and scanning
# dw_escan		Macros for Escan, Q-values are written into data file at each energy
# dw_shutter		Macros for opening and closing the shutters
#
	qdofile("/usr/local/spec/lib/hp_mono_6idd.mac")
	qdofile("/usr/local/spec/lib/hp_motor_6idd.mac")
#	qdofile("/usr/local/spec/lib/hp_gpib.mac")
#	qdofile("/usr/local/spec/lib/hp_lakeshore340.mac")
	qdofile("/usr/local/spec/lib/hp_fio.mac")
	qdofile("/usr/local/spec/lib/hp_move.mac")
	qdofile("/usr/local/spec/lib/hp_ubm.mac")
	qdofile("/usr/local/spec/lib/hp_DAC_vmic4116.mac")
	qdofile("/usr/local/spec/lib/hp_filter_6idd.mac")
	qdofile("/usr/local/spec/lib/hp_mca.mac")
	qdofile("/usr/local/spec/lib/dw_pv.mac")
	qdofile("/usr/local/spec/lib/dw_escan.mac")
	qdofile("/usr/local/spec/lib/dw_shutter.mac")
#
#
#
################################################################################
#
# hp 01.12.1999
# hp 07.11.2000
#
# Definitions for additional information to be written to the data files
# These definitions cannot be loaded from a simple macro file. They have to be
# either in SPECD/site_f.mac or in spec.mac in the local directory.
#
################################################################################
#
# 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 (All Banks: Filter, Thickness in mm, Transmission, calculated for energy)\n\
#F1 %d %g %g %g (Bank 1:Filter, Thickness in mm, Transmission, calculated for energy)\n\
#F2 %d %g %g %g (Bank 2:Filter, Thickness in mm, 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, \
			Filter[0],FILTER_thickness[0],FILTER_transmission[0],FILTER_energy[0], \
			Filter[1],FILTER_thickness[1],FILTER_transmission[1],FILTER_energy[1], \
			UB[0],UB[1],UB[2],UB[3],UB[4],UB[5],UB[6],UB[7],UB[8])'
#
# store two additional columns with temperatures in the scan. Therefore in 
# Fheader the number of columns was increased by 2
#
# normal (cols +=2)
def Flabel '"DegK_reg  DegK_sample  "'
def Fout   'sprintf("%g %g ",TEMP_RG,TEMP_CS)'
#
# in additions first two MCA ROI are stored (cols +=4)
#def Flabel '"DegK_reg  DegK_sample  ROI1  ROI2  "'
#def Fout   'sprintf("%g %g %g %g ",TEMP_RG,TEMP_CS,MCA_roi[0][0],MCA_roi[1][0])'
#
#
#
#