10 lines
210 B
Tcl
10 lines
210 B
Tcl
#----- room temperature reading -----
|
|
|
|
proc makeTroom {troom} {
|
|
makenv $troom euro2k
|
|
$troom rdonly 1
|
|
obj_list $troom room temperature reading
|
|
catch {$troom upperlimit 99.9}
|
|
defineTemperature $troom
|
|
}
|