Slit motor limits on Platypus as measured by Andrew Nelson.
This commit is contained in:
@@ -62,26 +62,43 @@ set ss3v_Gap 28.6
|
|||||||
set ss4h_Gap 12.1
|
set ss4h_Gap 12.1
|
||||||
set ss4v_Gap 23.6
|
set ss4v_Gap 23.6
|
||||||
|
|
||||||
#Calculate the Home (zero) position as being in the middle of the gap
|
# Home position in steps ie the TD value
|
||||||
set ss1r_Home [expr $ss1h_Gap/2.0*$slitStepRate]
|
set ss1r_Home 0
|
||||||
set ss1l_Home [expr $ss1h_Gap/2.0*$slitStepRate]
|
set ss1l_Home 0
|
||||||
set ss1u_Home [expr $ss1v_Gap/2.0*$slitStepRate]
|
set ss1u_Home 0
|
||||||
set ss1d_Home [expr $ss1v_Gap/2.0*$slitStepRate]
|
set ss1d_Home 0
|
||||||
set ss2r_Home [expr $ss2h_Gap/2.0*$slitStepRate]
|
set ss2r_Home 0
|
||||||
set ss2l_Home [expr $ss2h_Gap/2.0*$slitStepRate]
|
set ss2l_Home 0
|
||||||
set ss2u_Home [expr $ss2v_Gap/2.0*$slitStepRate]
|
set ss2u_Home 0
|
||||||
set ss2d_Home [expr $ss2v_Gap/2.0*$slitStepRate]
|
set ss2d_Home 0
|
||||||
|
|
||||||
set ss3r_Home [expr $ss3h_Gap/2.0*$slitStepRate]
|
set ss3r_Home 0
|
||||||
set ss3l_Home [expr $ss3h_Gap/2.0*$slitStepRate]
|
set ss3l_Home 0
|
||||||
set ss3u_Home [expr $ss3v_Gap/2.0*$slitStepRate]
|
set ss3u_Home 0
|
||||||
set ss3d_Home [expr $ss3v_Gap/2.0*$slitStepRate]
|
set ss3d_Home 0
|
||||||
set ss4r_Home [expr $ss4h_Gap/2.0*$slitStepRate]
|
set ss4r_Home 0
|
||||||
set ss4l_Home [expr $ss4h_Gap/2.0*$slitStepRate]
|
set ss4l_Home 0
|
||||||
set ss4u_Home [expr $ss4v_Gap/2.0*$slitStepRate]
|
set ss4u_Home 0
|
||||||
set ss4d_Home [expr $ss4v_Gap/2.0*$slitStepRate]
|
set ss4d_Home 0
|
||||||
|
|
||||||
#Default upper and lower ranges for vertical slits
|
set ss1u_home_mm 0.0
|
||||||
|
set ss1d_home_mm 0.0
|
||||||
|
set ss1l_home_mm 0.0
|
||||||
|
set ss1r_home_mm 0.0
|
||||||
|
set ss2u_home_mm 0.0
|
||||||
|
set ss2d_home_mm 0.0
|
||||||
|
set ss2l_home_mm 0.0
|
||||||
|
set ss2r_home_mm 0.0
|
||||||
|
set ss3u_home_mm 0.0
|
||||||
|
set ss3d_home_mm 0.0
|
||||||
|
set ss3l_home_mm 0.0
|
||||||
|
set ss3r_home_mm 0.0
|
||||||
|
set ss4u_home_mm 0.0
|
||||||
|
set ss4d_home_mm 0.0
|
||||||
|
set ss4l_home_mm 0.0
|
||||||
|
set ss4r_home_mm 0.0
|
||||||
|
|
||||||
|
Default upper and lower ranges for vertical slits
|
||||||
set vSlitHome 0
|
set vSlitHome 0
|
||||||
set vSlitLoRange 5
|
set vSlitLoRange 5
|
||||||
set vSlitHiRange 25
|
set vSlitHiRange 25
|
||||||
@@ -91,83 +108,44 @@ set hSlitHome 0
|
|||||||
set hSlitLoRange 5
|
set hSlitLoRange 5
|
||||||
set hSlitHiRange 25
|
set hSlitHiRange 25
|
||||||
|
|
||||||
if {0} {
|
|
||||||
#calculate individual slit motor low ranges
|
#calculate individual slit motor low ranges
|
||||||
set ss1r_LoRange [expr $hSlitHome - $hSlitLoRange]
|
set ss1r_LoRange -43.360062
|
||||||
set ss1l_LoRange [expr $hSlitHome - $hSlitHiRange]
|
set ss1l_LoRange 0.0
|
||||||
set ss1u_LoRange [expr $vSlitHome - $vSlitLoRange]
|
set ss1u_LoRange -32.949965
|
||||||
set ss1d_LoRange [expr $vSlitHome - $vSlitHiRange]
|
set ss1d_LoRange 0.0
|
||||||
set ss2r_LoRange [expr $hSlitHome - $hSlitLoRange]
|
set ss2r_LoRange -18.1217866
|
||||||
set ss2l_LoRange [expr $hSlitHome - $hSlitHiRange]
|
set ss2l_LoRange -23.07459212
|
||||||
set ss2u_LoRange [expr $vSlitHome - $vSlitLoRange]
|
set ss2u_LoRange -18.29374903
|
||||||
set ss2d_LoRange [expr $vSlitHome - $vSlitHiRange]
|
set ss2d_LoRange -17.35670498
|
||||||
|
|
||||||
set ss3r_LoRange [expr $hSlitHome - $hSlitLoRange]
|
set ss3r_LoRange -17.20372831
|
||||||
set ss3l_LoRange [expr $hSlitHome - $hSlitHiRange]
|
set ss3l_LoRange -23.71762949
|
||||||
set ss3u_LoRange [expr $vSlitHome - $vSlitLoRange]
|
set ss3u_LoRange -19.85221743
|
||||||
set ss3d_LoRange [expr $vSlitHome - $vSlitHiRange]
|
set ss3d_LoRange -12.41787854
|
||||||
set ss4r_LoRange [expr $hSlitHome - $hSlitLoRange]
|
set ss4r_LoRange -19.3176418
|
||||||
set ss4l_LoRange [expr $hSlitHome - $hSlitHiRange]
|
set ss4l_LoRange -24.1129101
|
||||||
set ss4u_LoRange [expr $vSlitHome - $vSlitLoRange]
|
set ss4u_LoRange -17.9348041
|
||||||
set ss4d_LoRange [expr $vSlitHome - $vSlitHiRange]
|
set ss4d_LoRange -15.25439115
|
||||||
|
|
||||||
#calculate individual slit motor high ranges
|
#calculate individual slit motor high ranges
|
||||||
set ss1r_HiRange [expr $hSlitHome + $hSlitHiRange]
|
set ss1r_HiRange 0.0
|
||||||
set ss1l_HiRange [expr $hSlitHome + $hSlitLoRange]
|
set ss1l_HiRange 41.950406
|
||||||
set ss1u_HiRange [expr $vSlitHome + $vSlitHiRange]
|
set ss1u_HiRange 0.0
|
||||||
set ss1d_HiRange [expr $vSlitHome + $vSlitLoRange]
|
set ss1d_HiRange 30.4499909
|
||||||
set ss2r_HiRange [expr $hSlitHome + $hSlitHiRange]
|
set ss2r_HiRange 24.48469396
|
||||||
set ss2l_HiRange [expr $hSlitHome + $hSlitLoRange]
|
set ss2l_HiRange 19.78028964
|
||||||
set ss2u_HiRange [expr $vSlitHome + $vSlitHiRange]
|
set ss2u_HiRange 17.40275661
|
||||||
set ss2d_HiRange [expr $vSlitHome + $vSlitLoRange]
|
set ss2d_HiRange 18.54135709
|
||||||
|
|
||||||
set ss3r_HiRange [expr $hSlitHome + $hSlitHiRange]
|
set ss3r_HiRange 22.95388629
|
||||||
set ss3l_HiRange [expr $hSlitHome + $hSlitLoRange]
|
set ss3l_HiRange 18.51761249
|
||||||
set ss3u_HiRange [expr $vSlitHome + $vSlitHiRange]
|
set ss3u_HiRange 14.75629991
|
||||||
set ss3d_HiRange [expr $vSlitHome + $vSlitLoRange]
|
set ss3d_HiRange 22.85870962
|
||||||
set ss4r_HiRange [expr $hSlitHome + $hSlitHiRange]
|
set ss4r_HiRange 26.07141793
|
||||||
set ss4l_HiRange [expr $hSlitHome + $hSlitLoRange]
|
set ss4l_HiRange 17.91170393
|
||||||
set ss4u_HiRange [expr $vSlitHome + $vSlitHiRange]
|
set ss4u_HiRange 16.15281925
|
||||||
set ss4d_HiRange [expr $vSlitHome + $vSlitLoRange]
|
set ss4d_HiRange 20.12049666
|
||||||
} else {
|
|
||||||
#calculate individual slit motor low ranges
|
|
||||||
set ss1r_LoRange [expr $hSlitHome - $hSlitLoRange]
|
|
||||||
set ss1l_LoRange [expr $hSlitHome - $hSlitHiRange]
|
|
||||||
set ss1u_LoRange [expr $vSlitHome - $vSlitLoRange]
|
|
||||||
set ss1d_LoRange [expr $vSlitHome - $vSlitHiRange]
|
|
||||||
set ss2r_LoRange [expr $hSlitHome - $hSlitLoRange]
|
|
||||||
set ss2l_LoRange [expr $hSlitHome - $hSlitHiRange]
|
|
||||||
set ss2u_LoRange [expr $vSlitHome - $vSlitLoRange]
|
|
||||||
set ss2d_LoRange [expr $vSlitHome - $vSlitHiRange]
|
|
||||||
|
|
||||||
set ss3r_LoRange -12.0
|
|
||||||
set ss3l_LoRange -26.0
|
|
||||||
set ss3u_LoRange -5.0
|
|
||||||
set ss3d_LoRange -26.0
|
|
||||||
set ss4r_LoRange -13.0
|
|
||||||
set ss4l_LoRange -27.0
|
|
||||||
set ss4u_LoRange -6.0
|
|
||||||
set ss4d_LoRange -26.0
|
|
||||||
|
|
||||||
#calculate individual slit motor high ranges
|
|
||||||
set ss1r_HiRange [expr $hSlitHome + $hSlitHiRange]
|
|
||||||
set ss1l_HiRange [expr $hSlitHome + $hSlitLoRange]
|
|
||||||
set ss1u_HiRange [expr $vSlitHome + $vSlitHiRange]
|
|
||||||
set ss1d_HiRange [expr $vSlitHome + $vSlitLoRange]
|
|
||||||
set ss2r_HiRange [expr $hSlitHome + $hSlitHiRange]
|
|
||||||
set ss2l_HiRange [expr $hSlitHome + $hSlitLoRange]
|
|
||||||
set ss2u_HiRange [expr $vSlitHome + $vSlitHiRange]
|
|
||||||
set ss2d_HiRange [expr $vSlitHome + $vSlitLoRange]
|
|
||||||
|
|
||||||
set ss3r_HiRange 27.0
|
|
||||||
set ss3l_HiRange 14.0
|
|
||||||
set ss3u_HiRange 29.0
|
|
||||||
set ss3d_HiRange 8.0
|
|
||||||
set ss4r_HiRange 32.0
|
|
||||||
set ss4l_HiRange 14.0
|
|
||||||
set ss4u_HiRange 27.0
|
|
||||||
set ss4d_HiRange 8.0
|
|
||||||
}
|
|
||||||
set slit1VGroup first/vertical
|
set slit1VGroup first/vertical
|
||||||
set slit1HGroup first/horizontal
|
set slit1HGroup first/horizontal
|
||||||
set slit2VGroup second/vertical
|
set slit2VGroup second/vertical
|
||||||
@@ -548,7 +526,7 @@ ss1l part slits.$slit1HGroup
|
|||||||
ss1l long_name left
|
ss1l long_name left
|
||||||
ss1l softlowerlim $ss1l_LoRange
|
ss1l softlowerlim $ss1l_LoRange
|
||||||
ss1l softupperlim $ss1l_HiRange
|
ss1l softupperlim $ss1l_HiRange
|
||||||
ss1l home 0
|
ss1l home $ss1l_home_mm
|
||||||
ss1l backlash_offset -0.5
|
ss1l backlash_offset -0.5
|
||||||
ss1l precision 0.005
|
ss1l precision 0.005
|
||||||
|
|
||||||
@@ -568,7 +546,7 @@ ss1r part slits.$slit1HGroup
|
|||||||
ss1r long_name right
|
ss1r long_name right
|
||||||
ss1r softlowerlim $ss1r_LoRange
|
ss1r softlowerlim $ss1r_LoRange
|
||||||
ss1r softupperlim $ss1r_HiRange
|
ss1r softupperlim $ss1r_HiRange
|
||||||
ss1r home 0
|
ss1r home $ss1r_home_mm
|
||||||
ss1r backlash_offset -0.5
|
ss1r backlash_offset -0.5
|
||||||
ss1r precision 0.005
|
ss1r precision 0.005
|
||||||
|
|
||||||
@@ -588,7 +566,7 @@ ss1u part slits.$slit1VGroup
|
|||||||
ss1u long_name upper
|
ss1u long_name upper
|
||||||
ss1u softlowerlim $ss1u_LoRange
|
ss1u softlowerlim $ss1u_LoRange
|
||||||
ss1u softupperlim $ss1u_HiRange
|
ss1u softupperlim $ss1u_HiRange
|
||||||
ss1u home 0
|
ss1u home $ss1u_home_mm
|
||||||
ss1u backlash_offset -0.5
|
ss1u backlash_offset -0.5
|
||||||
ss1u precision 0.005
|
ss1u precision 0.005
|
||||||
|
|
||||||
@@ -608,7 +586,7 @@ ss1d part slits.$slit1VGroup
|
|||||||
ss1d long_name lower
|
ss1d long_name lower
|
||||||
ss1d softlowerlim $ss1d_LoRange
|
ss1d softlowerlim $ss1d_LoRange
|
||||||
ss1d softupperlim $ss1d_HiRange
|
ss1d softupperlim $ss1d_HiRange
|
||||||
ss1d home 0
|
ss1d home $ss1d_home_mm
|
||||||
ss1d backlash_offset -0.5
|
ss1d backlash_offset -0.5
|
||||||
ss1d precision 0.005
|
ss1d precision 0.005
|
||||||
|
|
||||||
@@ -628,7 +606,7 @@ ss2l part slits.$slit2HGroup
|
|||||||
ss2l long_name left
|
ss2l long_name left
|
||||||
ss2l softlowerlim $ss2l_LoRange
|
ss2l softlowerlim $ss2l_LoRange
|
||||||
ss2l softupperlim $ss2l_HiRange
|
ss2l softupperlim $ss2l_HiRange
|
||||||
ss2l home 0
|
ss2l home $ss2l_home_mm
|
||||||
ss2l backlash_offset -0.5
|
ss2l backlash_offset -0.5
|
||||||
ss2l precision 0.005
|
ss2l precision 0.005
|
||||||
|
|
||||||
@@ -648,7 +626,7 @@ ss2r part slits.$slit2HGroup
|
|||||||
ss2r long_name right
|
ss2r long_name right
|
||||||
ss2r softlowerlim $ss2r_LoRange
|
ss2r softlowerlim $ss2r_LoRange
|
||||||
ss2r softupperlim $ss2r_HiRange
|
ss2r softupperlim $ss2r_HiRange
|
||||||
ss2r home 0
|
ss2r home $ss2r_home_mm
|
||||||
ss2r backlash_offset -0.5
|
ss2r backlash_offset -0.5
|
||||||
ss2r precision 0.005
|
ss2r precision 0.005
|
||||||
|
|
||||||
@@ -668,7 +646,7 @@ ss2u part slits.$slit2VGroup
|
|||||||
ss2u long_name upper
|
ss2u long_name upper
|
||||||
ss2u softlowerlim $ss2u_LoRange
|
ss2u softlowerlim $ss2u_LoRange
|
||||||
ss2u softupperlim $ss2u_HiRange
|
ss2u softupperlim $ss2u_HiRange
|
||||||
ss2u home 0
|
ss2u home $ss2u_home_mm
|
||||||
ss2u backlash_offset -0.5
|
ss2u backlash_offset -0.5
|
||||||
ss2u precision 0.005
|
ss2u precision 0.005
|
||||||
|
|
||||||
@@ -688,7 +666,7 @@ ss2d part slits.$slit2VGroup
|
|||||||
ss2d long_name lower
|
ss2d long_name lower
|
||||||
ss2d softlowerlim $ss2d_LoRange
|
ss2d softlowerlim $ss2d_LoRange
|
||||||
ss2d softupperlim $ss2d_HiRange
|
ss2d softupperlim $ss2d_HiRange
|
||||||
ss2d home 0
|
ss2d home $ss2d_home_mm
|
||||||
ss2d backlash_offset -0.5
|
ss2d backlash_offset -0.5
|
||||||
ss2d precision 0.005
|
ss2d precision 0.005
|
||||||
|
|
||||||
@@ -715,7 +693,7 @@ ss3d part slits.$slit3VGroup
|
|||||||
ss3d long_name lower
|
ss3d long_name lower
|
||||||
ss3d softlowerlim $ss3d_LoRange
|
ss3d softlowerlim $ss3d_LoRange
|
||||||
ss3d softupperlim $ss3d_HiRange
|
ss3d softupperlim $ss3d_HiRange
|
||||||
ss3d home 0
|
ss3d home $ss3d_home_mm
|
||||||
ss3d backlash_offset -0.5
|
ss3d backlash_offset -0.5
|
||||||
ss3d precision 0.005
|
ss3d precision 0.005
|
||||||
|
|
||||||
@@ -735,7 +713,7 @@ ss3u part slits.$slit3VGroup
|
|||||||
ss3u long_name upper
|
ss3u long_name upper
|
||||||
ss3u softlowerlim $ss3u_LoRange
|
ss3u softlowerlim $ss3u_LoRange
|
||||||
ss3u softupperlim $ss3u_HiRange
|
ss3u softupperlim $ss3u_HiRange
|
||||||
ss3u home 0
|
ss3u home $ss3u_home_mm
|
||||||
ss3u backlash_offset -0.5
|
ss3u backlash_offset -0.5
|
||||||
ss3u precision 0.005
|
ss3u precision 0.005
|
||||||
|
|
||||||
@@ -755,7 +733,7 @@ ss3l part slits.$slit3HGroup
|
|||||||
ss3l long_name left
|
ss3l long_name left
|
||||||
ss3l softlowerlim $ss3l_LoRange
|
ss3l softlowerlim $ss3l_LoRange
|
||||||
ss3l softupperlim $ss3l_HiRange
|
ss3l softupperlim $ss3l_HiRange
|
||||||
ss3l home 0
|
ss3l home $ss3l_home_mm
|
||||||
ss3l backlash_offset -0.5
|
ss3l backlash_offset -0.5
|
||||||
ss3l precision 0.005
|
ss3l precision 0.005
|
||||||
|
|
||||||
@@ -775,7 +753,7 @@ ss3r part slits.$slit3HGroup
|
|||||||
ss3r long_name right
|
ss3r long_name right
|
||||||
ss3r softlowerlim $ss3r_LoRange
|
ss3r softlowerlim $ss3r_LoRange
|
||||||
ss3r softupperlim $ss3r_HiRange
|
ss3r softupperlim $ss3r_HiRange
|
||||||
ss3r home 0
|
ss3r home $ss3r_home_mm
|
||||||
ss3r backlash_offset -0.5
|
ss3r backlash_offset -0.5
|
||||||
ss3r precision 0.005
|
ss3r precision 0.005
|
||||||
|
|
||||||
@@ -795,7 +773,7 @@ ss4d part slits.$slit4VGroup
|
|||||||
ss4d long_name lower
|
ss4d long_name lower
|
||||||
ss4d softlowerlim $ss4d_LoRange
|
ss4d softlowerlim $ss4d_LoRange
|
||||||
ss4d softupperlim $ss4d_HiRange
|
ss4d softupperlim $ss4d_HiRange
|
||||||
ss4d home 0
|
ss4d home $ss4d_home_mm
|
||||||
ss4d backlash_offset -0.5
|
ss4d backlash_offset -0.5
|
||||||
ss4d precision 0.005
|
ss4d precision 0.005
|
||||||
|
|
||||||
@@ -815,7 +793,7 @@ ss4u part slits.$slit4VGroup
|
|||||||
ss4u long_name upper
|
ss4u long_name upper
|
||||||
ss4u softlowerlim $ss4u_LoRange
|
ss4u softlowerlim $ss4u_LoRange
|
||||||
ss4u softupperlim $ss4u_HiRange
|
ss4u softupperlim $ss4u_HiRange
|
||||||
ss4u home 0
|
ss4u home $ss4u_home_mm
|
||||||
ss4u backlash_offset -0.5
|
ss4u backlash_offset -0.5
|
||||||
ss4u precision 0.005
|
ss4u precision 0.005
|
||||||
|
|
||||||
@@ -835,7 +813,7 @@ ss4l part slits.$slit4HGroup
|
|||||||
ss4l long_name left
|
ss4l long_name left
|
||||||
ss4l softlowerlim $ss4l_LoRange
|
ss4l softlowerlim $ss4l_LoRange
|
||||||
ss4l softupperlim $ss4l_HiRange
|
ss4l softupperlim $ss4l_HiRange
|
||||||
ss4l home 0
|
ss4l home $ss4l_home_mm
|
||||||
ss4l backlash_offset -0.5
|
ss4l backlash_offset -0.5
|
||||||
ss4l precision 0.005
|
ss4l precision 0.005
|
||||||
|
|
||||||
@@ -855,7 +833,7 @@ ss4r part slits.$slit4HGroup
|
|||||||
ss4r long_name right
|
ss4r long_name right
|
||||||
ss4r softlowerlim $ss4r_LoRange
|
ss4r softlowerlim $ss4r_LoRange
|
||||||
ss4r softupperlim $ss4r_HiRange
|
ss4r softupperlim $ss4r_HiRange
|
||||||
ss4r home 0
|
ss4r home $ss4r_home_mm
|
||||||
ss4r backlash_offset -0.5
|
ss4r backlash_offset -0.5
|
||||||
ss4r precision 0.005
|
ss4r precision 0.005
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user