reflectometer commands.tcl motor_configuration.tcl parameters.tcl and platypus_configuration.tcl

Merged in-situ changes from ics1-platypus

r2835 | ffr | 2009-12-09 18:16:26 +1100 (Wed, 09 Dec 2009) | 3 lines

site_ansto/instrument/reflectometer/config/motors/motor_configuration.tcl

@@ -34,7 +34,7 @@ if {$sim_mode == "true"} {
 #Measured absolute encoder reading at home position
 
 set bz_home 8142000
-set c1ht_home 8265000
+set c1ht_home 8152065
 set m1ro_home 134658
 set bat_home 8308518
 set st3vt_home 5250496
@@ -46,7 +46,7 @@ set sphi_home 7450470
 set sx_home 8574000
 set sy_home 7500000
 set sz_home 8927484
-set dy_home 8838649
+set dy_home 8860668 
 set dz_home 7788617 
 
 #Measured or computed step rate for sz (Sample Raise)
@@ -872,44 +872,54 @@ ss4r backlash_offset -0.5
 ss4r precision 0.005
 
 ## Polarization Analyzer Vertical Translation, Z
-#Motor anzvt $motor_driver_type [params \
-#  asyncqueue mc2\
-#  axis xxxx\
-#  units mm\
-#  maxSpeed 1\
-#  maxAccel 1\
-#  maxDecel 1\
-#  stepsPerX 25000\
-#  absEnc 1\
-#  absEncHome 7500000\
-#  cntsPerX 8192]
-#anzvt part polarizer
-#anzvt long_name z_translation
-#anzvt hardlowerlim xxxx
-#anzvt hardupperlim xxxx
-#anzvt softlowerlim xxxx
-#anzvt softupperlim xxxx
-#anzvt home 0
+#double entry ball screw, 25mm pitch, with 100:1 gearbox
+#before 100:1 gearbox was put in absEncHome was 19475318
+#with 100:1 gearbox in the absEncHome has changed.
+Motor analz $motor_driver_type [params \
+  asyncqueue mc2\
+  axis F\
+  units mm\
+  hardlowerlim 0\
+  hardupperlim 1215\
+  maxSpeed 1.5\
+  maxAccel 0.5\
+  maxDecel 0.5\
+  stepsPerX [expr 25000/0.25]\
+  absEnc 1\
+  absEncHome 7983619\
+  cntsPerX [expr 8192./25.] ]
+analz part polarizer
+analz long_name z_translation
+analz softlowerlim 0
+analz softupperlim 1227
+analz home 591.699
+analz backlash_offset -0.5
+analz precision 0.004
+analz speed 1
 
 ## Polarization Analyzer Rotation
-#Motor anro $motor_driver_type [params \
-#  asyncqueue mc2\
-#  axis xxxx\
-#  units mm\
-#  hardlowerlim -10\
-#  hardupperlim 10\
-#  maxSpeed 1\
-#  maxAccel 1\
-#  maxDecel 1\
-#  stepsPerX 25000\
-#  absEnc 1\
-#  absEncHome 7500000\
-#  cntsPerX 8192]
-#anro part polarizer
-#anro long_name rotation
-#anro softlowerlim -10
-#anro softupperlim 10
-#anro home 0
+set analtilt_lowerlim -12
+set analtilt_upperlim 12
+Motor analtilt $motor_driver_type [params \
+  asyncqueue mc2\
+  axis D\
+  units degrees\
+  hardlowerlim $analtilt_lowerlim\
+  hardupperlim $analtilt_upperlim\
+  maxSpeed 1\
+  maxAccel 1\
+  maxDecel 1\
+  stepsPerX -25000\
+  absEnc 1\
+  absEncHome 14520671\
+  cntsPerX -8192]
+analtilt part polarizer
+analtilt long_name rotation
+analtilt softlowerlim $analtilt_lowerlim
+analtilt softupperlim $analtilt_upperlim
+analtilt backlash_offset 0.5
+analtilt precision 0.01
+analtilt home 0
 
 #proc SplitReply { text } {
 #     set l [split $text =]