From 9f53cf744199680b10e240c33bafb0c92aedb356 Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Thu, 11 May 2006 14:31:39 +1000
Subject: [PATCH] Changed slit axes to EFGH

r997 | ffr | 2006-05-11 14:31:39 +1000 (Thu, 11 May 2006) | 2 lines
---
 site_ansto/instrument/gen_home_slits.tcl | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/site_ansto/instrument/gen_home_slits.tcl b/site_ansto/instrument/gen_home_slits.tcl
index 16b35f97..ddee81a6 100644
--- a/site_ansto/instrument/gen_home_slits.tcl
+++ b/site_ansto/instrument/gen_home_slits.tcl
@@ -1,5 +1,5 @@
 proc move_away_from_switch {axis} {
-puts "NO Move slit forward 10mm if it is against the reverse limit switch
+puts "NOTE Move slit forward 10mm if it is against the reverse limit switch
 IF ((_TS${axis} & 4) = 0)
 SH${axis}
 PR${axis}=200000
@@ -8,18 +8,23 @@ ENDIF"
 }
 
 puts "#HOME"
-foreach {axis} {A B C D} {
+foreach {axis} {E F G H} {
 move_away_from_switch $axis
 }
 puts "AM"
-puts "NO Drive all slits into reverse limit switch"
+puts "NOTE Drive all slits into reverse limit switch"
 puts "SH
 JG -25000,-25000,-25000,-25000
-BGABCD
+BGEFGH
 AM"
-puts "NO Move forward from switch by 2mm and set zero"
+puts "NOTE Move away from switches by 2mm and drive back slowly"
 puts "PR 40000,40000,40000,40000
-BGABCD
+JG -5000,-5000,-5000,-5000
+BGEFGH
+AM"
+puts "NOTE Move forward from switch by 2mm and set zero"
+puts "PR 40000,40000,40000,40000
+BGEFGH
 AM
 DP 0,0,0,0"
 puts "EN"