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

Calibrate sample slits from HOME position

Browse Source 
r1347 | dcl | 2006-12-04 17:25:37 +1100 (Mon, 04 Dec 2006) | 2 lines
This commit is contained in:
Douglas Clowes
2006-12-04 17:25:37 +11:00
parent 887deff526
commit a3b2b77190
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
site_ansto/instrument/hrpd/motor_configuration.tcl
View File

@@ -315,7 +315,7 @@ Motor ss1r DMC2280 [params \
maxAccel 1\
maxDecel 1\
stepsPerX -20180\
motorHome 592406]
motorHome 544860]
setHomeandRange -motor ss1r -home 0 -lowrange $horSlitLowRange -uprange $horSlitUpRange
Motor ss1l DMC2280 [params \
@@ -327,7 +327,7 @@ Motor ss1l DMC2280 [params \
maxAccel 1\
maxDecel 1\
stepsPerX -20180\
motorHome 592406]
motorHome 544860]
setHomeandRange -motor ss1l -home 0 -lowrange $horSlitLowRange -uprange $horSlitUpRange
Motor ss1u DMC2280 [params \
@@ -339,7 +339,7 @@ Motor ss1u DMC2280 [params \
maxAccel 1\
maxDecel 1\
stepsPerX -20180\
motorHome 2189530]
motorHome 2098720]
setHomeandRange -motor ss1u -home 0 -lowrange $vertSlitLowRange -uprange $vertSlitUpRange
Motor ss1d DMC2280 [params \
@@ -351,7 +351,7 @@ Motor ss1d DMC2280 [params \
maxAccel 1\
maxDecel 1\
stepsPerX -20180\
motorHome 2189530]
motorHome 2098720]
setHomeandRange -motor ss1d -home 0 -lowrange $vertSlitLowRange -uprange $vertSlitUpRange
############################
@@ -398,7 +398,7 @@ Motor ss2r DMC2280 [params \
maxAccel 1\
maxDecel 1\
stepsPerX -20180\
motorHome 530188]
motorHome 524680]
setHomeandRange -motor ss2r -home 0 -lowrange $horSlitLowRange -uprange $horSlitUpRange
Motor ss2l DMC2280 [params \
@@ -410,7 +410,7 @@ Motor ss2l DMC2280 [params \
maxAccel 1\
maxDecel 1\
stepsPerX -20180\
motorHome 530188]
motorHome 524680]
setHomeandRange -motor ss2l -home 0 -lowrange $horSlitLowRange -uprange $horSlitUpRange
Motor ss2u DMC2280 [params \
@@ -422,7 +422,7 @@ Motor ss2u DMC2280 [params \
maxAccel 1\
maxDecel 1\
stepsPerX -20180\
motorHome 2053148]
motorHome 2058360]
setHomeandRange -motor ss2u -home 0 -lowrange $vertSlitLowRange -uprange $vertSlitUpRange
Motor ss2d DMC2280 [params \
@@ -434,7 +434,7 @@ Motor ss2d DMC2280 [params \
maxAccel 1\
maxDecel 1\
stepsPerX -20180\
motorHome 2053148]
motorHome 2058360]
setHomeandRange -motor ss2d -home 0 -lowrange $vertSlitLowRange -uprange $vertSlitUpRange
proc mthGet {} { return [expr [SplitReply [mtth]]/2.0]}