From 9052167b7f36da72bd4c4a7186bfaa2c7f51423d Mon Sep 17 00:00:00 2001
From: Douglas Clowes <dcl@ansto.gov.au>
Date: Wed, 17 Oct 2007 08:35:07 +1000
Subject: [PATCH] Rename Physical Collimator motors from cx to pcx and virtual
 motors from vc0x to cx

r2184 | dcl | 2007-10-17 08:35:07 +1000 (Wed, 17 Oct 2007) | 2 lines
---
 .../config/motors/motor_configuration.tcl     | 366 +++++++++---------
 1 file changed, 183 insertions(+), 183 deletions(-)

diff --git a/site_ansto/instrument/sans/config/motors/motor_configuration.tcl b/site_ansto/instrument/sans/config/motors/motor_configuration.tcl
index 1980bf20..465982e5 100644
--- a/site_ansto/instrument/sans/config/motors/motor_configuration.tcl
+++ b/site_ansto/instrument/sans/config/motors/motor_configuration.tcl
@@ -1,5 +1,5 @@
-# $Revision: 1.9 $
-# $Date: 2007-10-05 01:55:46 $
+# $Revision: 1.10 $
+# $Date: 2007-10-16 22:35:07 $
 # Author: Ferdi Franceschini (ffr@ansto.gov.au)
 # Last revision by: $Author: dcl $
 
@@ -63,101 +63,101 @@ set bs1_Home 7500000
 set pol_Home 7500000
 
 # early Guide mesaurements
-#set c1_Home 7967536
-#set c2_Home 7180101
-#set c3_Home 8209736
-#set c4_Home 6082786
-#set c5_Home 7584833
-#set c6_Home 8520594
-#set c7_Home 23885626
-#set c8_Home 8022666
+#set pc1_Home 7967536
+#set pc2_Home 7180101
+#set pc3_Home 8209736
+#set pc4_Home 6082786
+#set pc5_Home 7584833
+#set pc6_Home 8520594
+#set pc7_Home 23885626
+#set pc8_Home 8022666
 #
-#set c9_Home 7572825
-#set c10_Home 25686602
+#set pc9_Home 7572825
+#set pc10_Home 25686602
 
-#set c1_Home 8130647
-#set c2_Home 7593804
-#set c3_Home 8441013
-#set c4_Home 6160389
+#set pc1_Home 8130647
+#set pc2_Home 7593804
+#set pc3_Home 8441013
+#set pc4_Home 6160389
 #if {0} {
 # 2007-08-29 Guide measurements
-#set c1_Home 8130106
-#set c2_Home 7595441
-#set c3_Home 8441907
-#set c4_Home 6161511
-#set c5_Home 7856229
-#set c6_Home 8798839
-#set c7_Home 24164694
-#set c8_Home 8302765
-#set c9_Home 7852000
-#set c10_Home 25977117
+#set pc1_Home 8130106
+#set pc2_Home 7595441
+#set pc3_Home 8441907
+#set pc4_Home 6161511
+#set pc5_Home 7856229
+#set pc6_Home 8798839
+#set pc7_Home 24164694
+#set pc8_Home 8302765
+#set pc9_Home 7852000
+#set pc10_Home 25977117
 #}
 
 #Guide Positions 2007-09-04 11:04
 #================================
 #
-#c1 send TP
+#pc1 send TP
 # 8130115, 7595447, 8441775, 6162749, 7856270, 8800694, 24164697, 8302140
-#c9 send TP
+#pc9 send TP
 # 7851835, 25977420, 8035113, 7369888, 0, 0, 9228662, 0
 #
 # Guide Positions 2007-09-06 20:08
 #================================
-#c1 send TP
+#pc1 send TP
 # 8130379, 7595711, 8441761, 6162739, 7856261, 8800677, 24167230, 8302153
-#c9 send TP
+#pc9 send TP
 # 7851826, 25977221, 7990530, 7191374, 0, 0, 9228662, 0
