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"