## # @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