53 lines
1.4 KiB
Tcl
53 lines
1.4 KiB
Tcl
# Set currVelSel to select either the NVS40 or NVS43
|
|
set currVelSel 43
|
|
|
|
namespace eval ::scobj::velocity_selector {
|
|
variable blocked_speeds
|
|
variable velsel_IP
|
|
variable velsel_port
|
|
|
|
# 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 "137.157.202.73"
|
|
set velsel_port 10000
|
|
set m_dTwistAngle 48.30
|
|
set m_dLength 0.250
|
|
set m_iMaxSpeed 28300.0
|
|
set rBeamCenter 0.1100
|
|
set VNeutron 3955.98
|
|
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-taipan.nbi.ansto.gov.au
|
|
set velsel_ID "NVS43"
|
|
set velsel_IP "137.157.202.74"
|
|
set velsel_port 10000
|
|
set m_dTwistAngle 37.6
|
|
set m_dLength 0.250
|
|
set m_iMaxSpeed 21000.0
|
|
set rBeamCenter 0.1100
|
|
set VNeutron 3955.98
|
|
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
|