Adding site_ansto files

r984 | ffr | 2006-05-09 08:31:50 +1000 (Tue, 09 May 2006) | 2 lines
2006-05-09 08:31:50 +10:00
parent e4e85ee389
commit a72513165b
46 changed files with 10885 additions and 0 deletions
--- a/site_ansto/instrument/gen_home_slits.tcl
+++ b/site_ansto/instrument/gen_home_slits.tcl
@@ -0,0 +1,25 @@
+proc move_away_from_switch {axis} {
+puts "NO Move slit forward 10mm if it is against the reverse limit switch
+IF ((_TS${axis} & 4) = 0)
+SH${axis}
+PR${axis}=200000
+BG${axis}
+ENDIF"
+}
+
+puts "#HOME"
+foreach {axis} {A B C D} {
+move_away_from_switch $axis
+}
+puts "AM"
+puts "NO Drive all slits into reverse limit switch"
+puts "SH
+JG -25000,-25000,-25000,-25000
+BGABCD
+AM"
+puts "NO Move forward from switch by 2mm and set zero"
+puts "PR 40000,40000,40000,40000
+BGABCD
+AM
+DP 0,0,0,0"
+puts "EN"