improve coding for MA11 (codeb=0 Ohm)

+ was_uplugged should be cleared in proc samenv
2024-10-17 10:53:04 +02:00
parent 75ede2b0b3
commit bdd25b4ec7
6 changed files with 17 additions and 10 deletions
--- a/tcl/drivers/magfield.tcl
+++ b/tcl/drivers/magfield.tcl
@@ -230,8 +230,8 @@ proc magfield::run {} {

  set_time_if {$hs == 1} heater_on
  set_time_if {$hs == 0} heater_off
-  set_time_if {abs($ls - $pf) < $tol} leads_at_field
-  set_time_if {abs($ls - $tf) < $tol} leads_at_target
+  set_time_if {abs($ls - $pf) < $tol * 5} leads_at_field
+  set_time_if {abs($ls - $tf) < $tol * 5} leads_at_target
  if {$tf != [sct last_target]} {
    sct phase 1 ;# start a field change
    sct last_target $tf