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