Changeset 5109

Timestamp:

Mar 9, 2015 3:07:18 PM (9 years ago)

Author:

ldelgass

Message:

merge r5090:r5091 from trunk

Location:

branches/1.3

Files:

• . (modified) (1 prop)
• gui/scripts/cloud.tcl (modified) (7 diffs)

branches/1.3/gui/scripts/cloud.tcl

@@ -1 @@
-# -*- mode: tcl; indent-tabs-mode: nil -*- 
+# -*- mode: tcl; indent-tabs-mode: nil -*-
 # ----------------------------------------------------------------------
 #  COMPONENT: cloud - represents the mesh for a cloud of points
@@ -21 +21 @@
     private variable _cloud "";         # lib obj representing this cloud
     private variable _units "" ;        # system of units for x, y, z
-    private variable _axis2label;       # 
-    private variable _axis2units;       # 
+    private variable _axis2label;       #
+    private variable _axis2units;       #
     private variable _limits;           # limits x, y, z
     private common _xp2obj ;            # Used for fetch/release ref counting
@@ -32 +32 @@
     private variable _isValid 0;        # Indicates if the data is valid.
 
-    constructor {xmlobj path} { 
-        # defined below 
-    }
-    destructor { 
-        # defined below 
+    constructor {xmlobj path} {
+        # defined below
+    }
+    destructor {
+        # defined below
     }
     public method points {}
@@ -48 +48 @@
     public method hints {{key ""}}
     public method numpoints {} {
-        return $_numPoints
+        return $_numPoints
     }
     public method isvalid {} {
@@ -119 +119 @@
     foreach u $_units axis { x y z } {
         if { $u != "" } {
-            set _axis2units($axis) $u 
+            set _axis2units($axis) $u
         } else {
-            set _axis2units($axis) $first 
+            set _axis2units($axis) $first
         }
         lappend list $_axis2units($axis)
@@ -156 +156 @@
             } else {
                 foreach { min max } $_limits($axis) break
-                if {$value < $min} { 
+                if {$value < $min} {
                     set min $value
                 }
-                if {$value > $max} { 
+                if {$value > $max} {
                     set max $value
                 }
@@ -166 +166 @@
         }
         append _points "$x $y $z\n"
-        incr _numPoints
+        incr _numPoints
     }
     append out "DATASET POLYDATA\n"