27 lines
634 B
Tcl
27 lines
634 B
Tcl
if 0 {
|
|
# Chopper NCS013 communications
|
|
set chopper_controller(host) 137.157.202.130
|
|
set chopper_controller(port) 10000
|
|
set chopper_controller(user) NCS
|
|
set chopper_controller(password) NCS013
|
|
|
|
|
|
# CHOPPER
|
|
MakeChopper chopperController tcpdocho [params \
|
|
host $chopper_controller(host) \
|
|
port $chopper_controller(port) \
|
|
nchopper 4 \
|
|
timeout 30 \
|
|
user $chopper_controller(user) \
|
|
password $chopper_controller(password) \
|
|
]
|
|
ChopperAdapter chspeed chopperController speed 0 10
|
|
}
|
|
namespace eval ::chopper {
|
|
command set_freq {float: frequency} {
|
|
for {set i 0} {$i < $frequency} {incr i} {
|
|
clientput chop
|
|
}
|
|
}
|
|
}
|