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

fixes to amor oven supporting PWM/direct switch

Browse Source
This commit is contained in:
zolliker
2026-02-09 11:21:37 +01:00
parent a8036d6771
commit 09c017cd2d
2 changed files with 17 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
tcl/drivers/amoroven.tcl
View File

@@ -22,6 +22,9 @@ proc stdConfig::amoroven {} {
node tlimit par 700
node tlimit_without_vacuum par 320
node plimit par 75
node plimit_without_vacuum par 5
}
}
@@ -33,13 +36,16 @@ proc amoroven::read_press {} {
proc amoroven::update_limit {vacuumon} {
if {$vacuumon} {
set tlim [hval [sct parent]/tlimit]
set plim [hval [sct parent]/plimit]
set msg ""
} else {
set tlim [hval [sct parent]/tlimit_without_vacuum]
set plim [hval [sct parent]/plimit_without_vacuum]
set msg " vacuum pump off"
}
if {$tlim != [result tt set/limit] || [silent "" hgetpropval /tt/set tlimit_message] ne $msg} {
if {$tlim != [result tt set/limit] || $plim != [result tt set/maxpower] || [silent "" hgetpropval /tt/set tlimit_message] ne $msg} {
tt set/limit $tlim
tt set/maxpower $plim
hsetprop /tt/set tlimit_message $msg
}
}