Changeset 2450 for trunk

Timestamp:

Aug 30, 2011, 10:11:26 AM (13 years ago)

Author:

ldelgass

Message:

Dataset getscalar fixes, pick testing for vtkcontourviewer

File:

• trunk/gui/scripts/vtkcontourviewer.tcl (modified) (4 diffs)

trunk/gui/scripts/vtkcontourviewer.tcl

@@ -72 +72 @@
     protected method FixSettings {what {value ""}}
     protected method Pan {option x y}
+    protected method Pick {x y}
     protected method Rebuild {}
     protected method ReceiveDataset { args }
@@ -314 +315 @@
     bind $itk_component(view) <ButtonRelease-2> \
         [itcl::code $this Pan release %x %y]
+
+    bind $itk_component(view) <ButtonRelease-3> \
+        [itcl::code $this Pick %x %y]
 
     # Bindings for panning via keyboard
@@ -803 +807 @@
     set option [lindex $args 0]
     switch -- $option {
-        "value" {
+        "scalar" {
             set option [lindex $args 1]
             switch -- $option {
                 "world" {
-                    foreach { x y z value } [lrange $args 2 end] break
-                    puts stderr "world x=$x y=$y z=$z value=$value"
+                    foreach { x y z value tag } [lrange $args 2 end] break
+                    puts stderr "world x=$x y=$y z=$z value=$value tag=$tag"
                 }
                 "pixel" {
-                    foreach { x y value } [lrange $args 2 end] break
-                    puts stderr "pixel x=$x y=$y value=$value"
+                    foreach { x y value tag } [lrange $args 2 end] break
+                    puts stderr "pixel x=$x y=$y value=$value tag=$tag"
                 }
             }
+        }
+        "vector" {
+            set option [lindex $args 1]
+            switch -- $option {
+                "world" {
+                    foreach { x y z vx vy vz tag } [lrange $args 2 end] break
+                    puts stderr "world x=$x y=$y z=$z value=$vx $xy $vz tag=$tag"
+                }
+                "pixel" {
+                    foreach { x y vx vy vz tag } [lrange $args 2 end] break
+                    puts stderr "pixel x=$x y=$y value=$vx $xy $vz tag=$tag"
+                }
+            }
+        }
+        "names" {
+            foreach { name } [lindex $args 1] {
+                puts stderr "Dataset: $name"
+            }
         }
         default {
@@ -1035 +1057 @@
         }
     }
+}
+
+itcl::body Rappture::VtkContourViewer::Pick {x y} {
+    foreach tag [CurrentDatasets -visible] {
+        SendCmd "dataset getscalar pixel $x $y $tag"
+    } 
 }