Changeset 4919 for branches/r9/gui/scripts/drawing.tcl

Timestamp:

Jan 4, 2015 6:52:23 PM (9 years ago)

Author:

gah

Message:

 

File:

• branches/r9/gui/scripts/drawing.tcl (modified) (8 diffs)

branches/r9/gui/scripts/drawing.tcl

@@ -1 +1 @@
 # -*- mode: tcl; indent-tabs-mode: nil -*- 
-
-# ----------------------------------------------------------------------
-#  COMPONENT: drawing - 2D drawing of data
+# ----------------------------------------------------------------------
+#  COMPONENT: drawing - 3D drawing of data
 # ======================================================================
 #  AUTHOR:  Michael McLennan, Purdue University
@@ -20 +19 @@
     private variable _drawing
     private variable _xmlobj 
-    private variable _actors 
     private variable _styles 
     private variable _shapes 
@@ -28 +26 @@
     private variable _hints
     private variable _units
-    private variable _limits
 
     constructor {xmlobj path} { 
@@ -36 +33 @@
         # defined below 
     }
-    public method limits {axis}
+
     public method label { elem }
     public method type { elem }
@@ -63 +60 @@
         set xunits "um"
     }
-    array set _limits {
-        xMin 0 
-        xMax 0 
-        yMin 0 
-        yMax 0 
-        zMin 0 
-        zMax 0 
-    }
     # determine the overall size of the device
     foreach elem [$_xmlobj children $path] {
         switch -glob -- $elem {
-            polygon* {
-                set _data($elem) [$_xmlobj get $path.$elem.vtk]
-                set _data($elem) [string trim $_data($elem)]
-                set _styles($elem) [$_xmlobj get $path.$elem.about.style]
-                set _labels($elem) [$_xmlobj get $path.$elem.about.label]
-                set _types($elem) polydata
-            }
-            polydata* {
+            # polygon is deprecated in favor of polydata
+            polygon* - polydata* {
                 set _data($elem) [$_xmlobj get $path.$elem.vtk]
                 set _data($elem) [string trim $_data($elem)]
@@ -87 +70 @@
                 set _labels($elem) [$_xmlobj get $path.$elem.about.label]
                 set _types($elem) polydata
-            }
-            streamlines* {
-                set _data($elem) [$_xmlobj get $path.$elem.vtk]
-                set _data($elem) [string trim $_data($elem)]
-                set _styles($elem) [$_xmlobj get $path.$elem.about.style]
-                set _labels($elem) [$_xmlobj get $path.$elem.about.label]
-                set _types($elem) streamlines
             }
             glyphs* {
@@ -250 +226 @@
 
 # ----------------------------------------------------------------------
-# method limits <axis>
-#       Returns a list {min max} representing the limits for the 
-#       specified axis.
-# ----------------------------------------------------------------------
-itcl::body Rappture::Drawing::limits {which} {
-    set min ""
-    set max ""
-    foreach key [array names _data] {
-        set actor $_actors($key)
-        foreach key { xMin xMax yMin yMax zMin zMax} value [$actor GetBounds] {
-            set _limits($key) $value
-        }
-        break
-    }    
-    
-    foreach key [array names _actors] {
-        set actor $_actors($key)
-        foreach { xMin xMax yMin yMax zMin zMax} [$actor GetBounds] break
-        if { $xMin < $_limits(xMin) } {
-            set _limits(xMin) $xMin
-        } 
-        if { $xMax > $_limits(xMax) } {
-            set _limits(xMax) $xMax
-        } 
-        if { $yMin < $_limits(yMin) } {
-            set _limits(yMin) $yMin
-        } 
-        if { $yMax > $_limits(yMax) } {
-            set _limits(yMax) $yMax
-        } 
-        if { $zMin < $_limits(zMin) } {
-            set _limits(zMin) $zMin
-        } 
-        if { $zMax > $_limits(zMax) } {
-            set _limits(zMax) $zMax
-        } 
-    }
-    switch -- $which {
-        x {
-            set min $_limits(xMin)
-            set max $_limits(xMax)
-            set axis "xaxis"
-        }
-        y {
-            set min $_limits(yMin)
-            set max $_limits(yMax)
-            set axis "yaxis"
-        }
-        v - z {
-            set min $_limits(zMin)
-            set max $_limits(zMax)
-            set axis "zaxis"
-        }
-        default {
-            error "unknown axis description \"$which\""
-        }
-    }
-    return [list $min $max]
-}
-
-# ----------------------------------------------------------------------
 # USAGE: hints ?<keyword>?
 #
@@ -340 +255 @@
     return [array get _hints]
 }
-