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

Merge branch 'master' of gitlab.psi.ch-samenv:samenv/sea

Browse Source
This commit is contained in:
l_samenv
2025-01-09 18:08:36 +01:00
parent 5d90e74e00 510f6b563e
commit be52adfaef
3 changed files with 24 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
tcl/drivers/trun.tcl
View File

@ -447,7 +447,16 @@ proc trun::read_run {} {
}
if {$dblctrl} {
if {[hval [sct]/dblctrl/mode] == 0} { # inactive -> stable
hupdate [sct]/dblctrl/mode 1
set tol [hvali [sct]/tolerance]
set tg [silent $tsample sct target]
if {$tg > $tsample + $tol} {
set dmode 2 ;# up
} elseif {$tg < $tsample - $tol} {
set dmode 3 ;# down
} else {
set dmode 1 ;# stable
}
hupdate [sct]/dblctrl/mode $dmode
}
set value $tsample
} else {