58 lines
1.6 KiB
Tcl
58 lines
1.6 KiB
Tcl
# Set currVelSel to select either the NVS40 or NVS43
|
|
set currVelSel 40
|
|
|
|
namespace eval ::scobj::velocity_selector {
|
|
variable blocked_speeds
|
|
variable velsel_IP
|
|
variable velsel_port
|
|
variable nvs40Par
|
|
variable nvs43Par
|
|
variable velsel_ID
|
|
|
|
set nvs40Par(m_dTwistAngle) 48.30
|
|
set nvs40Par(m_dLength) 0.250
|
|
set nvs40Par(m_iMaxSpeed) 28300.0
|
|
set nvs40Par(rBeamCenter) 0.1100
|
|
set nvs40Par(VNeutron) 3955.98
|
|
|
|
set nvs43Par(m_dTwistAngle) 37.6
|
|
set nvs43Par(m_dLength) 0.250
|
|
set nvs43Par(m_iMaxSpeed) 21000.0
|
|
set nvs43Par(rBeamCenter) 0.1100
|
|
set nvs43Par(VNeutron) 3955.98
|
|
|
|
# Set configuration parameters for either the NVS40 or NVS43 velocity selector
|
|
set ::currVelSel [string tolower $::currVelSel]
|
|
switch $::currVelSel {
|
|
40 {
|
|
set velsel_ID "NVS40"
|
|
set velsel_IP [dict get $VELSEL_HOSTPORT $velsel_ID HOST]
|
|
set velsel_port [dict get $VELSEL_HOSTPORT $velsel_ID PORT]
|
|
set ::scobj::velocity_selector::UID "NVS"
|
|
set ::scobj::velocity_selector::PWD "NVS"
|
|
set ::scobj::velocity_selector::blocked_speeds {
|
|
-inf 3099
|
|
3600 4999
|
|
7800 10599
|
|
28301 inf
|
|
}
|
|
}
|
|
43 {
|
|
# dc2-quokka.nbi.ansto.gov.au
|
|
set velsel_ID "NVS43"
|
|
set velsel_IP [dict get $VELSEL_HOSTPORT $velsel_ID HOST]
|
|
set velsel_port [dict get $VELSEL_HOSTPORT $velsel_ID PORT]
|
|
set ::scobj::velocity_selector::UID "NVS"
|
|
set ::scobj::velocity_selector::PWD "NVS"
|
|
set ::scobj::velocity_selector::blocked_speeds {
|
|
-inf 3099
|
|
3600 4999
|
|
7800 9699
|
|
21500 inf
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
source $cfPath(velsel)/sct_velsel.tcl
|