Changeset 4140 for trunk/gui

Timestamp:

Jan 20, 2014 5:45:13 PM (10 years ago)

Author:

ldelgass

Message:

Support mesh axis labels (with 'labels' tag), units, and use 'color' tag for
mesh if present.

Location:

trunk/gui/scripts

Files:

• mesh.tcl (modified) (1 diff)
• vtkmeshviewer.tcl (modified) (3 diffs)

trunk/gui/scripts/mesh.tcl

@@ -277 +277 @@
 #
 itcl::body Rappture::Mesh::label { axis } {
-    if { ![info exists axis2label($axis)] } {
+    if { ![info exists _axis2labels($axis)] } {
         return ""
     }
-    return $axis2label($axis)
+    return $_axis2labels($axis)
 }
 

trunk/gui/scripts/vtkmeshviewer.tcl

@@ -891 +891 @@
 
         foreach axis { x y z } {
-            set label [$_first hints ${axis}label]
+            set label [$_first label ${axis}]
             if { $label != "" } {
                 SendCmd "axis name $axis $label"
             }
-            set units [$_first hints ${axis}units]
+            set units [$_first units ${axis}]
             if { $units != "" } {
                 SendCmd "axis units $axis $units"
@@ -1720 +1720 @@
     set tag $dataobj
     set type [$dataobj type]
-#    set style [$dataobj style]
+    set color [$dataobj hints color]
     if { $dataobj != $_first } {
         set settings(-wireframe) 1
@@ -1737 +1737 @@
     }
     # array set settings $style
+    if {$color != ""} {
+        set settings(-color) $color
+    }
     if {$type == "cloud"} {
         set settings(-cloudstyle) points
         set settings(-edges) 0
+        set settings(-edgecolor) white
     }
     SendCmd "polydata add $tag"