99 lines
2.6 KiB
Tcl
99 lines
2.6 KiB
Tcl
##
|
|
# @brief Instrument parameters
|
|
# TODO There should be an NXgeometry entry for each distance, and linked to an NXgeometry
|
|
# entry for the chopper [SICS-108].
|
|
foreach {vn klass units} {
|
|
detector_distance parameter mm
|
|
detector_base parameter mm
|
|
slit4_distance parameter mm
|
|
slit4_base parameter mm
|
|
sample_distance parameter mm
|
|
sample_base parameter mm
|
|
slit3_distance parameter mm
|
|
slit3_base parameter mm
|
|
guide1_distance parameter mm
|
|
guide1_base parameter mm
|
|
guide2_distance parameter mm
|
|
guide2_base parameter mm
|
|
slit2_distance parameter mm
|
|
slit2_base parameter mm
|
|
chopper4_distance parameter mm
|
|
chopper4_base parameter mm
|
|
chopper3_distance parameter mm
|
|
chopper3_base parameter mm
|
|
chopper2_distance parameter mm
|
|
chopper2_base parameter mm
|
|
chopper1_distance parameter mm
|
|
chopper1_base parameter mm
|
|
chopper1_phase_offset parameter degrees
|
|
chopper2_phase_offset parameter degrees
|
|
chopper3_phase_offset parameter degrees
|
|
chopper4_phase_offset parameter degrees
|
|
slit1_distance parameter mm
|
|
slit1_base parameter mm
|
|
omega parameter degrees
|
|
twotheta parameter degrees
|
|
anal_distance polarizer mm
|
|
anal_base polarizer mm
|
|
x_pixels_per_mm parameter mm
|
|
y_pixels_per_mm parameter mm
|
|
} {
|
|
::utility::mkVar $vn float manager $vn true $klass true true
|
|
sicslist setatt $vn units $units
|
|
}
|
|
|
|
foreach vn {
|
|
slave
|
|
master
|
|
} {
|
|
::utility::mkVar $vn int manager $vn true parameter false true
|
|
sicslist setatt $vn mutable true
|
|
}
|
|
|
|
foreach vn {
|
|
mode
|
|
guide_element
|
|
} {
|
|
::utility::mkVar $vn Text manager $vn true parameter true true
|
|
}
|
|
|
|
|
|
detector_distance 10000
|
|
detector_base 300
|
|
anal_distance 6894.94
|
|
anal_base 20
|
|
slit4_distance 5331.15
|
|
slit4_base 20
|
|
sample_distance 5045.4
|
|
sample_base 50
|
|
slit3_distance 4744.4
|
|
slit3_base 20
|
|
guide1_distance 2900.4 ;# distance measured to axis of rotation
|
|
guide1_base
|
|
guide2_distance 3200 ;# distance measured to midpoint of the 2nd compound mirror (i.e. closest to the sample)
|
|
guide2_base
|
|
slit2_distance 1909.9
|
|
slit2_base 20
|
|
chopper4_distance 808
|
|
chopper4_base 20
|
|
chopper4_phase_offset 14.465
|
|
chopper3_distance 359
|
|
chopper3_base 20
|
|
chopper3_phase_offset 14.59
|
|
chopper2_distance 103
|
|
chopper2_base 20
|
|
chopper2_phase_offset 14.301
|
|
chopper1_distance 0
|
|
chopper1_base 20
|
|
chopper1_phase_offset -29.801
|
|
slit1_distance -256.1
|
|
slit1_base 20
|
|
mode NONE
|
|
omega -1
|
|
twotheta -1
|
|
guide_element NONE
|
|
master 1
|
|
slave 3
|
|
x_pixels_per_mm 1
|
|
y_pixels_per_mm 1.177
|