Changeset 1423 for trunk/gui/scripts/nanovisviewer.tcl

Timestamp:

Apr 23, 2009 8:46:21 AM (15 years ago)

Author:

gah

Message:

add camera method to update camera settings

File:

• trunk/gui/scripts/nanovisviewer.tcl (modified) (2 diffs)

trunk/gui/scripts/nanovisviewer.tcl

@@ -66 +66 @@
     public method rmdupmarker { m x }
     public method overmarker { m x }
+    public method camera {option args}
 
     protected method Connect {}
@@ -2000 +2001 @@
     $_dispatcher event -idle !legend
 }
+
+#  camera -- 
+#
+itcl::body Rappture::NanovisViewer::camera {option args} {
+    switch -- $option { 
+        "show" {
+            puts [array get view_]
+        }
+        "set" {
+            set who [lindex $args 0]
+            set x $settings_($this-$who)
+            set code [catch { string is double $x } result]
+            if { $code != 0 || !$result } {
+                set settings_($this-$who) $view_($who)
+                return
+            }
+            switch -- $who {
+                "pan-x" - "pan-y" {
+                    set view_($who) $settings_($this-$who)
+                    PanCamera
+                }
+                "phi" - "theta" - "psi" {
+                    set view_($who) $settings_($this-$who)
+                    set xyz [Euler2XYZ $view_(theta) $view_(phi) $view_(psi)]
+                    SendCmd "camera angle $xyz"
+                }
+                "zoom" {
+                    set view_($who) $settings_($this-$who)
+                    SendCmd "camera zoom $view_(zoom)"
+                }
+            }
+        }
+    }
+}
+