Changeset 2511 for trunk/gui/apps/vtkviewer-test

Timestamp:

Sep 13, 2011 12:42:39 PM (13 years ago)

Author:

ldelgass

Message:

Add streamlines viewer test app, add spheres drawing type test to vtkviewer test
app.

File:

• trunk/gui/apps/vtkviewer-test (modified) (2 diffs)

trunk/gui/apps/vtkviewer-test

@@ -147 +147 @@
 
 # ----------------------------------------------------------------------
+# USAGE: send_spheres_file
+#
+# Prompts the user for a text file, and then sends the text within
+# that file along to the rendering widget.
+# ----------------------------------------------------------------------
+proc send_spheres_file {} {
+    global widgets
+
+    set file [tk_getOpenFile -title "Open VTK File as Spheres"]
+    if {"" != $file && [catch {
+            set fid [open $file r]
+            fconfigure $fid -translation binary
+            set info [read $fid]
+            close $fid
+          }] == 0} {
+        set obj [visData #auto $info "spheres"]
+        $widgets(vtkviewer) add $obj
+    }
+}
+
+# ----------------------------------------------------------------------
 # USAGE: load_script
 #
@@ -343 +364 @@
 .mbar.file add command -label "Send VTK File..." -underline 0 -command send_file
 .mbar.file add command -label "Send VTK File as Streamlines..." -underline 0 -command send_streamlines_file
+.mbar.file add command -label "Send VTK File as Spheres..." -underline 0 -command send_spheres_file
 .mbar.file add command -label "Load script..." -underline 0 -command load_script
 .mbar.file add command -label "Reset" -underline 0 -command reset