# 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