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

Rename Physical Collimator motors from cx to pcx and virtual motors from vc0x to cx

Browse Source 
r2184 | dcl | 2007-10-17 08:35:07 +1000 (Wed, 17 Oct 2007) | 2 lines
This commit is contained in:
Douglas Clowes
2007-10-17 08:35:07 +10:00
parent 5d311bf61f
commit 9052167b7f
1 changed files with 183 additions and 183 deletions
Download Patch File Download Diff File Expand all files Collapse all files

366
site_ansto/instrument/sans/config/motors/motor_configuration.tcl
View File

@@ -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 {