34 lines
691 B
Tcl
34 lines
691 B
Tcl
# Author Jing Chen (jgn@ansto.gove.au)
|
|
|
|
|
|
source $cfPath(hmm)/hmm_configuration_common_1.tcl
|
|
source $cfPath(hmm)/hmm_cylindrical_detector_configuration.tcl
|
|
set sim_mode [SplitReply [hmm_simulation]]
|
|
|
|
proc ::histogram_memory::init_OAT_TABLE {} {
|
|
}
|
|
|
|
proc CAT_TABLE {args} {
|
|
}
|
|
|
|
proc ::histogram_memory::init_CAT_TABLE {} {
|
|
}
|
|
|
|
##
|
|
# @brief Return the detector position
|
|
proc ::histogram_memory::detector_posn_degrees {} {
|
|
return [SplitReply [stth]]
|
|
}
|
|
|
|
proc ::histogram_memory::pre_count {} {}
|
|
proc ::histogram_memory::post_count {} {}
|
|
proc ::histogram_memory::isc_initialize {} {
|
|
}
|
|
|
|
proc histmem {cmd args} {
|
|
eval "_histmem $cmd $args"
|
|
}
|
|
publish histmem user
|
|
|
|
|