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

faster pump out (do wait for V6 only be 50 % for next step)

Browse Source
This commit is contained in:
zolliker
2023-05-23 18:01:32 +02:00
parent 9cc6695000
commit 75cf11a175
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
tcl/drivers/dil12.tcl
View File

@ -798,13 +798,13 @@ proc dil12::autostep {phase init} {
} }
dil12::check_cool_button dil12::check_cool_button
if {[result dil p1] < [hvali [sct]/p1low] && [result dil g1] < 5 && if {[result dil p1] < [hvali [sct]/p1low] && [result dil g1] < 5 &&
[result dil p2] < [hvali [sct]/p2low] && [result dil v6pos] > 99} { [result dil p2] < [hvali [sct]/p2low] && [result dil v6pos] > 50} {
if {[sct pumptime] == 0} { if {[sct pumptime] == 0} {
dil12::openvalves v5a v2a v7 v2 v1 v6 v5 v3 vb_open dil12::openvalves v5a v2a v7 v2 v1 v6 v5 v3 vb_open
dil v4a 1 dil v4a 1
sct pumptime [expr [DoubleTime] + 105] sct pumptime [expr [DoubleTime] + 105]
dil12::msg "pump for 2 more minutes" dil12::msg "pump for 2 more minutes"
} elseif {[DoubleTime] > [sct pumptime]} { } elseif {[DoubleTime] > [sct pumptime] && [result dil v6pos] > 99} {
# do not check for vb/vm here, as the user already might manipulate the valves # do not check for vb/vm here, as the user already might manipulate the valves
dil12::openvalves v1 v6 v3 v5 dil12::openvalves v1 v6 v3 v5
dil v4a 0 dil v4a 0