Changeset 4270 for trunk/gui

Timestamp:

Mar 25, 2014 7:52:55 PM (10 years ago)

Author:

ldelgass

Message:

Add map type: geocentric or projected (default)

File:

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

trunk/gui/scripts/map.tcl

@@ -25 +25 @@
 itcl::class Rappture::Map {
     private variable _tree "";             # Tree of information about the map.
+    private variable _isGeocentric 0;
     private variable _isValid 0;
     private variable _nextLayer 0;
@@ -44 +45 @@
     }
 
+    public method isGeocentric {}
     public method layers {}
     public method extents {}
@@ -143 +145 @@
     $_tree set root "projection"  [$map get "projection"]
 
+    set mapType [$map get "type"]
+    if {$mapType == "geocentric"} {
+        set _isGeocentric 1
+    } elseif {$mapType != "projected"} {
+        error "Invalid map type: $mapType"
+    } 
+
     foreach {key path} {
         toolId          tool.id
@@ -186 +195 @@
 }
 
-
+# ----------------------------------------------------------------------
+# Returns if the map is geocentric (1) or projected (0)
+# ----------------------------------------------------------------------
+itcl::body Rappture::Map::isGeocentric {} {
+    return $_isGeocentric
+}