commands_common.tcl

Added histmem and runscan command

hmm_configuration_common_1.tcl
Set histmem_cmd  status feedback to IDLE on COUNTEND event

nxscripts_common_1.tcl
When saving a set of files the time-stamp is offset from the time the first file is created.

scan_common_1.tcl
The hmscan hook functions now set feedback on the runscan_cmd

sct_positmotor_common.tcl
Added mk_sct_positmotor command to create a script context controller which runs a motor to an indexed position.

Added positmotor_configuration.tcl to echidna, wombat, kowari, quokka, platypus.

sans/config/motors/positmotor_configuration.tcl
Has an example of a positmotor configuration for the sample changer

sanx/quokka_configuration.tcl
Setup feedback nodes for AttRotDeg and RotApDeg.

motor_utility.tcl
Added reldrive and relrun commands along with getmotpar convenience command.

r2725 | ffr | 2008-10-27 15:55:48 +1100 (Mon, 27 Oct 2008) | 26 lines

site_ansto/instrument/config/hmm/hmm_configuration_common_1.tcl

@@ -1,5 +1,5 @@
-# $Revision: 1.41 $
-# $Date: 2008-09-24 04:28:44 $
+# $Revision: 1.42 $
+# $Date: 2008-10-27 04:55:41 $
 # Author: Ferdi Franceschini
 # Based on the examples in the hs_test.tcl sample configuration by Mark Lesha.
 # http://gumtree.ansto.gov.au:9080/nbicms/bragg-systems/histogram-server/hs_test.tcl/view
@@ -1578,10 +1578,11 @@ sicslist setatt ::histogram_memory::time units seconds
 
 ##
 # @brief Update the beam monitors when the histmem has finished counting.
-proc ::histogram_memory::update_bm {} {
+proc ::histogram_memory::countend_event {} {
+  ::histogram::histmem_cmd -set feedback status IDLE
   bm status
 }
-publish ::histogram_memory::update_bm user
+publish ::histogram_memory::countend_event user
 
 ##
 # @brief Sets histogram server to default configuration, initialises SICS histogram memory
@@ -1645,7 +1646,7 @@ proc ::histogram_memory::ic_initialize {} {
     hmm configure hmDataPath ../HMData
     hmm configure hmconfigscript $configuration
     ::histogram_memory::configure_dims
-    scriptcallback connect hmm COUNTEND ::histogram_memory::update_bm
+    scriptcallback connect hmm COUNTEND ::histogram_memory::countend_event
   } message ] {
     if {$::errorCode=="NONE"} {return $message}
     return -code error $message