Pull back changes from Dingo

site_ansto/instrument/dingo/dingo_configuration.tcl

@@ -15,31 +15,10 @@ MakeDrive
 ########################################
 # INSTRUMENT SPECIFIC CONFIGURATION
 
-Motor dummy_motor asim [params \
- asyncqueue mc1\
- host mc1-dingo\
- port pmc1-dingo\
- axis A\
- units mm\
- hardlowerlim -500\
- hardupperlim 500\
- maxSpeed 1\
- maxAccel 5\
- maxDecel 5\
- stepsPerX [expr 25000.0/5.0]\
- absEnc 1\
- absEncHome 0\
- cntsPerX [expr 8192.0/5.0]]
-dummy_motor part instrument
-dummy_motor long_name dummy_motor
-dummy_motor softlowerlim -500
-dummy_motor softupperlim 500
-dummy_motor home 0
-
 source $cfPath(hipadaba)/hipadaba_configuration.tcl
 
 fileeval $cfPath(source)/source.tcl
-#fileeval $cfPath(motors)/motor_configuration.tcl
+fileeval $cfPath(motors)/motor_configuration.tcl
 #fileeval $cfPath(motors)/positmotor_configuration.tcl
 #fileeval $cfPath(motors)/extraconfig.tcl
 fileeval $cfPath(plc)/plc.tcl
@@ -48,6 +27,8 @@ fileeval $cfPath(hmm)/hmm_configuration.tcl
 fileeval $cfPath(nexus)/nxscripts.tcl
 fileeval $cfPath(scan)/scan.tcl
 fileeval $cfPath(commands)/commands.tcl
+fileeval $cfPath(commands)/pulser.tcl
+fileeval $cfPath(commands)/hvcommands.tcl
 fileeval $cfPath(anticollider)/anticollider.tcl
 
 source gumxml.tcl
@@ -56,13 +37,16 @@ source gumxml.tcl
 #::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
-   }
+if {1} {
+  set motorlist "[sicslist type motor]"
+  puts $motorlist
+  foreach m $motorlist {
+     if {$m == "motor" || $m == "dummy_motor"} {
+         # skipit
+     } else {
+         $m fixed 1
+     }
+  }
 }
 
 server_init