35 lines
1001 B
Tcl
35 lines
1001 B
Tcl
# Detector voltage Controller
|
|
|
|
set sim_mode [SplitReply [detector_simulation]]
|
|
|
|
if {$::sim_mode == "true"} {
|
|
EvFactory new dhv1 sim
|
|
EvFactory new dhv2 sim
|
|
} else {
|
|
# clientput "Detector Voltage control not yet available"
|
|
# MJL 6/13 Bilby detector initial (may replace with embedded box control in 2015).
|
|
# Bilby GE/RS detector two supplies ~+1510V (Curtain and Rear detector, 4 panels + 2 panels respectively).
|
|
# 'down' voltage for moves = 50V (as requested by GE/RS). May increase later
|
|
# 'max' voltage settable = 1800V (guesstimate, to avoid tube damage)
|
|
# Ramp rate set to 50V/us -> about 30 sec total
|
|
# TODO replace IP address with ca2-bilby (when configured in DNS)
|
|
makeasyncqueue acq NHQ200 137.157.203.41 4001
|
|
evfactory new dhv1 nhq200 acq 1
|
|
dhv1 tolerance 5
|
|
dhv1 rate 50
|
|
dhv1 lower 50
|
|
dhv1 upper 1510
|
|
dhv1 max 1800
|
|
dhv1 upperlimit 1800
|
|
#dhv1 lock
|
|
evfactory new dhv2 nhq200 acq 2
|
|
dhv2 tolerance 5
|
|
dhv2 rate 50
|
|
dhv2 lower 50
|
|
dhv2 upper 1510
|
|
dhv2 max 1800
|
|
dhv2 upperlimit 1800
|
|
#dhv2 lock
|
|
}
|
|
|