26 lines
419 B
Tcl
26 lines
419 B
Tcl
# itc503 simple nv control
|
|
namespace eval itc503p {} {
|
|
}
|
|
|
|
proc stdConfig::itc503p {} {
|
|
controller std "\r" 5
|
|
prop startcmd "V"
|
|
|
|
obj nv rd
|
|
prop readcmd "R7"
|
|
prop readfmt "R%g"
|
|
kids nvoi {
|
|
node set wr
|
|
prop read stdSct::read
|
|
prop readcmd "R7"
|
|
prop readfmt "R%g"
|
|
prop write itc503p::write
|
|
}
|
|
}
|
|
|
|
proc itc503p::write {} {
|
|
sct send [format G%3.0f [sct target]]
|
|
return read
|
|
}
|
|
|