4380176000
Merged in-situ changes from ics1-platypus r2835 | ffr | 2009-12-09 18:16:26 +1100 (Wed, 09 Dec 2009) | 3 lines
81 lines
2.2 KiB
Tcl
81 lines
2.2 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
|
|
} {
|
|
::utility::mkVar $vn float manager $vn true $klass true true
|
|
sicslist setatt $vn units $units
|
|
}
|
|
|
|
foreach vn {
|
|
mode
|
|
guide_element
|
|
} {
|
|
::utility::mkVar $vn Text manager $vn true parameter true true
|
|
}
|
|
|
|
|
|
detector_distance 10000
|
|
detector_base 300
|
|
anal_distance 1808
|
|
anal_base 20
|
|
slit4_distance 5527
|
|
slit4_base 20
|
|
sample_distance 5129
|
|
sample_base 50
|
|
slit3_distance 4808
|
|
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 1895
|
|
slit2_base 20
|
|
chopper4_distance 823
|
|
chopper4_base 20
|
|
chopper3_distance 370
|
|
chopper3_base 20
|
|
chopper2_distance 102
|
|
chopper2_base 20
|
|
chopper1_distance 0
|
|
chopper1_base 20
|
|
slit1_distance -244
|
|
slit1_base 20
|
|
mode NONE
|
|
omega -1
|
|
twotheta -1
|
|
guide_element NONE
|