67 lines
2.4 KiB
Tcl
67 lines
2.4 KiB
Tcl
##
|
|
# @file
|
|
# A guide configuration table where each line describes the setup
|
|
# for a mode of operation.
|
|
# The table will have a corresponding interpretation list which provides
|
|
# commands to setup the instrument.
|
|
|
|
namespace eval optics {
|
|
##
|
|
# @brief These arrays map the component identifiers (G, MT, etc) to the
|
|
# position index for each guide motor (c1, c2 ... c9)
|
|
array set c1_map {G 1 MT 2 P 3}
|
|
array set c2_map {MT 1 G 2 A 3}
|
|
array set c3_map {MT 1 G 2 A 3}
|
|
array set c4_map {MT 1 G 2 A 3}
|
|
array set c5_map {MT 1 G 2 A 3}
|
|
array set c6_map {MT 1 G 2 A 3}
|
|
array set c7_map {MT 1 G 2 A 3}
|
|
array set c8_map {MT 1 G 2 A 3}
|
|
array set c9_map {L 1 MT 2 G 3 A 4 LP 5}
|
|
|
|
# The guide configuration table is indexed by a configuration
|
|
# identifier (ga, mt, lp, etc). Each row has two elements,
|
|
# 1. A list of components selected for each guide (MT A ... etc)
|
|
# 2. The entrance aperature position in mm
|
|
# Eg $guide_configuration(p2) returns the following list
|
|
# {{P G A A A A A A A } 6934}
|
|
array set guide_configuration {
|
|
ga {{MT A A A A A A A A } 675}
|
|
mt {{MT MT MT MT MT MT MT MT MT} 675}
|
|
lp {{MT MT MT MT MT MT MT MT LP} 675}
|
|
lens {{MT A A A A A A A L } 675}
|
|
p1 {{P A MT MT MT MT MT MT MT} 4621}
|
|
p1lp {{P A MT MT MT MT MT MT LP} 4621}
|
|
p1lens {{P A MT MT MT MT MT MT L } 4621}
|
|
g1 {{G A A A A A A A A } 4929}
|
|
p2 {{P G A A A A A A A } 6934}
|
|
g2 {{G G A A A A A A A } 6934}
|
|
p3 {{P G G A A A A A A } 8949}
|
|
g3 {{G G G A A A A A A } 8949}
|
|
p4 {{P G G G A A A A A } 10955}
|
|
g4 {{G G G G A A A A A } 10955}
|
|
p5 {{P G G G G A A A A } 12943}
|
|
g5 {{G G G G G A A A A } 12943}
|
|
p6 {{P G G G G G A A A } 14970}
|
|
g6 {{G G G G G G A A A } 14970}
|
|
p7 {{P G G G G G G A A } 16971}
|
|
g7 {{G G G G G G G A A } 16971}
|
|
p8 {{P G G G G G G G A } 18937}
|
|
g8 {{G G G G G G G G A } 18937}
|
|
p9 {{P G G G G G G G G } 19925}
|
|
g9 {{G G G G G G G G G } 19925}
|
|
}
|
|
|
|
# This list maps the motor names to columns of the
|
|
# guide_configuration table.
|
|
set guide_configuration_columns {
|
|
c1 c2 c3 c4 c5 c6 c7 c8 c9
|
|
}
|
|
|
|
}
|
|
|
|
namespace eval optics {
|
|
variable guide_configuration
|
|
variable guide_configuration_columns
|
|
}
|