From 13d37720786d7961fac2c99074d0b656c59cdb44 Mon Sep 17 00:00:00 2001 From: Douglas Clowes Date: Mon, 27 Oct 2014 17:51:14 +1100 Subject: [PATCH] Regen 3He SCT driver --- site_ansto/instrument/config/beamline/sct_he3_polanal.tcl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/site_ansto/instrument/config/beamline/sct_he3_polanal.tcl b/site_ansto/instrument/config/beamline/sct_he3_polanal.tcl index 7388a93d..9de60842 100644 --- a/site_ansto/instrument/config/beamline/sct_he3_polanal.tcl +++ b/site_ansto/instrument/config/beamline/sct_he3_polanal.tcl @@ -172,6 +172,9 @@ proc ::scobj::he3_polanal::setValue {tc_root nextState cmd_str} { set cmd "${cmd_str}${par}" # setValue hook code starts set cmd "${cmd_str}" + if {[string equal -nocase [sct target] "refresh"]} { + set cmd "${cmd_str}" + } if {[string equal -nocase [sct target] "dn"]} { set cmd "${cmd_str} -" } @@ -300,7 +303,7 @@ proc ::scobj::he3_polanal::mkDriver { sct_controller name device_class simulatio hsetprop ${scobj_hpath}/analyser/spin nxalias "${name}_analyser_spin" if {[string equal -nocase "${simulation_flag}" "false"]} { - ${sct_controller} poll ${scobj_hpath}/analyser/spin 10 + ${sct_controller} poll ${scobj_hpath}/analyser/spin 1100 ${sct_controller} write ${scobj_hpath}/analyser/spin } else { ::scobj::he3_polanal::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for he3_polanal" @@ -388,7 +391,7 @@ proc ::scobj::he3_polanal::mkDriver { sct_controller name device_class simulatio hsetprop ${scobj_hpath}/polariser/spin nxalias "${name}_polariser_spin" if {[string equal -nocase "${simulation_flag}" "false"]} { - ${sct_controller} poll ${scobj_hpath}/polariser/spin 10 + ${sct_controller} poll ${scobj_hpath}/polariser/spin 900 ${sct_controller} write ${scobj_hpath}/polariser/spin } else { ::scobj::he3_polanal::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for he3_polanal"