From 1fb0967ecc4bab46182f1c6b16f83fb8e74699fd Mon Sep 17 00:00:00 2001 From: Jing Chen Date: Wed, 4 Jan 2012 11:52:59 +1100 Subject: [PATCH] change according to the latest Galil code r3325 | jgn | 2012-01-04 11:52:59 +1100 (Wed, 04 Jan 2012) | 1 line --- .../instrument/pelican/config/commands/monodrive.tcl | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/site_ansto/instrument/pelican/config/commands/monodrive.tcl b/site_ansto/instrument/pelican/config/commands/monodrive.tcl index 66883a78..ebcac051 100644 --- a/site_ansto/instrument/pelican/config/commands/monodrive.tcl +++ b/site_ansto/instrument/pelican/config/commands/monodrive.tcl @@ -104,11 +104,9 @@ proc DriveMono {mot focus} { mrb fixed -1 mrc fixed -1 - drive momb $currAngleMoma momc $currAngleMoma - drive mra [expr $mraPosition + $translateDis] - drive mrb [expr $mrbPosition + $translateDis] - drive mrc [expr $mrcPosition + $translateDis] - drive momb $currAngleMomb momc $currAngleMomc + drive moma $currAngleMomb momc $currAngleMomb + drive mra [expr $mraPosition + $translateDis] mrb [expr $mrbPosition + $translateDis] mrc [expr $mrcPosition + $translateDis] + drive moma $currAngleMoma momc $currAngleMomc # Lock the three motors again mra fixed 1