-set c1_Guide 8130379
-set c2_Guide 7595711
-set c3_Guide 8441761
-set c4_Guide 6162739
-set c5_Guide 7856261
-set c6_Guide 8800677
-set c7_Guide 24167230
-set c8_Guide 8302153
-set c9_Guide 7851826
-set c10_Guide 25977221
+set pc1_Guide 8130379
+set pc2_Guide 7595711
+set pc3_Guide 8441761
+set pc4_Guide 6162739
+set pc5_Guide 7856261
+set pc6_Guide 8800677
+set pc7_Guide 24167230
+set pc8_Guide 8302153
+set pc9_Guide 7851826
+set pc10_Guide 25977221
 
-set c1_Polarizer 7858577
-set c2_Polarizer 7323919
+set pc1_Polarizer 7858577
+set pc2_Polarizer 7323919
 
 #Aperture Position: 2007-09-05 09:08
 #===================================
-#c1 send TP
+#pc1 send TP
 # 8130097, 7595436, 8304247, 6029748, 7728739, 8663027, 24034030, 8169924
-#c9 send TP
+#pc9 send TP
 # 7719610, 25835487, 8029231, 7827402, 0, 0, 9228662, 0
 
-set c3_Aperture 8304247
-set c4_Aperture 6029748
-set c5_Aperture 7728739
-set c6_Aperture 8663027
-set c7_Aperture 24034030
-set c8_Aperture 8169924
-set c9_Aperture 7719610
-set c10_Aperture 25835487
+set pc3_Aperture 8304247
+set pc4_Aperture 6029748
+set pc5_Aperture 7728739
+set pc6_Aperture 8663027
+set pc7_Aperture 24034030
+set pc8_Aperture 8169924
+set pc9_Aperture 7719610
+set pc10_Aperture 25835487
 
-set c1_Home $c1_Guide
-set c2_Home $c2_Guide
-set c3_Home $c3_Guide
-set c4_Home $c4_Guide
-set c5_Home $c5_Guide
-set c6_Home $c6_Guide
-set c7_Home $c7_Guide
-set c8_Home $c8_Guide
-set c9_Home $c9_Guide
-set c10_Home $c10_Guide
+set pc1_Home $pc1_Guide
+set pc2_Home $pc2_Guide
+set pc3_Home $pc3_Guide
+set pc4_Home $pc4_Guide
+set pc5_Home $pc5_Guide
+set pc6_Home $pc6_Guide
+set pc7_Home $pc7_Guide
+set pc8_Home $pc8_Guide
+set pc9_Home $pc9_Guide
+set pc10_Home $pc10_Guide
 
-set c1_Empty [expr ($c1_Guide + $c1_Polarizer)/2]
-set c2_Empty [expr ($c2_Guide + $c2_Polarizer)/2]
-set c3_Empty [expr (2 * $c3_Guide) - $c3_Aperture]
-set c4_Empty [expr (2 * $c4_Guide) - $c4_Aperture]
-set c5_Empty [expr (2 * $c5_Guide) - $c5_Aperture]
-set c6_Empty [expr (2 * $c6_Guide) - $c6_Aperture]
-set c7_Empty [expr (2 * $c7_Guide) - $c7_Aperture]
-set c8_Empty [expr (2 * $c8_Guide) - $c8_Aperture]
-set c9_Empty [expr (2 * $c9_Guide) - $c9_Aperture]
-set c10_Empty [expr (2 * $c10_Guide) - $c10_Aperture]
+set pc1_Empty [expr ($pc1_Guide + $pc1_Polarizer)/2]
+set pc2_Empty [expr ($pc2_Guide + $pc2_Polarizer)/2]
+set pc3_Empty [expr (2 * $pc3_Guide) - $pc3_Aperture]
+set pc4_Empty [expr (2 * $pc4_Guide) - $pc4_Aperture]
+set pc5_Empty [expr (2 * $pc5_Guide) - $pc5_Aperture]
+set pc6_Empty [expr (2 * $pc6_Guide) - $pc6_Aperture]
+set pc7_Empty [expr (2 * $pc7_Guide) - $pc7_Aperture]
+set pc8_Empty [expr (2 * $pc8_Guide) - $pc8_Aperture]
+set pc9_Empty [expr (2 * $pc9_Guide) - $pc9_Aperture]
+set pc10_Empty [expr (2 * $pc10_Guide) - $pc10_Aperture]
 
 #Measured or computed step/count rates for collimator translation
 set coll_StepsPerX [expr -25000.0/6.0]
