fftf (amoroven) with pwm/low poeer switch

tcl/drivers/amoroven.tcl

@@ -8,6 +8,12 @@ proc stdConfig::amoroven {} {
   prop read amoroven::read_press
 
   kids "pressure, pump and gas" {
+    node highpower wr -int
+    prop enum 1
+    default 1
+    prop write amoroven::write_mode
+    prop read amoroven::read_mode
+
     node vacuumpump wr -int
     prop enum 1
     prop read amoroven::read_pump
@@ -93,3 +99,33 @@ proc amoroven::read_valve {cmd getcmd} {
   }
   return idle
 }
+
+proc amoroven::write_mode {} {
+  if {[sct target]} {
+    tt set/maxheater 0.05A
+    tt set/linearpower 75
+    tt set/manualpower 11.3
+    tt set/resist 100
+    tt set/maxpower 75
+    hsetprop /tt @manual_out 15
+    sct update 1
+  } else {
+    tt set/maxheater 2A
+    tt set/linearpower 0
+    tt set/manualpower 0
+    tt set/resist 10
+    tt set/maxpower 40
+    hsetprop /tt @manual_out 0
+    sct update 0
+  }
+  return idle
+}
+
+proc amoroven::read_mode {} {
+  if {"[hval /tt/set/maxheater]" eq "0.05A"} {
+    sct update 1
+  } else {
+    sct update 0
+  }
+  return idle
+}

tcl/fftf.config

@@ -5,8 +5,7 @@ defineTemperature tt
 makenv tt -driver [lsdriver]  {
   lsc_sensor ts A -sensor pt100e -sensorname sample -alarm 700
   lsc_sensor tm B -sensor pt1000e -sensorname body -alarm 320
-#  lsc_loop set -loop 1 -channel A -maxheater 0.05A -resist 100Ohm -linearpower 75 -mout 15
+  lsc_loop set -loop 1 -channel A -maxheater 0.05A -resist 100Ohm -linearpower 75 -mout 15
-  lsc_loop set -loop 1 -channel A -maxheater 2A -resist 10Ohm
 }
 
 GraphAdd tt.set.reg K T_reg auto
@@ -28,12 +27,13 @@ GraphAdd p.vacuumpump S pump auto
 GraphAdd p.gasflow S valve auto
 
 # for PWM setting
-#makenv table -driver table /tt/set {
-#  "tt set/prop" "400:0.5 550:2"
-#  "tt set/integ" "400:10 550:20"
-#}
-
 makenv table -driver table /tt/set {
-  "tt set/prop" "400:5 550:5"
+  "tt set/prop" "400:0.5 550:2"
-  "tt set/integ" "400:20 550:20"
+  "tt set/integ" "400:10 550:20"
 }
+
+# for low power mode
+#makenv table -driver table /tt/set {
+#  "tt set/prop" "400:5 550:5"
+#  "tt set/integ" "400:20 550:20"
+#}