tas/config/hmm/hmm_configuration.tcl
Taipan doesn't not have a histogram memory server. tas/config/motors/positmotor_configuration.tcl Taipan doesn't currently have discrete position motors config/commands/commands_common.tcl Taipan doesn't have a histogram memory server. config/nexus/nxscripts_common_1.tcl Specify internal path name convention for Taipan hdf files r3282 | ffr | 2011-11-25 10:11:59 +1100 (Fri, 25 Nov 2011) | 13 lines
This commit is contained in:
Ferdi Franceschini
committed by
Douglas Clowes
Douglas Clowes
parent
2c3a32f2e3
commit
e5431d5e97
@@ -5,7 +5,8 @@
|
|||||||
namespace eval commands { }
|
namespace eval commands { }
|
||||||
|
|
||||||
proc ::commands::ic_initialize {} {
|
proc ::commands::ic_initialize {} {
|
||||||
namespace eval ::histogram {
|
if {[info procs "histmem" ] != ""} {
|
||||||
|
namespace eval ::histogram {
|
||||||
set NS [namespace current]
|
set NS [namespace current]
|
||||||
variable parameters
|
variable parameters
|
||||||
array set parameters {mode UNKNOWN preset UNKNOWN freq UNKNOWN frame_source UNKNOWN}
|
array set parameters {mode UNKNOWN preset UNKNOWN freq UNKNOWN frame_source UNKNOWN}
|
||||||
@@ -70,6 +71,7 @@ namespace eval ::histogram {
|
|||||||
::histogram::histmem_cmd -set feedback status IDLE
|
::histogram::histmem_cmd -set feedback status IDLE
|
||||||
sicslist setatt ::histogram::histmem_cmd long_name histmem
|
sicslist setatt ::histogram::histmem_cmd long_name histmem
|
||||||
sicslist setatt ::histogram::histmem_cmd id histmem
|
sicslist setatt ::histogram::histmem_cmd id histmem
|
||||||
|
}
|
||||||
}
|
}
|
||||||
# SCAN COMMANDS
|
# SCAN COMMANDS
|
||||||
namespace eval ::scan {
|
namespace eval ::scan {
|
||||||
|
|||||||
@@ -50,6 +50,7 @@ namespace eval nexus {
|
|||||||
"quokka" "fname"
|
"quokka" "fname"
|
||||||
"platypus" "simple"
|
"platypus" "simple"
|
||||||
"lyrebird" "simple"
|
"lyrebird" "simple"
|
||||||
|
"taipan" "simple"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
namespace eval ::nexus::histmem {}
|
namespace eval ::nexus::histmem {}
|
||||||
|
|||||||
@@ -1,49 +1,8 @@
|
|||||||
# Author Jing Chen (jgn@ansto.gove.au)
|
namespace eval histogram_memory {
|
||||||
# Note: all following functions's bodies need to be implemented in real Taipan deployment
|
# Define HP_HMM to make nxscripts_common_1.tcl::nexus::process_filetype_policy happy when setting filetype=BEAM_MONITOR
|
||||||
|
set HP_HMM ""
|
||||||
|
|
||||||
source $cfPath(hmm)/hmm_configuration_common_1.tcl
|
# Define isc_initialize to give server_config.tcl:server_init something to call
|
||||||
set sim_mode [SplitReply [hmm_simulation]]
|
proc isc_initialize {} {
|
||||||
|
|
||||||
proc ::histogram_memory::init_OAT_TABLE {} {
|
|
||||||
}
|
|
||||||
|
|
||||||
proc ::histogram_memory::pre_count {} {}
|
|
||||||
proc ::histogram_memory::post_count {} {}
|
|
||||||
proc ::histogram_memory::isc_initialize {} {
|
|
||||||
# Instrument specific X and Y dimension names
|
|
||||||
#variable INST_NXC "oat_nxc_eff"
|
|
||||||
#variable INST_NYC "oat_nyc_eff"
|
|
||||||
|
|
||||||
if [ catch {
|
|
||||||
::histogram_memory::init_hmm_objs
|
|
||||||
if {$::sim_mode == "true"} {
|
|
||||||
#hmm configure oat_ntc_eff 1
|
|
||||||
#hmm configure $INST_NYC 127
|
|
||||||
#hmm configure $INST_NXC 127
|
|
||||||
}
|
|
||||||
#BAT_TABLE -init
|
|
||||||
#CAT_TABLE -init
|
|
||||||
#SAT_TABLE -init
|
|
||||||
#OAT_TABLE -init
|
|
||||||
#FAT_TABLE -init
|
|
||||||
::histogram_memory::ic_initialize
|
|
||||||
|
|
||||||
#detector_active_height_mm [expr 5.08 * 192]
|
|
||||||
#detector_active_width_mm [expr 5.08 * 192]
|
|
||||||
#detector_active_height_mm lock
|
|
||||||
#detector_active_width_mm lock
|
|
||||||
|
|
||||||
::histogram_memory::init_OAT_TABLE
|
|
||||||
::histogram_memory::upload_config Filler_defaults
|
|
||||||
|
|
||||||
#set ::histogram_memory::histmem_axes(HOR) /instrument/detector/x_pixel_offset
|
|
||||||
#set ::histogram_memory::histmem_axes(VER) /instrument/detector/y_pixel_offset
|
|
||||||
} message ] {
|
|
||||||
return -code error $message
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
proc histmem {cmd args} {
|
|
||||||
eval "_histmem $cmd $args"
|
|
||||||
}
|
|
||||||
publish histmem user
|
|
||||||
|
|||||||
@@ -1,60 +1,3 @@
|
|||||||
# Author: Jing Chen (jgn@ansto.gov.au)
|
# Author: Jing Chen (jgn@ansto.gov.au)
|
||||||
|
|
||||||
source $cfPath(motors)/sct_positmotor_common.tcl
|
source $cfPath(motors)/sct_positmotor_common.tcl
|
||||||
|
|
||||||
set port1 [portnum pmc1-taipan]
|
|
||||||
set port2 [portnum pmc2-taipan]
|
|
||||||
set port3 [portnum pmc3-taipan]
|
|
||||||
set port4 [portnum pmc4-taipan]
|
|
||||||
set port5 [portnum pmc5-taipan]
|
|
||||||
set port6 [portnum pmc6-taipan]
|
|
||||||
|
|
||||||
makesctcontroller sct_mc1 std mc1-taipan:$port1
|
|
||||||
makesctcontroller sct_mc2 std mc2-taipan:$port2
|
|
||||||
makesctcontroller sct_mc3 std mc3-taipan:$port3
|
|
||||||
makesctcontroller sct_mc4 std mc4-taipan:$port4
|
|
||||||
makesctcontroller sct_mc5 std mc5-taipan:$port5
|
|
||||||
makesctcontroller sct_mc6 std mc6-taipan:$port6
|
|
||||||
|
|
||||||
# label pos
|
|
||||||
#index position
|
|
||||||
set 20sample_table {
|
|
||||||
1 453.7
|
|
||||||
2 411.7
|
|
||||||
3 369.7
|
|
||||||
4 327.7
|
|
||||||
5 285.7
|
|
||||||
6 203.7
|
|
||||||
7 161.7
|
|
||||||
8 119.7
|
|
||||||
9 77.7
|
|
||||||
10 35.7
|
|
||||||
11 -46.3
|
|
||||||
12 -88.3
|
|
||||||
13 -130.3
|
|
||||||
14 -172.3
|
|
||||||
15 -214.3
|
|
||||||
16 -296.3
|
|
||||||
17 -338.3
|
|
||||||
18 -380.3
|
|
||||||
19 -422.3
|
|
||||||
20 -464.3
|
|
||||||
}
|
|
||||||
|
|
||||||
#mkPosit sct_mc1 sampleNum float samx sample $20sample_table
|
|
||||||
|
|
||||||
#diameter position
|
|
||||||
set auto_ap_table {
|
|
||||||
2.5 0
|
|
||||||
5.0 -23
|
|
||||||
7.5 -47
|
|
||||||
10.0 -72
|
|
||||||
12.5 -98
|
|
||||||
15.0 -125
|
|
||||||
17.5 -153
|
|
||||||
20.0 -183
|
|
||||||
25.0 -215
|
|
||||||
30.0 -250
|
|
||||||
}
|
|
||||||
#mkPosit sct_mc3 diameter float apx sample $auto_ap_table
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user