linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

integrate Dingo Camera Server stuffs

Browse Source
This commit is contained in:
Jing Chen
2013-05-22 10:49:28 +10:00
parent 1b61b67a30
commit 0dbab4045b
1 changed files with 16 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
site_ansto/instrument/dingo/config/plc/plc.tcl
View File

@@ -1,8 +1,21 @@
set sim_mode [SplitReply [plc_simulation]]
if {$sim_mode == "false"} {
# MakeAsyncQueue plc_chan SafetyPLC 137.157.204.79 31001
# MakeSafetyPLC plc plc_chan 0
#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