22 lines
419 B
Tcl
22 lines
419 B
Tcl
set sim_mode [SplitReply [plc_simulation]]
|
|
#if {$sim_mode == "false"} {
|
|
MakeAsyncQueue plc_chan SafetyPLC 137.157.204.213 30000
|
|
MakeSafetyPLC plc plc_chan 0
|
|
#}
|
|
|
|
proc shutter {args} {
|
|
set cmd "set shutter=$args\r\n"
|
|
plc_chan send $cmd
|
|
}
|
|
|
|
proc focuslight {args} {
|
|
set cmd "set focuslight=$args\r\n"
|
|
plc_chan send $cmd
|
|
}
|
|
|
|
publish shutter user
|
|
publish focuslight user
|
|
|
|
source $cfPath(plc)/plc_common_1.tcl
|
|
|