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

add motors

Browse Source 
r3055 | jgn | 2011-02-15 11:49:27 +1100 (Tue, 15 Feb 2011) | 2 lines
This commit is contained in:
Jing Chen
2011-02-15 11:49:27 +11:00
committed by Douglas Clowes
parent d894dfca56
commit fb86744209
5 changed files with 627 additions and 742 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -94,7 +94,8 @@ proc selbs {bs {bx "UNDEF"} {bz "UNDEF"}} {
}
}
set detoff_val [SplitReply [detoff]]
# comment out -- Jing
#set detoff_val [SplitReply [detoff]]
if {$bx == "UNDEF" || $bz == "UNDEF"} {
statemon start selbs
@@ -115,7 +116,8 @@ proc selbs {bs {bx "UNDEF"} {bz "UNDEF"}} {
error "beam coordinates must be floats"
}
}
set bsx_target [expr {$bx-$Xbsf+$detoff_val}]
# comment out -- Jing
#set bsx_target [expr {$bx-$Xbsf+$detoff_val}]
set bsz_target [expr {$bz-$Zbsf}]
statemon start selbs