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

The aperture arm must be up to allow driving the guide.

Browse Source 
Low encoder values = aperture arm up.
This commit is contained in:
Ferdi Franceschini
2014-01-31 14:00:23 +11:00
parent 8f2a1adec4
commit 04906c8ca5
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
site_ansto/instrument/bilby/config/anticollider/anticollider.tcl
View File

@@ -5,18 +5,18 @@ source $cfPath(anticollider)/anticollider_common.tcl
namespace eval ::anticollider { namespace eval ::anticollider {
set guide_posit 1 set guide_posit 1
set aperture_posit 2 set aperture_posit 2
set ap100X100_posit 1 set apD10_posit 5
set coltol 0.1 set coltol 0.5
set aptol 0.1 set aptol 0.1
for {set n 1} {$n < 8} {incr n} { for {set n 1} {$n < 8} {incr n} {
foreach {col ap} "col$n ap$n ap$n col$n" { foreach {col ap} "col$n ap$n" {
set col_limit [expr [SplitReply [$col posit2unit $aperture_posit]] - $coltol] set col_limit [expr [SplitReply [$col posit2unit $aperture_posit]] - $coltol]
set ap_limit [expr [SplitReply [$ap posit2unit $ap100X100_posit]] - $aptol] set ap_limit [expr [SplitReply [$ap posit2unit $apD10_posit]] + $aptol]
set acrule [subst {forbid {-inf inf} for $ap when $col in {-inf $col_limit} }] set acrule [subst {forbid {-inf inf} for $ap when $col in {-inf $col_limit} }]
lappend ::anticollider::prog $acrule lappend ::anticollider::prog $acrule
clientput $acrule clientput $acrule
set acrule [subst {forbid {-inf inf} for $col when $ap in {-inf $ap_limit} }] set acrule [subst {forbid {-inf inf} for $col when $ap in {$ap_limit inf} }]
lappend ::anticollider::prog $acrule lappend ::anticollider::prog $acrule
clientput $acrule clientput $acrule
} }