22 lines
458 B
Tcl
22 lines
458 B
Tcl
set sim_mode [SplitReply [plc_simulation]]
|
|
if {$sim_mode == "false"} {
|
|
MakeAsyncQueue plc_chan SafetyPLC [dict get $::PLC_HOSTPORT HOST] [dict get $::PLC_HOSTPORT PORT]
|
|
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
|
|
|