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

re-produce package for Dingo

Browse Source 
r3596 | jgn | 2012-06-06 12:01:42 +1000 (Wed, 06 Jun 2012) | 1 line
This commit is contained in:
Jing Chen
2012-06-06 12:01:42 +10:00
committed by Douglas Clowes
parent 06ab0664eb
commit f6cb6602b1
24 changed files with 1233 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
site_ansto/instrument/dingo/config/anticollider/acscript.txt Normal file
View File

@@ -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}

14
site_ansto/instrument/dingo/config/anticollider/anticollider.tcl Normal file
View File

@@ -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