@@ -379,7 +379,7 @@ detoff home 0
 #
 
 # Collimation motor 1
-Motor c1 $motor_driver_type [params \
+Motor pc1 $motor_driver_type [params \
   asyncqueue mc2\
   host mc2-quokka\
   port pmc2-quokka\
@@ -392,20 +392,20 @@ Motor c1 $motor_driver_type [params \
   maxDecel 1\
   stepsPerX $coll_StepsPerX\
   absEnc 1\
-  absEncHome $c1_Home\
+  absEncHome $pc1_Home\
   cntsPerX $coll_CntsPerX\
   posit_count 3]
-c1 posit_1 [expr $c1_Guide]
-c1 posit_2 [expr $c1_Empty]
-c1 posit_3 [expr $c1_Polarizer]
-c1 part collimator
-c1 long_name c1
-setHomeandRange -motor c1 -home 0 -lowrange 95 -uprange 95
-c1 speed 3
-c1 creep_offset 1
+pc1 posit_1 [expr $pc1_Guide]
+pc1 posit_2 [expr $pc1_Empty]
+pc1 posit_3 [expr $pc1_Polarizer]
+pc1 part collimator
+pc1 long_name pc1
+setHomeandRange -motor pc1 -home 0 -lowrange 95 -uprange 95
+pc1 speed 3
+pc1 creep_offset 1
 
 # Collimation motor 2
-Motor c2 $motor_driver_type [params \
+Motor pc2 $motor_driver_type [params \
   asyncqueue mc2\
   host mc2-quokka\
   port pmc2-quokka\
@@ -418,20 +418,20 @@ Motor c2 $motor_driver_type [params \
   maxDecel 1\
   stepsPerX $coll_StepsPerX\
   absEnc 1\
-  absEncHome $c2_Home\
+  absEncHome $pc2_Home\
   cntsPerX $coll_CntsPerX\
   posit_count 3]
-c2 posit_1 [expr $c2_Guide]
-c2 posit_2 [expr $c2_Empty]
-c2 posit_3 [expr $c2_Polarizer]
-c2 part collimator
-c2 long_name c2
-setHomeandRange -motor c2 -home 0 -lowrange 95 -uprange 95
-c2 speed 6
-c2 creep_offset 1
+pc2 posit_1 [expr $pc2_Guide]
+pc2 posit_2 [expr $pc2_Empty]
+pc2 posit_3 [expr $pc2_Polarizer]
+pc2 part collimator
+pc2 long_name pc2
+setHomeandRange -motor pc2 -home 0 -lowrange 95 -uprange 95
+pc2 speed 6
+pc2 creep_offset 1
 
 # Collimation motor 3
-Motor c3 $motor_driver_type [params \
+Motor pc3 $motor_driver_type [params \
   asyncqueue mc2\
   host mc2-quokka\
   port pmc2-quokka\
@@ -444,20 +444,20 @@ Motor c3 $motor_driver_type [params \
   maxDecel 1\
   stepsPerX $coll_StepsPerX\
   absEnc 1\
-  absEncHome $c3_Home\
+  absEncHome $pc3_Home\
   cntsPerX $coll_CntsPerX\
   posit_count 3]
-c3 posit_1 [expr $c3_Empty]
-c3 posit_2 [expr $c3_Guide]
-c3 posit_3 [expr $c3_Aperture]
-c3 part collimator
-c3 long_name c3
-setHomeandRange -motor c3 -home 0 -lowrange 190 -uprange 190
-c3 speed 6
-c3 creep_offset 1
+pc3 posit_1 [expr $pc3_Empty]
+pc3 posit_2 [expr $pc3_Guide]
+pc3 posit_3 [expr $pc3_Aperture]
+pc3 part collimator
+pc3 long_name pc3
+setHomeandRange -motor pc3 -home 0 -lowrange 190 -uprange 190
+pc3 speed 6
+pc3 creep_offset 1
 
 # Collimation motor 4
-Motor c4 $motor_driver_type [params \
+Motor pc4 $motor_driver_type [params \
   asyncqueue mc2\
   host mc2-quokka\
   port pmc2-quokka\
@@ -470,20 +470,20 @@ Motor c4 $motor_driver_type [params \
   maxDecel 1\
   stepsPerX $coll_StepsPerX\
   absEnc 1\
-  absEncHome $c4_Home\
+  absEncHome $pc4_Home\
   cntsPerX $coll_CntsPerX\
   posit_count 3]
-c4 posit_1 [expr $c4_Empty]
-c4 posit_2 [expr $c4_Guide]
-c4 posit_3 [expr $c4_Aperture]
-c4 part collimator
-c4 long_name c4
-setHomeandRange -motor c4 -home 0 -lowrange 190 -uprange 190
-c4 speed 6
-c4 creep_offset 1
+pc4 posit_1 [expr $pc4_Empty]
+pc4 posit_2 [expr $pc4_Guide]
+pc4 posit_3 [expr $pc4_Aperture]
+pc4 part collimator
+pc4 long_name pc4
+setHomeandRange -motor pc4 -home 0 -lowrange 190 -uprange 190
+pc4 speed 6
+pc4 creep_offset 1
 
 # Collimation motor 5
-Motor c5 $motor_driver_type [params \
+Motor pc5 $motor_driver_type [params \
   asyncqueue mc2\
   host mc2-quokka\
   port pmc2-quokka\
@@ -496,20 +496,20 @@ Motor c5 $motor_driver_type [params \
   maxDecel 1\
   stepsPerX $coll_StepsPerX\
   absEnc 1\
-  absEncHome $c5_Home\
+  absEncHome $pc5_Home\
   cntsPerX $coll_CntsPerX\
   posit_count 3]
-c5 posit_1 [expr $c5_Empty]
-c5 posit_2 [expr $c5_Guide]
-c5 posit_3 [expr $c5_Aperture]
-c5 part collimator
-c5 long_name c5
-setHomeandRange -motor c5 -home 0 -lowrange 190 -uprange 190
-c5 speed 6
-c5 creep_offset 1
+pc5 posit_1 [expr $pc5_Empty]
+pc5 posit_2 [expr $pc5_Guide]
+pc5 posit_3 [expr $pc5_Aperture]
+pc5 part collimator
+pc5 long_name pc5
+setHomeandRange -motor pc5 -home 0 -lowrange 190 -uprange 190
+pc5 speed 6
+pc5 creep_offset 1
 
 # Collimation motor 6
-Motor c6 $motor_driver_type [params \
+Motor pc6 $motor_driver_type [params \
   asyncqueue mc2\
   host mc2-quokka\
   port pmc2-quokka\
@@ -522,20 +522,20 @@ Motor c6 $motor_driver_type [params \
   maxDecel 1\
   stepsPerX $coll_StepsPerX\
   absEnc 1\
-  absEncHome $c6_Home\
+  absEncHome $pc6_Home\
   cntsPerX $coll_CntsPerX\
   posit_count 3]
-c6 posit_1 [expr $c6_Empty]
-c6 posit_2 [expr $c6_Guide]
-c6 posit_3 [expr $c6_Aperture]
-c6 part collimator
-c6 long_name c6
-setHomeandRange -motor c6 -home 0 -lowrange 190 -uprange 190
-c6 speed 6
-c6 creep_offset 1
+pc6 posit_1 [expr $pc6_Empty]
+pc6 posit_2 [expr $pc6_Guide]
+pc6 posit_3 [expr $pc6_Aperture]
+pc6 part collimator
+pc6 long_name pc6
+setHomeandRange -motor pc6 -home 0 -lowrange 190 -uprange 190
+pc6 speed 6
+pc6 creep_offset 1
 
 # Collimation motor 7
-Motor c7 $motor_driver_type [params \
+Motor pc7 $motor_driver_type [params \
   asyncqueue mc2\
   host mc2-quokka\
   port pmc2-quokka\
@@ -548,20 +548,20 @@ Motor c7 $motor_driver_type [params \
   maxDecel 1\
   stepsPerX $coll_StepsPerX\
   absEnc 1\
-  absEncHome $c7_Home\
+  absEncHome $pc7_Home\
   cntsPerX $coll_CntsPerX\
   posit_count 3]
-c7 posit_1 [expr $c7_Empty]
-c7 posit_2 [expr $c7_Guide]
-c7 posit_3 [expr $c7_Aperture]
-c7 part collimator
-c7 long_name c7
-setHomeandRange -motor c7 -home 0 -lowrange 190 -uprange 190
-c7 speed 6
-c7 creep_offset 1
+pc7 posit_1 [expr $pc7_Empty]
+pc7 posit_2 [expr $pc7_Guide]
+pc7 posit_3 [expr $pc7_Aperture]
+pc7 part collimator
+pc7 long_name pc7
+setHomeandRange -motor pc7 -home 0 -lowrange 190 -uprange 190
+pc7 speed 6
+pc7 creep_offset 1
 
 # Collimation motor 8
-Motor c8 $motor_driver_type [params \
+Motor pc8 $motor_driver_type [params \
   asyncqueue mc2\
   host mc2-quokka\
   port pmc2-quokka\
@@ -574,17 +574,17 @@ Motor c8 $motor_driver_type [params \
   maxDecel 1\
   stepsPerX $coll_StepsPerX\
   absEnc 1\
-  absEncHome $c8_Home\
+  absEncHome $pc8_Home\
   cntsPerX $coll_CntsPerX\
   posit_count 3]
-c8 posit_1 [expr $c8_Empty]
-c8 posit_2 [expr $c8_Guide]
-c8 posit_3 [expr $c8_Aperture]
-c8 part collimator
-c8 long_name c8
-setHomeandRange -motor c8 -home 0 -lowrange 190 -uprange 190
-c8 speed 6
-c8 creep_offset 1
+pc8 posit_1 [expr $pc8_Empty]
+pc8 posit_2 [expr $pc8_Guide]
+pc8 posit_3 [expr $pc8_Aperture]
+pc8 part collimator
+pc8 long_name pc8
+setHomeandRange -motor pc8 -home 0 -lowrange 190 -uprange 190
+pc8 speed 6
+pc8 creep_offset 1
 
 ############################
 # Motor Controller 3
@@ -594,7 +594,7 @@ c8 creep_offset 1
 #
 
 # Collimation motor 9
-Motor c9 $motor_driver_type [params \
+Motor pc9 $motor_driver_type [params \
   asyncqueue mc3\
   host mc3-quokka\
   port pmc3-quokka\
@@ -607,20 +607,20 @@ Motor c9 $motor_driver_type [params \
   maxDecel 1\
   stepsPerX $coll_StepsPerX\
   absEnc 1\
-  absEncHome $c9_Home\
+  absEncHome $pc9_Home\
   cntsPerX $coll_CntsPerX\
   posit_count 3]
-c9 posit_1 [expr $c9_Empty]
-c9 posit_2 [expr $c9_Guide]
-c9 posit_3 [expr $c9_Aperture]
-c9 part collimator
-c9 long_name c9
-setHomeandRange -motor c9 -home 0 -lowrange 190 -uprange 190
-c9 speed 6
-c9 creep_offset 1
+pc9 posit_1 [expr $pc9_Empty]
+pc9 posit_2 [expr $pc9_Guide]
+pc9 posit_3 [expr $pc9_Aperture]
+pc9 part collimator
+pc9 long_name pc9
+setHomeandRange -motor pc9 -home 0 -lowrange 190 -uprange 190
+pc9 speed 6
+pc9 creep_offset 1
 
 # Collimation motor 10
-Motor c10 $motor_driver_type [params \
+Motor pc10 $motor_driver_type [params \
   asyncqueue mc3\
   host mc3-quokka\
   port pmc3-quokka\
@@ -633,19 +633,19 @@ Motor c10 $motor_driver_type [params \
   maxDecel 1\
   stepsPerX $coll_StepsPerX\
   absEnc 1\
-  absEncHome $c10_Home\
+  absEncHome $pc10_Home\
   cntsPerX $coll_CntsPerX\
   posit_count 5]
-c10 posit_1 [expr $c10_Empty + 81920]
-c10 posit_2 [expr $c10_Empty]
-c10 posit_3 [expr $c10_Guide]
-c10 posit_4 [expr $c10_Aperture]
-c10 posit_5 [expr $c10_Aperture - 81920]
-c10 part collimator
-c10 long_name c10
-setHomeandRange -motor c10 -home 0 -lowrange 190 -uprange 190
-c10 speed 6
-c10 creep_offset 1
+pc10 posit_1 [expr $pc10_Empty + 81920]
+pc10 posit_2 [expr $pc10_Empty]
+pc10 posit_3 [expr $pc10_Guide]
+pc10 posit_4 [expr $pc10_Aperture]
+pc10 posit_5 [expr $pc10_Aperture - 81920]
+pc10 part collimator
+pc10 long_name pc10
+setHomeandRange -motor pc10 -home 0 -lowrange 190 -uprange 190
+pc10 speed 6
+pc10 creep_offset 1
 
 # Pentaprism
 Motor pent $motor_driver_type [params \
@@ -996,15 +996,15 @@ proc make_coll_motor_2 { vm1 vm1_name pm1 pm2 aunits } {
 # http://www.unidata.ucar.edu/software/udunits/udunits-1/udunits.txt
 # So we use "count" for dimensionless decimal numbers
 set vc_units count
-make_coll_motor_2 vc01 section_1 c1 c2 $vc_units
-make_coll_motor_1 vc02 section_2 c3 $vc_units
-make_coll_motor_1 vc03 section_3 c4 $vc_units
-make_coll_motor_1 vc04 section_4 c5 $vc_units
-make_coll_motor_1 vc05 section_5 c6 $vc_units
-make_coll_motor_1 vc06 section_6 c7 $vc_units
-make_coll_motor_1 vc07 section_7 c8 $vc_units
-make_coll_motor_1 vc08 section_8 c9 $vc_units
-make_coll_motor_1 vc09 section_9 c10 $vc_units
+make_coll_motor_2 c1 section_1 pc1 pc2 $vc_units
+make_coll_motor_1 c2 section_2 pc3 $vc_units
+make_coll_motor_1 c3 section_3 pc4 $vc_units
+make_coll_motor_1 c4 section_4 pc5 $vc_units
+make_coll_motor_1 c5 section_5 pc6 $vc_units
+make_coll_motor_1 c6 section_6 pc7 $vc_units
+make_coll_motor_1 c7 section_7 pc8 $vc_units
+make_coll_motor_1 c8 section_8 pc9 $vc_units
+make_coll_motor_1 c9 section_9 pc10 $vc_units
 unset vc_units
 
 namespace eval guide {