21 lines
459 B
Tcl
21 lines
459 B
Tcl
puts "velsel.tcl NOT YET AVAILABLE"
|
|
if 0 {
|
|
set velsel_controller(host) 137.157.202.70
|
|
set velsel_controller(port) 10000
|
|
set velsel_controller(user) NVS
|
|
set velsel_controller(password) NVS
|
|
|
|
|
|
# Velocity Selector
|
|
MakeTCPSelector velsel [params \
|
|
Host $velsel_controller(host) \
|
|
Port $velsel_controller(port) \
|
|
User $velsel_controller(user) \
|
|
Password $velsel_controller(password) \
|
|
]
|
|
|
|
velsel add 3600 4900
|
|
velsel add 7800 10500
|
|
velsel add 30000 30000
|
|
}
|