21 lines
372 B
Tcl
21 lines
372 B
Tcl
# Detector voltage controller
|
|
|
|
set sim_mode [SplitReply [detector_simulation]]
|
|
|
|
if {$::sim_mode == "true"} {
|
|
EvFactory new dhv1 sim
|
|
} else {
|
|
makeasyncqueue acq ORHVPS ca1-quokka 4001
|
|
evfactory new dhv1 orhvps acq
|
|
dhv1 lowerlimit 0
|
|
dhv1 upperlimit 2400
|
|
dhv1 tolerance 19
|
|
dhv1 max 2600
|
|
dhv1 rate 10
|
|
dhv1 debug 1
|
|
dhv1 unlock
|
|
dhv1 debug 0
|
|
# dhv1 lock
|
|
}
|
|
|