26 lines
1.1 KiB
Tcl
26 lines
1.1 KiB
Tcl
#FIXME Nexus path info is coded into this source. This means that if you change the
|
|
# monitor data path in the config/hipadaba/common_instrument_dictionary.tcl then
|
|
# you may also need to change the paths here
|
|
bm SetExponent 0
|
|
sicslist setatt bm privilege internal
|
|
namespace eval monitor {
|
|
command count {text:timer,monitor mode float: preset} {
|
|
#FIXME remove dependency on hdb path
|
|
::monitor::count -set feedback status BUSY
|
|
bm setmode $mode
|
|
bm count $preset
|
|
::monitor::count -set feedback counts [SplitReply [bm getcounts]];
|
|
::monitor::count -set feedback status IDLE
|
|
array set param [::data::gumtree_save -list param]
|
|
data axis 1 $param(run_number)
|
|
data data_set [::utility::hgetplainprop /monitor/data sicsdev]
|
|
::hdb::set_save / true
|
|
::hdb::set_save /instrument/detector false
|
|
}
|
|
::monitor::count -addfb int counts text status
|
|
::monitor::count -set feedback status IDLE
|
|
array set fbarr [::monitor::count -list feedback]
|
|
::utility::mkData $fbarr(counts) data monitor privilege user mutable true
|
|
array unset fbarr
|
|
}
|