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

Moved to hipadaba directory.

Browse Source 
r1242 | ffr | 2006-11-07 12:20:07 +1100 (Tue, 07 Nov 2006) | 2 lines
This commit is contained in:
Ferdi Franceschini
2006-11-07 12:20:07 +11:00
committed by Douglas Clowes
parent a8ba8b89cb
commit 899aaa90d5
15 changed files with 0 additions and 796 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
site_ansto/instrument/gen_home_slits.tcl
View File

@@ -1,30 +0,0 @@
proc move_away_from_switch {axis} {
puts "NOTE 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} {E F G H} {
move_away_from_switch $axis
}
puts "AM"
puts "NOTE Drive all slits into reverse limit switch"
puts "SH
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
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"