Changeset 95 for trunk/gui/scripts/cloud.tcl
- Timestamp:
- Oct 9, 2005 9:41:29 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/cloud.tcl
r17 r95 32 32 private variable _cloud "" ;# lib obj representing this cloud 33 33 34 private variable _units "m " ;# system of units for this cloud35 private variable _limits ;# limits xmin, xmax, ymin, ymax, ...34 private variable _units "m m m" ;# system of units for x, y, z 35 private variable _limits ;# limits xmin, xmax, ymin, ymax, ... 36 36 37 37 private common _xp2obj ;# used for fetch/release ref counting … … 98 98 set u [$_cloud get units] 99 99 if {"" != $u} { 100 while {[llength $u] < 3} { 101 lappend u [lindex $u end] 102 } 100 103 set _units $u 101 104 } … … 120 123 # extract each point and add it to the points list 121 124 foreach {x y z} $line break 122 foreach dim {x y z} {125 foreach dim {x y z} units $_units { 123 126 set v [Rappture::Units::convert [set $dim] \ 124 -context $ _units -to $_units -units off]127 -context $units -to $units -units off] 125 128 126 129 set $dim $v ;# save back to real x/y/z variable
Note: See TracChangeset
for help on using the changeset viewer.