introduce dilpars
allow to config flow parameters for dil at the cryostat/cyomagnet example ori7
This commit is contained in:
@ -261,6 +261,7 @@ proc stdConfig::dil12 args {
|
|||||||
}
|
}
|
||||||
hset $name/heatermode 0
|
hset $name/heatermode 0
|
||||||
dolater 0 hset $name/autoprop/integ 5
|
dolater 0 hset $name/autoprop/integ 5
|
||||||
|
dolater 0 apply_dilpars
|
||||||
}
|
}
|
||||||
|
|
||||||
proc dil12::check_set {} {
|
proc dil12::check_set {} {
|
||||||
|
18
tcl/drivers/dilpars.tcl
Normal file
18
tcl/drivers/dilpars.tcl
Normal file
@ -0,0 +1,18 @@
|
|||||||
|
# any parameter to be entered by hand
|
||||||
|
namespace eval dilpars {} {
|
||||||
|
}
|
||||||
|
|
||||||
|
proc stdConfig::dilpars {args} {
|
||||||
|
variable hostport none
|
||||||
|
variable name
|
||||||
|
controller syncedprot
|
||||||
|
|
||||||
|
scanargs $args var -circulateflow 4 -condenseflow 8
|
||||||
|
|
||||||
|
obj dummy -none
|
||||||
|
kids hidden {
|
||||||
|
node condenseflow par $condenseflow
|
||||||
|
node circulateflow par $circulateflow
|
||||||
|
}
|
||||||
|
dolater 0 apply_dilargs
|
||||||
|
}
|
@ -31,5 +31,6 @@ makenv table -driver table /tt/tm {
|
|||||||
|
|
||||||
table tbl_tt_dblctrl_prop_lo 20:0.1 50:0.4
|
table tbl_tt_dblctrl_prop_lo 20:0.1 50:0.4
|
||||||
|
|
||||||
|
makenv dilpars -driver dilpars -condenseflow 3 -circulateflow 1.6
|
||||||
#GraphAdd cc.mp sec pulse red
|
#GraphAdd cc.mp sec pulse red
|
||||||
#GraphAdd cc.msp sec speed green
|
#GraphAdd cc.msp sec speed green
|
||||||
|
Reference in New Issue
Block a user