Changeset 3923 for trunk/gui/scripts/cloud.tcl
- Timestamp:
- Sep 13, 2013, 2:51:22 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/cloud.tcl
r3922 r3923 20 20 private variable _xmlobj ""; # ref to XML obj with device data 21 21 private variable _cloud ""; # lib obj representing this cloud 22 private variable _units " m m m" ;# system of units for x, y, z22 private variable _units "" ; # system of units for x, y, z 23 23 private variable _axis2label; # 24 24 private variable _axis2units; # … … 116 116 set _units [$_cloud get units] 117 117 set first [lindex $_units 0] 118 set list {} 118 119 foreach u $_units axis { x y z } { 119 120 if { $u != "" } { … … 122 123 set _axis2units($axis) $first 123 124 } 124 } 125 lappend list $_axis2units($axis) 126 } 127 set _units $list 125 128 foreach label [$_cloud get labels] axis { x y z } { 126 129 if { $label != "" } { … … 148 151 foreach axis {x y z} units $_units { 149 152 set value [Rappture::Units::convert [set $axis] \ 150 -context $units -to $units -units off] 151 153 -context $units -to $units -units off] 152 154 set $axis $value; # Set the (x/y/z) coordinate to 153 155 # converted value.
Note: See TracChangeset
for help on using the changeset viewer.