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

calibrate slit gaps (roughly), move to correct axis, correct offset calculation.

Browse Source 
r1668 | dcl | 2007-03-19 14:08:13 +1100 (Mon, 19 Mar 2007) | 2 lines
This commit is contained in:
Douglas Clowes
2007-03-19 14:08:13 +11:00
parent 5bc15d13c5
commit 51e6ee6325
1 changed files with 20 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
site_ansto/instrument/reflectometer/motor_configuration.tcl
View File

@@ -1,5 +1,5 @@
# $Revision: 1.12 $ # $Revision: 1.13 $
# $Date: 2007-03-19 03:06:13 $ # $Date: 2007-03-19 03:08:13 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au) # Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: dcl $ # Last revision by: $Author: dcl $
@@ -49,15 +49,15 @@ set dz_home 7805000
set slitStepRate 20125 set slitStepRate 20125
#Measured slit gap, in units, after homing on limit switches #Measured slit gap, in units, after homing on limit switches
set ss1h_Gap 52.5 set ss1h_Gap 56.7
set ss1v_Gap 205.9 set ss1v_Gap 54.5
set ss2h_Gap 51.3 set ss2h_Gap 9.1
set ss2v_Gap 203.8 set ss2v_Gap 23.1
set ss3h_Gap 7.5 set ss3h_Gap 7.4
set ss3v_Gap 28.5 set ss3v_Gap 28.6
set ss4h_Gap 12.0 set ss4h_Gap 12.1
set ss4v_Gap 24.0 set ss4v_Gap 23.6
set ss1r_Home [expr $ss1h_Gap/2*$slitStepRate] set ss1r_Home [expr $ss1h_Gap/2*$slitStepRate]
set ss1l_Home [expr $ss1h_Gap/2*$slitStepRate] set ss1l_Home [expr $ss1h_Gap/2*$slitStepRate]
@@ -352,7 +352,7 @@ dz home 0
# Slit 1, lower # Slit 1, lower
Motor ss1d DMC2280 [params \ Motor ss1d DMC2280 [params \
multichan dmc_mc3\ multichan dmc_mc3\
axis A\ axis D\
units mm\ units mm\
hardlowerlim [expr $vertSlitHome - $vertSlitLowRange]\ hardlowerlim [expr $vertSlitHome - $vertSlitLowRange]\
hardupperlim [expr $vertSlitHome + $vertSlitUpRange]\ hardupperlim [expr $vertSlitHome + $vertSlitUpRange]\
@@ -368,7 +368,7 @@ ss1d home 0
# Slit 1, upper # Slit 1, upper
Motor ss1u DMC2280 [params \ Motor ss1u DMC2280 [params \
multichan dmc_mc3\ multichan dmc_mc3\
axis B\ axis C\
units mm\ units mm\
hardlowerlim [expr $vertSlitHome - $vertSlitLowRange]\ hardlowerlim [expr $vertSlitHome - $vertSlitLowRange]\
hardupperlim [expr $vertSlitHome + $vertSlitUpRange]\ hardupperlim [expr $vertSlitHome + $vertSlitUpRange]\
@@ -384,7 +384,7 @@ ss1u home 0
# Slit 1, left # Slit 1, left
Motor ss1l DMC2280 [params \ Motor ss1l DMC2280 [params \
multichan dmc_mc3\ multichan dmc_mc3\
axis C\ axis A\
units mm\ units mm\
hardlowerlim [expr $horSlitHome - $horSlitLowRange]\ hardlowerlim [expr $horSlitHome - $horSlitLowRange]\
hardupperlim [expr $horSlitHome + $horSlitUpRange]\ hardupperlim [expr $horSlitHome + $horSlitUpRange]\
@@ -400,7 +400,7 @@ ss1l home 0
# Slit 1, right # Slit 1, right
Motor ss1r DMC2280 [params \ Motor ss1r DMC2280 [params \
multichan dmc_mc3\ multichan dmc_mc3\
axis D\ axis B\
units mm\ units mm\
hardlowerlim [expr $horSlitHome - $horSlitLowRange]\ hardlowerlim [expr $horSlitHome - $horSlitLowRange]\
hardupperlim [expr $horSlitHome + $horSlitUpRange]\ hardupperlim [expr $horSlitHome + $horSlitUpRange]\
@@ -416,7 +416,7 @@ ss1r home 0
# Slit 2, lower # Slit 2, lower
Motor ss2d DMC2280 [params \ Motor ss2d DMC2280 [params \
multichan dmc_mc3\ multichan dmc_mc3\
axis E\ axis H\
units mm\ units mm\
hardlowerlim [expr $vertSlitHome - $vertSlitLowRange]\ hardlowerlim [expr $vertSlitHome - $vertSlitLowRange]\
hardupperlim [expr $vertSlitHome + $vertSlitUpRange]\ hardupperlim [expr $vertSlitHome + $vertSlitUpRange]\
@@ -432,7 +432,7 @@ ss2d home 0
# Slit 2, upper # Slit 2, upper
Motor ss2u DMC2280 [params \ Motor ss2u DMC2280 [params \
multichan dmc_mc3\ multichan dmc_mc3\
axis F\ axis G\
units mm\ units mm\
hardlowerlim [expr $vertSlitHome - $vertSlitLowRange]\ hardlowerlim [expr $vertSlitHome - $vertSlitLowRange]\
hardupperlim [expr $vertSlitHome + $vertSlitUpRange]\ hardupperlim [expr $vertSlitHome + $vertSlitUpRange]\
@@ -448,7 +448,7 @@ ss2u home 0
# Slit 2, left # Slit 2, left
Motor ss2l DMC2280 [params \ Motor ss2l DMC2280 [params \
multichan dmc_mc3\ multichan dmc_mc3\
axis G\ axis E\
units mm\ units mm\
hardlowerlim [expr $horSlitHome - $horSlitLowRange]\ hardlowerlim [expr $horSlitHome - $horSlitLowRange]\
hardupperlim [expr $horSlitHome + $horSlitUpRange]\ hardupperlim [expr $horSlitHome + $horSlitUpRange]\
@@ -464,7 +464,7 @@ ss2l home 0
# Slit 2, right # Slit 2, right
Motor ss2r DMC2280 [params \ Motor ss2r DMC2280 [params \
multichan dmc_mc3\ multichan dmc_mc3\
axis H\ axis F\
units mm\ units mm\
hardlowerlim [expr $horSlitHome - $horSlitLowRange]\ hardlowerlim [expr $horSlitHome - $horSlitLowRange]\
hardupperlim [expr $horSlitHome + $horSlitUpRange]\ hardupperlim [expr $horSlitHome + $horSlitUpRange]\
@@ -670,8 +670,8 @@ proc set_gap_offset {m1 m2 val} {
set S2 [SplitReply [$m2]] set S2 [SplitReply [$m2]]
set currentoffset [expr ($S1 + $S2)/2.0 ] set currentoffset [expr ($S1 + $S2)/2.0 ]
set diff [expr $val - $currentoffset] set diff [expr $val - $currentoffset]
set newD1R [expr $S1 + $diff/2] set newD1R [expr $S1 + $diff]
set newD1L [expr $S2 + $diff/2] set newD1L [expr $S2 + $diff]
return "$m1=$newD1R,$m2=$newD1L" return "$m1=$newD1R,$m2=$newD1L"
} }