49 lines
1.2 KiB
Tcl
49 lines
1.2 KiB
Tcl
set currVelSel "two"
|
|
|
|
namespace eval ::scobj::velocity_selector {
|
|
variable blocked_speeds
|
|
variable velsel_IP
|
|
variable velsel_port
|
|
|
|
set ::currVelSel [string tolower $::currVelSel]
|
|
switch $::currVelSel {
|
|
"one" {
|
|
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.110
|
|
set ::scobj::velocity_selector::UID "NVS"
|
|
set ::scobj::velocity_selector::PWD "NVS"
|
|
set VNeutron 3955.98
|
|
set ::scobj::velocity_selector::blocked_speeds {
|
|
-inf 3099
|
|
3600 4999
|
|
7800 10599
|
|
28301 inf
|
|
}
|
|
}
|
|
"two" {
|
|
# dc2-quokka.nbi.ansto.gov.au
|
|
set velsel_IP "137.157.202.74"
|
|
set velsel_port 10000
|
|
set m_dTwistAngle 37.6
|
|
set m_dLength 0.250
|
|
set m_iMaxSpeed 21500.0
|
|
set rBeamCenter 0.1170
|
|
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
|