add neodry to hepump

2023-05-23 17:28:47 +02:00
parent 06c1db66af
commit 89054e53c3
2 changed files with 33 additions and 6 deletions
--- a/tcl/startup/hepump.tcl
+++ b/tcl/startup/hepump.tcl
@ -8,6 +8,8 @@ proc makeHePump {} {
      set type 1
    } elseif {$type eq "sv65"} {
      set type 2
+    } elseif {$type eq "neodry"} {
+      set type 8
    } else {
      error "unknown hepump type: $type"
    }
@ -37,8 +39,8 @@ proc pump_is_off {} {
      }
    }
    hupdate [sct]/status $pmsg
-    return 1   
-  }       
+    return 1
+  }
  if {[string match ${msghead}* [hvali [sct]/status]]} {
    hupdate [sct]/status ""
  }