31 lines
443 B
Tcl
31 lines
443 B
Tcl
# this is not a functioning script, but just meta code
|
|
# needs to be checked and written
|
|
open V9
|
|
close V8
|
|
set preg auf 12
|
|
while {[result tt] > 9.0 } {
|
|
|
|
if {[result pbuffer] > 0.99} {
|
|
|
|
close V2
|
|
close V9
|
|
open v7
|
|
while {p4 > 1.8 & p3 > 6 } {
|
|
open v4
|
|
}
|
|
close v4
|
|
open v8
|
|
switch on compressor
|
|
while {p4 >1.8 & P3 > 5} {
|
|
open v4
|
|
}
|
|
close v4
|
|
} else {
|
|
close v4
|
|
close v7
|
|
close v8
|
|
open v9
|
|
open v2
|
|
}
|
|
}
|