linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changed slit axes to EFGH

Browse Source 
r997 | ffr | 2006-05-11 14:31:39 +1000 (Thu, 11 May 2006) | 2 lines
This commit is contained in:
Ferdi Franceschini
2006-05-11 14:31:39 +10:00
committed by Douglas Clowes
parent 76c1e17bc6
commit 9f53cf7441
1 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
site_ansto/instrument/gen_home_slits.tcl
View File

@@ -1,5 +1,5 @@
proc move_away_from_switch {axis} { 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) IF ((_TS${axis} & 4) = 0)
SH${axis} SH${axis}
PR${axis}=200000 PR${axis}=200000
@@ -8,18 +8,23 @@ ENDIF"
} }
puts "#HOME" puts "#HOME"
foreach {axis} {A B C D} { foreach {axis} {E F G H} {
move_away_from_switch $axis move_away_from_switch $axis
} }
puts "AM" puts "AM"
puts "NO Drive all slits into reverse limit switch" puts "NOTE Drive all slits into reverse limit switch"
puts "SH puts "SH
JG -25000,-25000,-25000,-25000 JG -25000,-25000,-25000,-25000
BGABCD BGEFGH
AM" 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 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 AM
DP 0,0,0,0" DP 0,0,0,0"
puts "EN" puts "EN"