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

r3097 | jgn | 2011-04-08 16:05:02 +1000 (Fri, 08 Apr 2011) | 1 line

Browse Source
This commit is contained in:
Jing Chen
2011-04-08 16:05:02 +10:00
committed by Douglas Clowes
parent bda5f46596
commit a9f7812e47
1 changed files with 58 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

78
site_ansto/instrument/tas/config/commands/commands.tcl
View File

@@ -11,29 +11,30 @@ namespace eval motor {
# } # }
#} #}
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 { #namespace eval beamstops {
VarMake ::optics::select::section text user # command selbsn {int=1,2,3,4,5,6 bs} {
VarMake ::optics::polarizer::in text user # selbs $bs "UNDEF" "UNDEF"
VarMake ::optics::lens::selection text user # }
# 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
command rotary_attenuator {int=0,15,45,90,180 angle} { # command rotary_attenuator {int=0,15,45,90,180 angle} {
drive att $angle # drive att $angle
} # }
command entrance_aperture { # command entrance_aperture {
int=0,45,90,135,180,270 angle # int=0,45,90,135,180,270 angle
} { # } {
drive srce $angle # drive srce $angle
} # }
# TODO Do we need this # TODO Do we need this
# command sample_aperture { # command sample_aperture {
@@ -45,6 +46,43 @@ namespace eval optics {
# SApShape $shape # SApShape $shape
# } # }
##############################
##
# @brief The "guide" command uses a lookup table to setup the collimation system
# @param row, selects a row from the guide configuration table
#
# 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
#}
proc ::commands::isc_initialize {} { proc ::commands::isc_initialize {} {
::commands::ic_initialize ::commands::ic_initialize