linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Restore status from status.tcl when initialising SICS

Browse Source 
Initialise hmm.

r2130 | ffr | 2007-08-16 17:04:07 +1000 (Thu, 16 Aug 2007) | 3 lines
This commit is contained in:
Ferdi Franceschini
2007-08-16 17:04:07 +10:00
committed by Douglas Clowes
parent 826633c70a
commit b09d07915c
3 changed files with 35 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
site_ansto/instrument/reflectometer/platypus_configuration.tcl
View File

@@ -1,11 +1,10 @@
# $Revision: 1.11 $
# $Date: 2007-07-22 05:23:40 $
# $Revision: 1.12 $
# $Date: 2007-08-16 07:03:04 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: ffr $
# Required by server_config.tcl
VarMake Instrument Text Internal
sicslist setatt Instrument privilege internal
Instrument platypus
Instrument lock
@@ -17,10 +16,14 @@ source server_config.tcl
########################################
# INSTRUMENT SPECIFIC CONFIGURATION
#set hmm_mode normal
fileeval $cfPath(motors)/motor_configuration.tcl
########
# Parameters set above the restore command will be clobbered by
# the values in the status.tcl file
restore
fileeval $cfPath(plc)/plc.tcl
fileeval $cfPath(counter)/counter.tcl
fileeval $cfPath(hmm)/hmm_configuration.tcl
@@ -33,26 +36,10 @@ source gumxml.tcl
#::histogram_memory::setmode pulser
#::histogram_memory::setmode calibration
::histogram_memory::setmode normal
#::histogram_memory::hmm_initialize
::histogram_memory::hmm_setup transparent 0 3 oat_nyc_eff oat_nxc_eff oat_ntc_eff
hmm_start 0
::histogram_memory::initialize
MakeStateMon hmscan
proc instrument_set_sobj_attributes {} {
motor_set_sobj_attributes
::utility::set_motor_attributes
::utility::set_histomem_attributes
::utility::set_sobj_attributes
::counter::set_sobj_attributes
::nexus::set_sobj_attributes
::histogram_memory::set_sobj_attributes
## TODO move the following to the new ansto gumxml.tcl
sicslist setatt getgumtreexml privilege internal
}
instrument_set_sobj_attributes
MakeStateMon hmscan
server_set_sobj_attributes
buildHDB instrument_dictionary
#buildHDB [instname]_dictionary
fileeval extraconfig.tcl

25
site_ansto/instrument/rsd/kowari_configuration.tcl
View File

@@ -1,10 +1,10 @@
# $Revision: 1.6 $
# $Date: 2007-07-22 05:58:51 $
# $Revision: 1.7 $
# $Date: 2007-08-16 07:04:07 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: ffr $
# Required by server_config.tcl
VarMake Instrument Text Internal
VarMake Instrument Text Internal
sicslist setatt Instrument privilege internal
Instrument kowari
Instrument lock
@@ -17,10 +17,14 @@ source server_config.tcl
########################################
# INSTRUMENT SPECIFIC CONFIGURATION
#set hmm_mode normal
fileeval $cfPath(motors)/motor_configuration.tcl
########
# Parameters set above the restore command will be clobbered by
# the values in the status.tcl file
restore
fileeval $cfPath(plc)/plc.tcl
fileeval $cfPath(counter)/counter.tcl
fileeval $cfPath(hmm)/hmm_configuration.tcl
@@ -32,14 +36,8 @@ source gumxml.tcl
#::histogram_memory::setmode pulser
#::histogram_memory::setmode calibration
::histogram_memory::setmode normal
#::histogram_memory::hmm_initialize
::histogram_memory::hmm_setup transparent 0 3 oat_nyc_eff oat_nxc_eff oat_ntc_eff
hmm_start 0
::histogram_memory::initialize
VarMake detector_active_height_mm Float User
detector_active_height_mm 200.0
VarMake detector_active_width Float User
detector_active_width 200.0
VarMake crystal_type Text User
VarMake crystal_wavelength_A Float User
@@ -60,12 +58,14 @@ detector_description This detects Kowaris
detector_description lock
MakeStateMon hmscan
if 0 {
proc instrument_set_sobj_attributes {} {
motor_set_sobj_attributes
::utility::set_motor_attributes
::utility::set_histomem_attributes
::utility::set_sobj_attributes
::plc::set_sobj_attributes
::counter::set_sobj_attributes
::nexus::set_sobj_attributes
::histogram_memory::set_sobj_attributes
@@ -74,6 +74,7 @@ proc instrument_set_sobj_attributes {} {
}
instrument_set_sobj_attributes
}
server_set_sobj_attributes
buildHDB instrument_dictionary
#buildHDB [instname]_dictionary
fileeval extraconfig.tcl

19
site_ansto/instrument/sans/quokka_configuration.tcl
View File

@@ -1,5 +1,5 @@
# $Revision: 1.2 $
# $Date: 2007-07-22 05:23:40 $
# $Revision: 1.3 $
# $Date: 2007-08-16 07:04:07 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: ffr $
@@ -21,6 +21,11 @@ source server_config.tcl
fileeval $cfPath(velsel)/velsel.tcl
fileeval $cfPath(motors)/motor_configuration.tcl
########
# Parameters set above the restore command will be clobbered by
# the values in the status.tcl file
restore
fileeval $cfPath(plc)/plc.tcl
fileeval $cfPath(counter)/counter.tcl
fileeval $cfPath(hmm)/hmm_configuration.tcl
@@ -32,18 +37,17 @@ source gumxml.tcl
#::histogram_memory::setmode pulser
#::histogram_memory::setmode calibration
::histogram_memory::setmode normal
#::histogram_memory::hmm_initialize
::histogram_memory::hmm_setup transparent 0 3 oat_nyc_eff oat_nxc_eff oat_ntc_eff
hmm_start 0
::histogram_memory::initialize
MakeStateMon hmscan
if 0 {
proc instrument_set_sobj_attributes {} {
motor_set_sobj_attributes
::utility::set_motor_attributes
::utility::set_histomem_attributes
::utility::set_sobj_attributes
::plc::set_sobj_attributes
::counter::set_sobj_attributes
::nexus::set_sobj_attributes
::histogram_memory::set_sobj_attributes
@@ -52,6 +56,7 @@ proc instrument_set_sobj_attributes {} {
}
instrument_set_sobj_attributes
}
server_set_sobj_attributes
buildHDB instrument_dictionary
#buildHDB [instname]_dictionary
fileeval extraconfig.tcl