From 01e7397465352b95faac00ca6345b8647de02d2b Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Thu, 13 Jul 2006 14:50:52 +1000
Subject: [PATCH] Skip ABCD axes for JG PR and DP commands.

r1027 | ffr | 2006-07-13 14:50:52 +1000 (Thu, 13 Jul 2006) | 2 lines
---
 site_ansto/instrument/gen_home_slits.tcl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/site_ansto/instrument/gen_home_slits.tcl b/site_ansto/instrument/gen_home_slits.tcl
index ddee81a6..e8622ecb 100644
--- a/site_ansto/instrument/gen_home_slits.tcl
+++ b/site_ansto/instrument/gen_home_slits.tcl
@@ -14,17 +14,17 @@ move_away_from_switch $axis
 puts "AM"
 puts "NOTE Drive all slits into reverse limit switch"
 puts "SH
-JG -25000,-25000,-25000,-25000
+JG ,,,,-25000,-25000,-25000,-25000
 BGEFGH
 AM"
 puts "NOTE Move away from switches by 2mm and drive back slowly"
-puts "PR 40000,40000,40000,40000
-JG -5000,-5000,-5000,-5000
+puts "PR ,,,,40000,40000,40000,40000
+JG ,,,,-5000,-5000,-5000,-5000
 BGEFGH
 AM"
 puts "NOTE Move forward from switch by 2mm and set zero"
-puts "PR 40000,40000,40000,40000
+puts "PR ,,,,40000,40000,40000,40000
 BGEFGH
 AM
-DP 0,0,0,0"
+DP ,,,,0,0,0,0"
 puts "EN"