27 lines
594 B
Tcl
27 lines
594 B
Tcl
namespace eval rsport {} {
|
|
}
|
|
|
|
proc stdConfig::rsport {} {
|
|
controller bin rsport-crc
|
|
|
|
prop startcmd "hex 96 02 1e ea / hex"
|
|
obj RSPort -none
|
|
kids "AG 1016 settings" {
|
|
|
|
node fwdpower rd
|
|
prop readcmd "hex 96 02 1e ea / skip3 int2 int2 skip2 int2"
|
|
prop update rsport::updmeas
|
|
|
|
node revpower upd
|
|
|
|
node temperature upd
|
|
}
|
|
}
|
|
|
|
proc rsport::updmeas {} {
|
|
sct update [expr [lindex [sct result] 0] * 0.1]
|
|
updateval [sct parent]/revpower [expr [lindex [sct result] 1] * 0.1]
|
|
updateval [sct parent]/temperature [expr [lindex [sct result] 2] / 26.4]
|
|
return idle
|
|
}
|