add Pelican

r3108 | jgn | 2011-04-20 12:29:55 +1000 (Wed, 20 Apr 2011) | 1 line

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

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

site_ansto/instrument/pelican/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