3a3b6764ee
One typo and forgetting to clear a temporary variable meant that the list of candidates for removal never shrank while pruning reflectometer/config/motors/sct_batmotor.tcl The beam attenuator is on axis D not A. Also provide statemon feedback, "busy" or "idle" sans/config/velsel/velsel.tcl Update velocity selector parameters for NVS 43 SICS-374 sans/config/velsel/sct_velsel.tcl Set velocity selector identifier script_context_util.tcl Don't override the "klass' attribute, just make sure that it matches the hdb klass property if it's defined. event.h and statemon.c Added statemon BUSY and IDLE events for the scbat because it when it oscillates it's busy doing something. r2875 | ffr | 2010-01-22 20:41:36 +1100 (Fri, 22 Jan 2010) | 18 lines
51 lines
1.3 KiB
Tcl
51 lines
1.3 KiB
Tcl
set currVelSel 43
|
|
|
|
namespace eval ::scobj::velocity_selector {
|
|
variable blocked_speeds
|
|
variable velsel_IP
|
|
variable velsel_port
|
|
|
|
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-quokka.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
|