24 lines
929 B
Tcl
24 lines
929 B
Tcl
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 /instrument/monitor/counts sicsdev]
|
|
::hdb::set_save /instrument/monitor true
|
|
::hdb::set_save /data 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) counts monitor privilege user mutable true
|
|
array unset fbarr
|
|
}
|