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

fix all motors before init

Browse Source 
r3327 | jgn | 2012-01-04 11:53:31 +1100 (Wed, 04 Jan 2012) | 1 line
This commit is contained in:
Jing Chen
2012-01-04 11:53:31 +11:00
committed by Douglas Clowes
parent 71d6ea99fd
commit dbc36222e8
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
site_ansto/instrument/pelican/pelican_configuration.tcl
View File

@@ -19,6 +19,7 @@ source $cfPath(hipadaba)/hipadaba_configuration.tcl
fileeval $cfPath(source)/source.tcl
fileeval $cfPath(motors)/motor_configuration.tcl
fileeval $cfPath(motors)/positmotor_configuration.tcl
#fileeval $cfPath(motors)/extraconfig.tcl
fileeval $cfPath(plc)/plc.tcl
fileeval $cfPath(counter)/counter.tcl
fileeval $cfPath(hmm)/hmm_configuration.tcl
@@ -34,6 +35,15 @@ source gumxml.tcl
::utility::mkVar ::anticollider::protect_detector text manager protect_detector false detector true false
::anticollider::protect_detector "true"
# fix all motors
foreach m [sicslist type motor] {
if {$m == "motor" || $m == "dummy_motor"} {
# skipit
} else {
clientput fix $m position
$m fixed 1
}
}
server_init
###########################################