updated Taipan

r3041 | jgn | 2010-12-14 10:23:49 +1100 (Tue, 14 Dec 2010) | 1 line

site_ansto/instrument/tas/config/anticollider/acscript.txt

@@ -0,0 +1,3 @@
+# Forbid detector motion when the detector voltage is on
+forbid {-inf inf} for det    when dhv1 in {800 inf}
+forbid {-inf inf} for detoff when dhv1 in {800 inf}

site_ansto/instrument/tas/config/anticollider/anticollider.tcl

@@ -0,0 +1,14 @@
+# Author: Ferdi Franceschini (ffr@ansto.gov.au)
+
+source $cfPath(anticollider)/anticollider_common.tcl 
+
+# NOTE: This is called with a list of motorname target pairs
+proc ::anticollider::enable {args} {
+  if {[SplitReply [::anticollider::protect_detector]] == "false"} {
+    return "false"
+  } else {
+    return "true"
+  }
+}
+
+::anticollider::loadscript acscript.txt