diff --git a/tcl/drivers/dil12.tcl b/tcl/drivers/dil12.tcl index 3199b58..d597878 100644 --- a/tcl/drivers/dil12.tcl +++ b/tcl/drivers/dil12.tcl @@ -261,6 +261,7 @@ proc stdConfig::dil12 args { } hset $name/heatermode 0 dolater 0 hset $name/autoprop/integ 5 + dolater 0 apply_dilpars } proc dil12::check_set {} { diff --git a/tcl/drivers/dilpars.tcl b/tcl/drivers/dilpars.tcl new file mode 100644 index 0000000..b804655 --- /dev/null +++ b/tcl/drivers/dilpars.tcl @@ -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 +} diff --git a/tcl/ori7.config b/tcl/ori7.config index c0cb78f..dea88db 100644 --- a/tcl/ori7.config +++ b/tcl/ori7.config @@ -31,5 +31,6 @@ makenv table -driver table /tt/tm { 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.msp sec speed green