35 lines
607 B
Tcl
35 lines
607 B
Tcl
proc loadeuro {name value args} {
|
|
clientput "nv makepar $name w $args"
|
|
eval nv makepar $name w $args
|
|
nv $name $value
|
|
}
|
|
|
|
proc ceuro {} {
|
|
nv makepar imode w int 199
|
|
nv imode 2
|
|
}
|
|
|
|
proc oeuro {} {
|
|
nv imode 0
|
|
}
|
|
|
|
proc leuro {} {
|
|
loadeuro decp 1 int 525
|
|
loadeuro inpL -2.47 12307
|
|
loadeuro inpH 79.68 12306
|
|
loadeuro VALL -78.0 12303
|
|
loadeuro VALH 437.5 12302
|
|
loadeuro rngL -78.0 11
|
|
loadeuro rngH 437.5 12
|
|
# loadeuro adj 1 int 566
|
|
}
|
|
|
|
publishLazy ceuro
|
|
publishLazy leuro
|
|
publishLazy oeuro
|
|
|
|
clientput "ceuro (go to config mode)"
|
|
clientput "leuro (load)"
|
|
clientput "oeuro (go to oper mode)"
|
|
|