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"