Changeset 95 for trunk/gui/scripts/mesh.tcl

Timestamp:

Oct 9, 2005 9:41:29 PM (17 years ago)

Author:

mmc

Message:

• Fixed an annoying bug in the scroller that would cause the device to jitter up and down in some cases. (1-barrier case of app-rtd)

• Fixed cloud/mesh objects to allow different units for each of the various axes.

• Fixed the install.tcl script to avoid popping up the notice about Rappture being installed when tclsh is running the script.

File:

• trunk/gui/scripts/mesh.tcl (modified) (3 diffs)

trunk/gui/scripts/mesh.tcl

@@ -35 +35 @@
     private variable _mesh ""    ;# lib obj representing this mesh
 
-    private variable _units "m"  ;# system of units for this mesh
-    private variable _limits     ;# limits xmin, xmax, ymin, ymax, ...
+    private variable _units "m m m" ;# system of units for x, y, z
+    private variable _limits        ;# limits xmin, xmax, ymin, ymax, ...
 
     private common _xp2obj       ;# used for fetch/release ref counting
@@ -101 +101 @@
     set u [$_mesh get units]
     if {"" != $u} {
+        while {[llength $u] < 3} {
+            lappend u [lindex $u end]
+        }
         set _units $u
     }
@@ -126 +129 @@
         # extract each point and add it to the points list
         foreach {x y z} $xyz break
-        foreach dim {x y z} {
+        foreach dim {x y z} units $_units {
             set v [Rappture::Units::convert [set $dim] \
-                -context $_units -to $_units -units off]
+                -context $units -to $units -units off]
 
             set $dim $v  ;# save back to real x/y/z variable