- Timestamp:
- Mar 8, 2015, 12:21:24 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/cloud.tcl
r5090 r5091 1 # -*- mode: tcl; indent-tabs-mode: nil -*- 1 # -*- mode: tcl; indent-tabs-mode: nil -*- 2 2 # ---------------------------------------------------------------------- 3 3 # COMPONENT: cloud - represents the mesh for a cloud of points … … 21 21 private variable _cloud ""; # lib obj representing this cloud 22 22 private variable _units "" ; # system of units for x, y, z 23 private variable _axis2label; # 24 private variable _axis2units; # 23 private variable _axis2label; # 24 private variable _axis2units; # 25 25 private variable _limits; # limits x, y, z 26 26 private common _xp2obj ; # Used for fetch/release ref counting … … 32 32 private variable _isValid 0; # Indicates if the data is valid. 33 33 34 constructor {xmlobj path} { 35 # defined below 36 } 37 destructor { 38 # defined below 34 constructor {xmlobj path} { 35 # defined below 36 } 37 destructor { 38 # defined below 39 39 } 40 40 public method points {} … … 119 119 foreach u $_units axis { x y z } { 120 120 if { $u != "" } { 121 set _axis2units($axis) $u 121 set _axis2units($axis) $u 122 122 } else { 123 set _axis2units($axis) $first 123 set _axis2units($axis) $first 124 124 } 125 125 lappend list $_axis2units($axis) … … 156 156 } else { 157 157 foreach { min max } $_limits($axis) break 158 if {$value < $min} { 158 if {$value < $min} { 159 159 set min $value 160 160 } 161 if {$value > $max} { 161 if {$value > $max} { 162 162 set max $value 163 163 }
Note: See TracChangeset
for help on using the changeset viewer.