add scripts for jtccr

2024-05-03 08:33:15 +02:00
parent c157df24ba
commit 78d6c07858
5 changed files with 114 additions and 0 deletions
--- a/tcl/fixheater.tcl
+++ b/tcl/fixheater.tcl
@ -0,0 +1,21 @@
+proc fixheater {} {
+  if {[catch {hval /tt/set/reg}]} {
+     set mout2 [silent 0 hgetpropval /tt/set/power last_htr]
+     hsetprop /tt/set @manual_out $mout2
+     set mout1 [silent 0 hgetpropval /tt/setvti/power last_htr]
+     hsetprop /tt/setvti @manual_out $mout1
+     tt set [silent 0 hgetpropval /tt/set last_target]
+     tt setvti [silent 0 hgetpropval /tt/setvti last_target]
+  } else {
+     set htr [silent 0 hgetpropval /tt/set/power htr]
+     if {$htr} {
+       hsetprop /tt/set/power last_htr $htr
+     }
+     set htr [silent 0 hgetpropval /tt/setvti/power htr]
+     if {$htr} {
+       hsetprop /tt/setvti/power last_htr $htr
+     }
+  }
+}
+
+publishLazy fixheater