diff --git a/site_ansto/instrument/config/hmm/hmm_cylindrical_detector_configuration.tcl b/site_ansto/instrument/config/hmm/hmm_cylindrical_detector_configuration.tcl index 0528df82..97afe61c 100644 --- a/site_ansto/instrument/config/hmm/hmm_cylindrical_detector_configuration.tcl +++ b/site_ansto/instrument/config/hmm/hmm_cylindrical_detector_configuration.tcl @@ -1,8 +1,10 @@ +sicsdatafactory new ::histogram_memory::two_theta_array namespace eval histogram_memory { ::utility::mkVar detector_radius_mm Float user radius true detector true true sicslist setatt detector_radius_mm units mm - ##\brief Calculate two_theta array from X bin boundaries + ## + # @brief Calculate two_theta array from X bin boundaries # # requires detector_active_width_mm det_radius_mm deg_per_rad proc two_theta {args} { @@ -31,20 +33,24 @@ namespace eval histogram_memory { set max_b [OAT_TABLE -get X_MAX] set min_b [OAT_TABLE -get X_MIN] set scale_factor [expr {$deg_per_radian*($det_width_mm/$det_radius_mm) / ($max_b - $min_b)}] - set offset [lindex $arglist 0] + set offset [::histogram_memory::detector_posn_degrees] return [calc_axis $proc_name $scale_factor $offset [OAT_TABLE -get X_boundaries] $args] } } } set script_name ::histogram_memory::two_theta publish $script_name user - sicslist setatt $script_name privilege internal + sicslist setatt $script_name privilege user sicslist setatt $script_name kind script sicslist setatt $script_name access read_only sicslist setatt $script_name dtype floatvarar sicslist setatt $script_name dlen 100 sicslist setatt $script_name klass detector - sicslist setatt $script_name mutable false + sicslist setatt $script_name control false + sicslist setatt $script_name data true + sicslist setatt $script_name nxsave true + sicslist setatt $script_name mutable true sicslist setatt $script_name long_name two_theta sicslist setatt $script_name units [::histogram_memory::two_theta -units] + unset script_name }