Changeset 6099 for trunk

Timestamp:

Mar 3, 2016 9:24:28 PM (8 years ago)

Author:

ldelgass

Message:

Add public zoom extent method

File:

• trunk/gui/scripts/mapviewer.tcl (modified) (1 diff)

trunk/gui/scripts/mapviewer.tcl

@@ -2238 +2238 @@
             Camera reset
         }
+        "zoom" {
+            if {[llength $args] < 3} {
+                error "wrong # of args to camera zoom"
+            }
+            set zoomopt [lindex $args 0]
+            switch -- $zoomopt {
+                "extent" {
+                    if {[llength $args] < 7} {
+                        error "wrong # of args to camera zoom extent"
+                    }
+                    foreach {xmin ymin xmax ymax duration srs} [lrange $args 1 end] break
+                    foreach key {xmin ymin xmax ymax} {
+                        if {![string is double -strict [set $key]]} {
+                            error "Invalid extent: $key=[set $key]"
+                        }
+                    }
+                    if {$duration == ""} {
+                        set duration 0.0
+                    } elseif {![string is double $duration]} {
+                        error "Invalid duration \"$duration\", should be a double"
+                    }
+                    SendCmd "camera extent $xmin $ymin $xmax $ymax $duration $srs"
+                }
+                default {
+                    error "Unknown camera zoom option \"$zoomopt\""
+                }
+            }
+        }
         default {
             error "Unknown camera option \"$option\""