update Lyrebird
r3042 | jgn | 2010-12-15 14:05:41 +1100 (Wed, 15 Dec 2010) | 1 line
This commit is contained in:
Jing Chen
committed by
Douglas Clowes
Douglas Clowes
parent
159cd57982
commit
eb74c04e2b
@@ -32,22 +32,24 @@ set instrument_dictionary [subst {
|
||||
datatype @none
|
||||
property {data true control true nxsave false klass NXinstrument type instrument}
|
||||
}
|
||||
instrument/parameters {
|
||||
privilege spy
|
||||
sobj {@any parameter}
|
||||
datatype @none
|
||||
property {data true control true nxsave true klass parameters type part}
|
||||
}
|
||||
instrument/reduce {
|
||||
privilege spy
|
||||
sobj {@any reduce}
|
||||
datatype @none
|
||||
property {data true control true nxsave true klass reduce type part}
|
||||
}
|
||||
instrument/parameters/parameters_group {
|
||||
instrument/reduce/parameters {
|
||||
privilege spy
|
||||
sobj {@any parameter}
|
||||
datatype @none
|
||||
property {data true control false nxsave false klass @none type nxvgroup nxalias parameters_group}
|
||||
property {data true control true nxsave true klass parameters type part}
|
||||
}
|
||||
instrument/reduce/parameters/parameters_group {
|
||||
privilege spy
|
||||
sobj {@any parameters_group}
|
||||
datatype @nonei
|
||||
#property {data true control false nxsave false klass @none type nxvgroup nxalias parameters_group}
|
||||
property {data true control false nxsave false klass @none type part nxalias parameters_group}
|
||||
}
|
||||
instrument/aperture {
|
||||
privilege spy
|
||||
|
||||
@@ -140,29 +140,30 @@ proc selbs {bs {bx "UNDEF"} {bz "UNDEF"}} {
|
||||
}
|
||||
}
|
||||
publish selbs user
|
||||
namespace eval beamstops {
|
||||
command selbsn {int=1,2,3,4,5,6 bs} {
|
||||
selbs $bs "UNDEF" "UNDEF"
|
||||
}
|
||||
command selbsxz {int=1,2,3,4,5,6 bs float bx float bz} {
|
||||
selbs $bs $bx $bz
|
||||
}
|
||||
}
|
||||
|
||||
namespace eval optics {
|
||||
VarMake ::optics::select::section text user
|
||||
VarMake ::optics::polarizer::in text user
|
||||
VarMake ::optics::lens::selection text user
|
||||
#namespace eval beamstops {
|
||||
# command selbsn {int=1,2,3,4,5,6 bs} {
|
||||
# selbs $bs "UNDEF" "UNDEF"
|
||||
# }
|
||||
# command selbsxz {int=1,2,3,4,5,6 bs float bx float bz} {
|
||||
# selbs $bs $bx $bz
|
||||
# }
|
||||
#}
|
||||
|
||||
command rotary_attenuator {int=0,15,45,90,180 angle} {
|
||||
drive att $angle
|
||||
}
|
||||
#namespace eval optics {
|
||||
# VarMake ::optics::select::section text user
|
||||
# VarMake ::optics::polarizer::in text user
|
||||
# VarMake ::optics::lens::selection text user
|
||||
|
||||
command entrance_aperture {
|
||||
int=0,45,90,135,180,270 angle
|
||||
} {
|
||||
drive srce $angle
|
||||
}
|
||||
# command rotary_attenuator {int=0,15,45,90,180 angle} {
|
||||
# drive att $angle
|
||||
# }
|
||||
|
||||
# command entrance_aperture {
|
||||
# int=0,45,90,135,180,270 angle
|
||||
# } {
|
||||
# drive srce $angle
|
||||
# }
|
||||
|
||||
# TODO Do we need this
|
||||
# command sample_aperture {
|
||||
@@ -181,35 +182,35 @@ namespace eval optics {
|
||||
#
|
||||
# eg\n
|
||||
# guide ga
|
||||
command guide "
|
||||
text=[join [array names ::optics::guide_configuration] , ] configuration
|
||||
" {
|
||||
|
||||
variable guide_configuration
|
||||
variable guide_configuration_columns
|
||||
|
||||
if [ catch {
|
||||
|
||||
foreach {compselection position} $guide_configuration($configuration) {
|
||||
foreach el $compselection guide $guide_configuration_columns {
|
||||
lappend to_config $guide
|
||||
lappend to_config [set ::optics::${guide}_map($el)]
|
||||
}
|
||||
::optics::guide -set feedback status BUSY
|
||||
set msg [eval "drive $to_config"]
|
||||
EApPosY $position
|
||||
}
|
||||
GuideConfig $configuration
|
||||
} message ] {
|
||||
::optics::guide -set feedback status IDLE
|
||||
if {$::errorCode=="NONE"} {return $message}
|
||||
return -code error $message
|
||||
}
|
||||
::optics::guide -set feedback status IDLE
|
||||
}
|
||||
::optics::guide -addfb text status
|
||||
::optics::guide -set feedback status IDLE
|
||||
}
|
||||
# command guide "
|
||||
# text=[join [array names ::optics::guide_configuration] , ] configuration
|
||||
# " {
|
||||
#
|
||||
# variable guide_configuration
|
||||
# variable guide_configuration_columns
|
||||
#
|
||||
# if [ catch {
|
||||
#
|
||||
# foreach {compselection position} $guide_configuration($configuration) {
|
||||
# foreach el $compselection guide $guide_configuration_columns {
|
||||
# lappend to_config $guide
|
||||
# lappend to_config [set ::optics::${guide}_map($el)]
|
||||
# }
|
||||
# ::optics::guide -set feedback status BUSY
|
||||
# set msg [eval "drive $to_config"]
|
||||
# EApPosY $position
|
||||
# }
|
||||
# GuideConfig $configuration
|
||||
# } message ] {
|
||||
# ::optics::guide -set feedback status IDLE
|
||||
# if {$::errorCode=="NONE"} {return $message}
|
||||
# return -code error $message
|
||||
# }
|
||||
# ::optics::guide -set feedback status IDLE
|
||||
# }
|
||||
# ::optics::guide -addfb text status
|
||||
# ::optics::guide -set feedback status IDLE
|
||||
#}
|
||||
|
||||
proc ::commands::isc_initialize {} {
|
||||
::commands::ic_initialize
|
||||
|
||||
@@ -1,12 +1,12 @@
|
||||
# Author: Jing Chen (jgn@ansto.gov.au)
|
||||
|
||||
# START MOTOR CONFIGURATION
|
||||
::utility::mkVar FastShutter text manager FastShutter false instrument true false
|
||||
#::utility::mkVar FastShutter text manager FastShutter false instrument true false
|
||||
|
||||
# SET TO 1 TO USE THE TILT STAGE ie sample phi and chi
|
||||
set use_tiltstage 0
|
||||
|
||||
set animal lyrebird
|
||||
set animal taipan
|
||||
set sim_mode [SplitReply [motor_simulation]]
|
||||
|
||||
# Setup addresses of Galil DMC2280 controllers.
|
||||
@@ -158,8 +158,8 @@ set move_count 100
|
||||
# Dummy translation motor, useful for testing scans
|
||||
Motor dummy_motor asim [params \
|
||||
asyncqueue mc1\
|
||||
host mc1-lyrebird\
|
||||
port pmc1-lyrebird\
|
||||
host mc1-taipan\
|
||||
port pmc1-taipan\
|
||||
axis C\
|
||||
units mm\
|
||||
hardlowerlim -500\
|
||||
@@ -181,8 +181,8 @@ if $use_tiltstage {
|
||||
# Sample tilt along beam [-20,+20] degrees
|
||||
Motor samchi $motor_driver_type [params \
|
||||
asyncqueue mc1\
|
||||
host mc1-lyrebird\
|
||||
port pmc1-lyrebird\
|
||||
host mc1-taipan\
|
||||
port pmc1-taipan\
|
||||
axis A\
|
||||
units degrees\
|
||||
hardlowerlim -20\
|
||||
@@ -203,8 +203,8 @@ samchi home 0
|
||||
# Sample tilt across beam [-20,+20] degrees
|
||||
Motor samphi $motor_driver_type [params \
|
||||
asyncqueue mc1\
|
||||
host mc1-lyrebird\
|
||||
port pmc1-lyrebird\
|
||||
host mc1-taipan\
|
||||
port pmc1-taipan\
|
||||
axis B\
|
||||
units degrees\
|
||||
hardlowerlim -20\
|
||||
@@ -225,8 +225,8 @@ samphi home 0
|
||||
# Sample translation across beam [0,1000] mm
|
||||
Motor samx $motor_driver_type [params \
|
||||
asyncqueue mc1\
|
||||
host mc1-lyrebird\
|
||||
port pmc1-lyrebird\
|
||||
host mc1-taipan\
|
||||
port pmc1-taipan\
|
||||
axis C\
|
||||
units mm\
|
||||
hardlowerlim -500\
|
||||
@@ -247,8 +247,8 @@ samx home 0
|
||||
# Sample translation along beam [0,1000] mm
|
||||
Motor samy $motor_driver_type [params \
|
||||
asyncqueue mc1\
|
||||
host mc1-lyrebird\
|
||||
port pmc1-lyrebird\
|
||||
host mc1-taipan\
|
||||
port pmc1-taipan\
|
||||
axis D\
|
||||
units mm\
|
||||
hardlowerlim 0\
|
||||
@@ -270,8 +270,8 @@ samy speed 5
|
||||
# Sample translation vertical [0,500] mm
|
||||
Motor samz $motor_driver_type [params \
|
||||
asyncqueue mc1\
|
||||
host mc1-lyrebird\
|
||||
port pmc1-lyrebird\
|
||||
host mc1-taipan\
|
||||
port pmc1-taipan\
|
||||
axis E\
|
||||
units mm\
|
||||
hardlowerlim 0\
|
||||
@@ -292,8 +292,8 @@ samz home 0
|
||||
# Sample rotation (theta) [0,180] degrees
|
||||
Motor samthet $motor_driver_type [params \
|
||||
asyncqueue mc1\
|
||||
host mc1-lyrebird\
|
||||
port pmc1-lyrebird\
|
||||
host mc1-taipan\
|
||||
port pmc1-taipan\
|
||||
axis F\
|
||||
units degrees\
|
||||
hardlowerlim -30\
|
||||
@@ -324,8 +324,8 @@ set det_CntsPerX [expr 8192.0/377.0]
|
||||
# Detector translation along beam [0,20000] mm
|
||||
Motor det $motor_driver_type [params \
|
||||
asyncqueue mc1\
|
||||
host mc1-lyrebird\
|
||||
port pmc1-lyrebird\
|
||||
host mc1-taipan\
|
||||
port pmc1-taipan\
|
||||
action MC1\
|
||||
axis G\
|
||||
units mm\
|
||||
@@ -351,8 +351,8 @@ det Blockage_Fail 0
|
||||
# Looks like an non-metric screw pitch 0.2 inches / turn
|
||||
Motor detoff $motor_driver_type [params \
|
||||
asyncqueue mc1\
|
||||
host mc1-lyrebird\
|
||||
port pmc1-lyrebird\
|
||||
host mc1-taipan\
|
||||
port pmc1-taipan\
|
||||
axis H\
|
||||
units mm\
|
||||
hardlowerlim -9\
|
||||
@@ -381,8 +381,8 @@ detoff home 0
|
||||
# Collimation motor 1
|
||||
Motor pc1 $motor_driver_type [params \
|
||||
asyncqueue mc2\
|
||||
host mc2-lyrebird\
|
||||
port pmc2-lyrebird\
|
||||
host mc2-taipan\
|
||||
port pmc2-taipan\
|
||||
axis A\
|
||||
units mm\
|
||||
hardlowerlim -295\
|
||||
@@ -395,20 +395,20 @@ Motor pc1 $motor_driver_type [params \
|
||||
absEncHome $pc1_Home\
|
||||
cntsPerX $coll_CntsPerX\
|
||||
posit_count 3]
|
||||
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 295 -uprange 95
|
||||
pc1 speed 6
|
||||
pc1 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 295 -uprange 95
|
||||
#pc1 speed 6
|
||||
#pc1 creep_offset 1
|
||||
|
||||
# Collimation motor 2
|
||||
Motor pc2 $motor_driver_type [params \
|
||||
asyncqueue mc2\
|
||||
host mc2-lyrebird\
|
||||
port pmc2-lyrebird\
|
||||
host mc2-taipan\
|
||||
port pmc2-taipan\
|
||||
axis B\
|
||||
units mm\
|
||||
hardlowerlim -295\
|
||||
@@ -421,20 +421,20 @@ Motor pc2 $motor_driver_type [params \
|
||||
absEncHome $pc2_Home\
|
||||
cntsPerX $coll_CntsPerX\
|
||||
posit_count 3]
|
||||
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 295 -uprange 95
|
||||
pc2 speed 6
|
||||
pc2 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 295 -uprange 95
|
||||
#pc2 speed 6
|
||||
#pc2 creep_offset 1
|
||||
|
||||
# Collimation motor 3
|
||||
Motor pc3 $motor_driver_type [params \
|
||||
asyncqueue mc2\
|
||||
host mc2-lyrebird\
|
||||
port pmc2-lyrebird\
|
||||
host mc2-taipan\
|
||||
port pmc2-taipan\
|
||||
axis C\
|
||||
units mm\
|
||||
hardlowerlim -190\
|
||||
@@ -447,20 +447,20 @@ Motor pc3 $motor_driver_type [params \
|
||||
absEncHome $pc3_Home\
|
||||
cntsPerX $coll_CntsPerX\
|
||||
posit_count 3]
|
||||
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
|
||||
#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 pc4 $motor_driver_type [params \
|
||||
asyncqueue mc2\
|
||||
host mc2-lyrebird\
|
||||
port pmc2-lyrebird\
|
||||
host mc2-taipan\
|
||||
port pmc2-taipan\
|
||||
axis D\
|
||||
units mm\
|
||||
hardlowerlim -190\
|
||||
@@ -473,20 +473,20 @@ Motor pc4 $motor_driver_type [params \
|
||||
absEncHome $pc4_Home\
|
||||
cntsPerX $coll_CntsPerX\
|
||||
posit_count 3]
|
||||
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
|
||||
#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 pc5 $motor_driver_type [params \
|
||||
asyncqueue mc2\
|
||||
host mc2-lyrebird\
|
||||
port pmc2-lyrebird\
|
||||
host mc2-taipan\
|
||||
port pmc2-taipan\
|
||||
axis E\
|
||||
units mm\
|
||||
hardlowerlim -190\
|
||||
@@ -499,20 +499,20 @@ Motor pc5 $motor_driver_type [params \
|
||||
absEncHome $pc5_Home\
|
||||
cntsPerX $coll_CntsPerX\
|
||||
posit_count 3]
|
||||
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
|
||||
#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 pc6 $motor_driver_type [params \
|
||||
asyncqueue mc2\
|
||||
host mc2-lyrebird\
|
||||
port pmc2-lyrebird\
|
||||
host mc2-taipan\
|
||||
port pmc2-taipan\
|
||||
axis F\
|
||||
units mm\
|
||||
hardlowerlim -190\
|
||||
@@ -525,20 +525,20 @@ Motor pc6 $motor_driver_type [params \
|
||||
absEncHome $pc6_Home\
|
||||
cntsPerX $coll_CntsPerX\
|
||||
posit_count 3]
|
||||
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
|
||||
#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 pc7 $motor_driver_type [params \
|
||||
asyncqueue mc2\
|
||||
host mc2-lyrebird\
|
||||
port pmc2-lyrebird\
|
||||
host mc2-taipan\
|
||||
port pmc2-taipan\
|
||||
axis G\
|
||||
units mm\
|
||||
hardlowerlim -190\
|
||||
@@ -551,20 +551,20 @@ Motor pc7 $motor_driver_type [params \
|
||||
absEncHome $pc7_Home\
|
||||
cntsPerX $coll_CntsPerX\
|
||||
posit_count 3]
|
||||
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
|
||||
#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 pc8 $motor_driver_type [params \
|
||||
asyncqueue mc2\
|
||||
host mc2-lyrebird\
|
||||
port pmc2-lyrebird\
|
||||
host mc2-taipan\
|
||||
port pmc2-taipan\
|
||||
axis H\
|
||||
units mm\
|
||||
hardlowerlim -190\
|
||||
@@ -577,14 +577,14 @@ Motor pc8 $motor_driver_type [params \
|
||||
absEncHome $pc8_Home\
|
||||
cntsPerX $coll_CntsPerX\
|
||||
posit_count 3]
|
||||
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
|
||||
#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
|
||||
@@ -596,8 +596,8 @@ pc8 creep_offset 1
|
||||
# Collimation motor 9
|
||||
Motor pc9 $motor_driver_type [params \
|
||||
asyncqueue mc3\
|
||||
host mc3-lyrebird\
|
||||
port pmc3-lyrebird\
|
||||
host mc3-taipan\
|
||||
port pmc3-taipan\
|
||||
axis A\
|
||||
units mm\
|
||||
hardlowerlim -190\
|
||||
@@ -610,20 +610,20 @@ Motor pc9 $motor_driver_type [params \
|
||||
absEncHome $pc9_Home\
|
||||
cntsPerX $coll_CntsPerX\
|
||||
posit_count 3]
|
||||
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
|
||||
#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 pc10 $motor_driver_type [params \
|
||||
asyncqueue mc3\
|
||||
host mc3-lyrebird\
|
||||
port pmc3-lyrebird\
|
||||
host mc3-taipan\
|
||||
port pmc3-taipan\
|
||||
axis B\
|
||||
units mm\
|
||||
hardlowerlim -190\
|
||||
@@ -636,22 +636,22 @@ Motor pc10 $motor_driver_type [params \
|
||||
absEncHome $pc10_Home\
|
||||
cntsPerX $coll_CntsPerX\
|
||||
posit_count 5]
|
||||
pc10 posit_1 [expr $pc10_Lens]
|
||||
pc10 posit_2 [expr $pc10_Empty]
|
||||
pc10 posit_3 [expr $pc10_Guide]
|
||||
pc10 posit_4 [expr $pc10_Aperture]
|
||||
pc10 posit_5 [expr $pc10_LensandPrism]
|
||||
pc10 part collimator
|
||||
pc10 long_name pc10
|
||||
setHomeandRange -motor pc10 -home 0 -lowrange 190 -uprange 190
|
||||
pc10 speed 6
|
||||
pc10 creep_offset 1
|
||||
#pc10 posit_1 [expr $pc10_Lens]
|
||||
#pc10 posit_2 [expr $pc10_Empty]
|
||||
#pc10 posit_3 [expr $pc10_Guide]
|
||||
#pc10 posit_4 [expr $pc10_Aperture]
|
||||
#pc10 posit_5 [expr $pc10_LensandPrism]
|
||||
#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 \
|
||||
asyncqueue mc3\
|
||||
host mc3-lyrebird\
|
||||
port pmc3-lyrebird\
|
||||
host mc3-taipan\
|
||||
port pmc3-taipan\
|
||||
axis C\
|
||||
units mm\
|
||||
hardlowerlim -30\
|
||||
@@ -663,16 +663,16 @@ Motor pent $motor_driver_type [params \
|
||||
absEnc 1\
|
||||
absEncHome $pent_Home\
|
||||
cntsPerX [expr -8192.0/3.0]]
|
||||
pent part collimator
|
||||
pent long_name pent
|
||||
setHomeandRange -motor pent -home 0 -lowrange 30 -uprange 300
|
||||
pent speed 1
|
||||
#pent part collimator
|
||||
#pent long_name pent
|
||||
#setHomeandRange -motor pent -home 0 -lowrange 30 -uprange 300
|
||||
#pent speed 1
|
||||
|
||||
# Rotary source aperture
|
||||
Motor srce $motor_driver_type [params \
|
||||
asyncqueue mc3\
|
||||
host mc3-lyrebird\
|
||||
port pmc3-lyrebird\
|
||||
host mc3-taipan\
|
||||
port pmc3-taipan\
|
||||
axis D\
|
||||
units degrees\
|
||||
hardlowerlim -10\
|
||||
@@ -685,30 +685,30 @@ Motor srce $motor_driver_type [params \
|
||||
absEncHome $srce_Home\
|
||||
cntsPerX [expr -8192.0/6.0]\
|
||||
posit_count 12]
|
||||
srce part collimator
|
||||
srce long_name srce
|
||||
srce home 180
|
||||
srce softlowerlim -10
|
||||
srce softupperlim 340
|
||||
srce speed 1
|
||||
srce posit_1 $srce_Home
|
||||
srce posit_2 [expr $srce_Home - (1 * 5 * 8192)]
|
||||
srce posit_3 [expr $srce_Home - (2 * 5 * 8192)]
|
||||
srce posit_4 [expr $srce_Home - (3 * 5 * 8192)]
|
||||
srce posit_5 [expr $srce_Home - (4 * 5 * 8192)]
|
||||
srce posit_6 [expr $srce_Home - (5 * 5 * 8192)]
|
||||
srce posit_7 [expr $srce_Home - (6 * 5 * 8192)]
|
||||
srce posit_8 [expr $srce_Home - (7 * 5 * 8192)]
|
||||
srce posit_9 [expr $srce_Home - (8 * 5 * 8192)]
|
||||
srce posit_10 [expr $srce_Home - (9 * 5 * 8192)]
|
||||
srce posit_11 [expr $srce_Home - (10 * 5 * 8192)]
|
||||
srce posit_12 [expr $srce_Home - (11 * 5 * 8192)]
|
||||
#srce part collimator
|
||||
#srce long_name srce
|
||||
#srce home 180
|
||||
#srce softlowerlim -10
|
||||
#srce softupperlim 340
|
||||
#srce speed 1
|
||||
#srce posit_1 $srce_Home
|
||||
#srce posit_2 [expr $srce_Home - (1 * 5 * 8192)]
|
||||
#srce posit_3 [expr $srce_Home - (2 * 5 * 8192)]
|
||||
#srce posit_4 [expr $srce_Home - (3 * 5 * 8192)]
|
||||
#srce posit_5 [expr $srce_Home - (4 * 5 * 8192)]
|
||||
#srce posit_6 [expr $srce_Home - (5 * 5 * 8192)]
|
||||
#srce posit_7 [expr $srce_Home - (6 * 5 * 8192)]
|
||||
#srce posit_8 [expr $srce_Home - (7 * 5 * 8192)]
|
||||
#srce posit_9 [expr $srce_Home - (8 * 5 * 8192)]
|
||||
#srce posit_10 [expr $srce_Home - (9 * 5 * 8192)]
|
||||
#srce posit_11 [expr $srce_Home - (10 * 5 * 8192)]
|
||||
#srce posit_12 [expr $srce_Home - (11 * 5 * 8192)]
|
||||
|
||||
# Sample aperture x
|
||||
Motor apx $motor_driver_type [params \
|
||||
asyncqueue mc3\
|
||||
host mc3-lyrebird\
|
||||
port pmc3-lyrebird\
|
||||
host mc3-taipan\
|
||||
port pmc3-taipan\
|
||||
axis E\
|
||||
units mm\
|
||||
hardlowerlim -260\
|
||||
@@ -720,18 +720,18 @@ Motor apx $motor_driver_type [params \
|
||||
absEnc 1\
|
||||
absEncHome $apx_Home\
|
||||
cntsPerX -819.2]
|
||||
apx part collimator
|
||||
apx long_name apx
|
||||
apx home 0
|
||||
apx softlowerlim -255
|
||||
apx softupperlim 5
|
||||
apx speed 5
|
||||
#apx part collimator
|
||||
#apx long_name apx
|
||||
#apx home 0
|
||||
#apx softlowerlim -255
|
||||
#apx softupperlim 5
|
||||
#apx speed 5
|
||||
|
||||
# Sample aperture y
|
||||
#Motor apz $motor_driver_type [params \
|
||||
# asyncqueue mc3\
|
||||
# host mc3-lyrebird\
|
||||
# port pmc3-lyrebird\
|
||||
# host mc3-taipan\
|
||||
# port pmc3-taipan\
|
||||
# axis F\
|
||||
# units mm\
|
||||
# hardlowerlim -10\
|
||||
@@ -752,8 +752,8 @@ apx speed 5
|
||||
set att_factor [expr ((1.0 - (1.0)/360.0)*(3000.0/61.0))/360.0]
|
||||
Motor att $motor_driver_type [params \
|
||||
asyncqueue mc3\
|
||||
host mc3-lyrebird\
|
||||
port pmc3-lyrebird\
|
||||
host mc3-taipan\
|
||||
port pmc3-taipan\
|
||||
axis G\
|
||||
units degrees\
|
||||
hardlowerlim -30\
|
||||
@@ -765,12 +765,12 @@ Motor att $motor_driver_type [params \
|
||||
absEnc 1\
|
||||
absEncHome $att_Home\
|
||||
cntsPerX [expr -($att_factor*8192.0)]]
|
||||
att part collimator
|
||||
att long_name att
|
||||
setHomeandRange -motor att -home 0 -lowrange 0 -uprange 7230
|
||||
att speed 5
|
||||
#att part collimator
|
||||
#att long_name att
|
||||
#setHomeandRange -motor att -home 0 -lowrange 0 -uprange 7230
|
||||
#att speed 5
|
||||
# 2009-12-15 Attenuator wheel was re-installed 120 degrees out of whack!!!!!!
|
||||
att home -120
|
||||
#att home -120
|
||||
|
||||
############################
|
||||
# Motor Controller 4
|
||||
@@ -782,8 +782,8 @@ att home -120
|
||||
# beam stop horizontal [-100,300] mm
|
||||
Motor bsx $motor_driver_type [params \
|
||||
asyncqueue mc4\
|
||||
host mc4-lyrebird\
|
||||
port pmc4-lyrebird\
|
||||
host mc4-taipan\
|
||||
port pmc4-taipan\
|
||||
axis A\
|
||||
units mm\
|
||||
hardlowerlim 0\
|
||||
@@ -795,18 +795,18 @@ Motor bsx $motor_driver_type [params \
|
||||
absEnc 1\
|
||||
absEncHome $bsx_Home\
|
||||
cntsPerX [expr 8192.0/5.0/1.02]]
|
||||
bsx part detector
|
||||
bsx long_name bsx
|
||||
bsx softlowerlim 0
|
||||
bsx softupperlim 310
|
||||
bsx speed 5
|
||||
bsx home 0
|
||||
#bsx part detector
|
||||
#bsx long_name bsx
|
||||
#bsx softlowerlim 0
|
||||
#bsx softupperlim 310
|
||||
#bsx speed 5
|
||||
#bsx home 0
|
||||
|
||||
# beam stop vertical [-240,100] mm
|
||||
Motor bsz $motor_driver_type [params \
|
||||
asyncqueue mc4\
|
||||
host mc4-lyrebird\
|
||||
port pmc4-lyrebird\
|
||||
host mc4-taipan\
|
||||
port pmc4-taipan\
|
||||
axis B\
|
||||
units mm\
|
||||
hardlowerlim 0\
|
||||
@@ -818,11 +818,11 @@ Motor bsz $motor_driver_type [params \
|
||||
absEnc 1\
|
||||
absEncHome $bsz_Home\
|
||||
cntsPerX [expr (8192.0*7.0)/5.0/1.02]]
|
||||
bsz part detector
|
||||
bsz long_name bsz
|
||||
bsz softlowerlim 0
|
||||
bsz softupperlim 275
|
||||
bsz home 0
|
||||
#bsz part detector
|
||||
#bsz long_name bsz
|
||||
#bsz softlowerlim 0
|
||||
#bsz softupperlim 275
|
||||
#bsz home 0
|
||||
|
||||
# Largest beamstop
|
||||
Motor bs1 $motor_driver_type [params \
|
||||
@@ -838,12 +838,12 @@ Motor bs1 $motor_driver_type [params \
|
||||
absEnc 1\
|
||||
absEncHome $bs1_Home\
|
||||
cntsPerX $bs_cntsPerX]
|
||||
bs1 part detector
|
||||
bs1 long_name bs1
|
||||
bs1 softlowerlim 11
|
||||
bs1 softupperlim 95
|
||||
bs1 home 90
|
||||
bs1 precision 0.05
|
||||
#bs1 part detector
|
||||
#bs1 long_name bs1
|
||||
#bs1 softlowerlim 11
|
||||
#bs1 softupperlim 95
|
||||
#bs1 home 90
|
||||
#bs1 precision 0.05
|
||||
|
||||
Motor bs2 $motor_driver_type [params \
|
||||
asyncqueue mc4\
|
||||
@@ -858,12 +858,12 @@ Motor bs2 $motor_driver_type [params \
|
||||
absEnc 1\
|
||||
absEncHome $bs2_Home\
|
||||
cntsPerX $bs_cntsPerX]
|
||||
bs2 part detector
|
||||
bs2 long_name bs2
|
||||
bs2 softlowerlim 7
|
||||
bs2 softupperlim 95
|
||||
bs2 home 90
|
||||
bs2 precision 0.05
|
||||
#bs2 part detector
|
||||
#bs2 long_name bs2
|
||||
#bs2 softlowerlim 7
|
||||
#bs2 softupperlim 95
|
||||
#bs2 home 90
|
||||
#bs2 precision 0.05
|
||||
|
||||
Motor bs3 $motor_driver_type [params \
|
||||
asyncqueue mc4\
|
||||
@@ -878,12 +878,12 @@ Motor bs3 $motor_driver_type [params \
|
||||
absEnc 1\
|
||||
absEncHome $bs3_Home\
|
||||
cntsPerX $bs_cntsPerX]
|
||||
bs3 part detector
|
||||
bs3 long_name bs3
|
||||
bs3 softlowerlim 11
|
||||
bs3 softupperlim 95
|
||||
bs3 home 90
|
||||
bs3 precision 0.05
|
||||
#bs3 part detector
|
||||
#bs3 long_name bs3
|
||||
#bs3 softlowerlim 11
|
||||
#bs3 softupperlim 95
|
||||
#bs3 home 90
|
||||
#bs3 precision 0.05
|
||||
|
||||
Motor bs4 $motor_driver_type [params \
|
||||
asyncqueue mc4\
|
||||
@@ -898,12 +898,12 @@ Motor bs4 $motor_driver_type [params \
|
||||
absEnc 1\
|
||||
absEncHome $bs4_Home\
|
||||
cntsPerX $bs_cntsPerX]
|
||||
bs4 part detector
|
||||
bs4 long_name bs4
|
||||
bs4 softlowerlim 7
|
||||
bs4 softupperlim 95
|
||||
bs4 home 90
|
||||
bs4 precision 0.05
|
||||
#bs4 part detector
|
||||
#bs4 long_name bs4
|
||||
#bs4 softlowerlim 7
|
||||
#bs4 softupperlim 95
|
||||
#bs4 home 90
|
||||
#bs4 precision 0.05
|
||||
|
||||
Motor bs5 $motor_driver_type [params \
|
||||
asyncqueue mc4\
|
||||
@@ -918,12 +918,12 @@ Motor bs5 $motor_driver_type [params \
|
||||
absEnc 1\
|
||||
absEncHome $bs5_Home\
|
||||
cntsPerX $bs_cntsPerX]
|
||||
bs5 part detector
|
||||
bs5 long_name bs5
|
||||
bs5 softlowerlim 11
|
||||
bs5 softupperlim 95
|
||||
bs5 home 90
|
||||
bs5 precision 0.05
|
||||
#bs5 part detector
|
||||
#bs5 long_name bs5
|
||||
#bs5 softlowerlim 11
|
||||
#bs5 softupperlim 95
|
||||
#bs5 home 90
|
||||
#bs5 precision 0.05
|
||||
|
||||
Motor bs6 $motor_driver_type [params \
|
||||
asyncqueue mc4\
|
||||
@@ -938,18 +938,18 @@ Motor bs6 $motor_driver_type [params \
|
||||
absEnc 1\
|
||||
absEncHome $bs6_Home\
|
||||
cntsPerX $bs_cntsPerX]
|
||||
bs6 part detector
|
||||
bs6 long_name bs6
|
||||
bs6 softlowerlim 7
|
||||
bs6 softupperlim 95
|
||||
bs6 home 90
|
||||
bs6 precision 0.05
|
||||
#bs6 part detector
|
||||
#bs6 long_name bs6
|
||||
#bs6 softlowerlim 7
|
||||
#bs6 softupperlim 95
|
||||
#bs6 home 90
|
||||
#bs6 precision 0.05
|
||||
|
||||
# Polarizer Rotation
|
||||
#Motor pol $motor_driver_type [params \
|
||||
# asyncqueue mc4\
|
||||
# host mc4-lyrebird\
|
||||
# port pmc4-lyrebird\
|
||||
# host mc4-taipan\
|
||||
# port pmc4-taipan\
|
||||
# axis H\
|
||||
# units degrees\
|
||||
# hardlowerlim 0\
|
||||
@@ -975,14 +975,14 @@ proc motor_set_sobj_attributes {} {
|
||||
# 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 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
|
||||
#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
|
||||
|
||||
|
||||
@@ -152,5 +152,6 @@ proc check {args} {
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
publish check user
|
||||
|
||||
|
||||
@@ -49,4 +49,4 @@ namespace eval ::scobj::velocity_selector {
|
||||
}
|
||||
}
|
||||
|
||||
source $cfPath(velsel)/sct_velsel.tcl
|
||||
#source $cfPath(velsel)/sct_velsel.tcl
|
||||
|
||||
@@ -6,7 +6,7 @@ Instrument lyrebird
|
||||
Instrument lock
|
||||
|
||||
#START SERVER CONFIGURATION SECTION
|
||||
source util/dmc2280/dmc2280_util.tcl
|
||||
#source util/dmc2280/dmc2280_util.tcl
|
||||
source sics_ports.tcl
|
||||
source server_config.tcl
|
||||
#END SERVER CONFIGURATION SECTION
|
||||
@@ -20,10 +20,10 @@ fileeval $cfPath(motors)/motor_configuration.tcl
|
||||
fileeval $cfPath(source)/source.tcl
|
||||
source $cfPath(hipadaba)/hipadaba_configuration.tcl
|
||||
fileeval $cfPath(motors)/positmotor_configuration.tcl
|
||||
fileeval $cfPath(velsel)/velsel.tcl
|
||||
fileeval $cfPath(parameters)/parameters.tcl
|
||||
#fileeval $cfPath(velsel)/velsel.tcl
|
||||
#fileeval $cfPath(parameters)/parameters.tcl
|
||||
fileeval $cfPath(plc)/plc.tcl
|
||||
fileeval $cfPath(optics)/optics.tcl
|
||||
#fileeval $cfPath(optics)/optics.tcl
|
||||
fileeval $cfPath(counter)/counter.tcl
|
||||
#fileeval $cfPath(environment)/temperature/sct_lakeshore_340.tcl
|
||||
#fileeval $cfPath(environment)/temperature/sct_lakeshore_336.tcl
|
||||
@@ -39,7 +39,7 @@ fileeval $cfPath(anticollider)/anticollider.tcl
|
||||
#fileeval $cfPath(environment)/environment.tcl
|
||||
#fileeval $cfPath(environment)/sct_mcr500_rheometer.tcl
|
||||
#fileeval $cfPath(environment)/sct_protek_common.tcl
|
||||
fileeval $cfPath(beamline)/spin_flipper.tcl
|
||||
#fileeval $cfPath(beamline)/spin_flipper.tcl
|
||||
source gumxml.tcl
|
||||
|
||||
::utility::mkVar ::anticollider::protect_detector text manager protect_detector false detector true false
|
||||
|
||||
Reference in New Issue
Block a user