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

Further refinement of slit configurations

Browse Source 
r1408 | dcl | 2007-01-18 14:18:01 +1100 (Thu, 18 Jan 2007) | 2 lines
This commit is contained in:
Douglas Clowes
2007-01-18 14:18:01 +11:00
parent 60ed8a9a72
commit 4514dc01db
3 changed files with 191 additions and 133 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
site_ansto/instrument/qld/motor_configuration.tcl
View File

@@ -1,7 +1,9 @@
set slit2active 0
set animal koala
# Setup addresses of Galil DMC2280 controllers.
set dmc2280_controller2(host) mc2-koala
set dmc2280_controller2(port) pmc2-koala
set dmc2280_controller2(host) mc2-$animal
set dmc2280_controller2(port) pmc2-$animal
# Run slit homing routines
#if [catch {dmc_connect dmc2280_controller2} ] {
@@ -19,29 +21,26 @@ set dmc2280_controller2(port) pmc2-koala
#
#Measured or computed slit motor steps per unit (mm)
set slitStepRate 20180
set slitStepRate 20125
#Measured slit gap, in units, after homing on limit switches
set s1vGap 128
set s1hGap 53
set s2vGap 205
set s2hGap 51
set ss1h_Gap 52.6
set ss1v_Gap 128.6
set ss2h_Gap 51
set ss2v_Gap 205
#Measured offset for centre opening in units, positive up
set s1vOff 0
set s1uHome [expr $s1vGap/2*$slitStepRate]
set s1dHome [expr $s1vGap/2*$slitStepRate]
set s1rHome [expr $s1hGap/2*$slitStepRate]
set s1lHome [expr $s1hGap/2*$slitStepRate]
set s2uHome [expr $s2vGap/2*$slitStepRate]
set s2dHome [expr $s2vGap/2*$slitStepRate]
set s2rHome [expr $s2hGap/2*$slitStepRate]
set s2lHome [expr $s2hGap/2*$slitStepRate]
set ss1r_Home [expr $ss1h_Gap/2*$slitStepRate]
set ss1l_Home [expr $ss1h_Gap/2*$slitStepRate]
set ss1u_Home [expr $ss1v_Gap/2*$slitStepRate]
set ss1d_Home [expr $ss1v_Gap/2*$slitStepRate]
set ss2r_Home [expr $ss2h_Gap/2*$slitStepRate]
set ss2l_Home [expr $ss2h_Gap/2*$slitStepRate]
set ss2u_Home [expr $ss2v_Gap/2*$slitStepRate]
set ss2d_Home [expr $ss2v_Gap/2*$slitStepRate]
#Default upper and lower ranges for vertical slits
set vertSlitLowRange 60
set vertSlitUpRange 60
set vertSlitLowRange 64
set vertSlitUpRange 64
#Default upper and lower ranges for horizontal slits
set horSlitLowRange 25
@@ -56,7 +55,7 @@ Motor ss1r DMC2280 [params \
maxAccel 1\
maxDecel 1\
stepsPerX -$slitStepRate\
motorHome $s1rHome]
motorHome $ss1r_Home]
setHomeandRange -motor ss1r -home 0 -lowrange $horSlitLowRange -uprange $horSlitUpRange
Motor ss1l DMC2280 [params \
@@ -68,7 +67,7 @@ Motor ss1l DMC2280 [params \
maxAccel 1\
maxDecel 1\
stepsPerX -$slitStepRate\
motorHome $s1lHome]
motorHome $ss1l_Home]
setHomeandRange -motor ss1l -home 0 -lowrange $horSlitLowRange -uprange $horSlitUpRange
Motor ss1u DMC2280 [params \
@@ -80,7 +79,7 @@ Motor ss1u DMC2280 [params \
maxAccel 1\
maxDecel 1\
stepsPerX -$slitStepRate\
motorHome $s1uHome]
motorHome $ss1u_Home]
setHomeandRange -motor ss1u -home 0 -lowrange $vertSlitLowRange -uprange $vertSlitUpRange
Motor ss1d DMC2280 [params \
@@ -92,7 +91,7 @@ Motor ss1d DMC2280 [params \
maxAccel 1\
maxDecel 1\
stepsPerX -$slitStepRate\
motorHome $s1dHome]
motorHome $ss1d_Home]
setHomeandRange -motor ss1d -home 0 -lowrange $vertSlitLowRange -uprange $vertSlitUpRange
if {$slit2active} {
@@ -105,7 +104,7 @@ Motor ss2r DMC2280 [params \
maxAccel 1\
maxDecel 1\
stepsPerX -$slitStepRate\
motorHome $s2rHome]
motorHome $ss2r_Home]
setHomeandRange -motor ss2r -home 0 -lowrange $horSlitLowRange -uprange $horSlitUpRange
Motor ss2l DMC2280 [params \
@@ -117,7 +116,7 @@ Motor ss2l DMC2280 [params \
maxAccel 1\
maxDecel 1\
stepsPerX -$slitStepRate\
motorHome $s2lHome]
motorHome $ss2l_Home]
setHomeandRange -motor ss2l -home 0 -lowrange $horSlitLowRange -uprange $horSlitUpRange
Motor ss2u DMC2280 [params \
@@ -129,7 +128,7 @@ Motor ss2u DMC2280 [params \
maxAccel 1\
maxDecel 1\
stepsPerX -$slitStepRate\
motorHome $s2uHome]
motorHome $ss2u_Home]
setHomeandRange -motor ss2u -home 0 -lowrange $vertSlitLowRange -uprange $vertSlitUpRange
Motor ss2d DMC2280 [params \
@@ -141,7 +140,7 @@ Motor ss2d DMC2280 [params \
maxAccel 1\
maxDecel 1\
stepsPerX -$slitStepRate\
motorHome $s2dHome]
motorHome $ss2d_Home]
setHomeandRange -motor ss2d -home 0 -lowrange $vertSlitLowRange -uprange $vertSlitUpRange
}
@@ -325,4 +324,3 @@ ss2vo readscript ss2readvertoffset
}
# END MOTOR CONFIGURATION