Changeset 5917 for trunk


Ignore:
Timestamp:
Oct 21, 2015, 4:49:46 AM (9 years ago)
Author:
ldelgass
Message:

Add support for arcgis image layer driver. Add "equirectangular" and
"eqc-wgs84" as synonyms for epsg:32663.

Location:
trunk/gui/scripts
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/gui/scripts/map.tcl

    r5911 r5917  
    221221            }
    222222            $_tree set $child "driver" "colorramp"
     223        }
     224        set arcgis [$layers element -as type $layer.arcgis]
     225        if { $arcgis != "" } {
     226            foreach key { url token format layers } {
     227                set value [$layers get $layer.arcgis.$key]
     228                $_tree set $child "arcgis.$key" $value
     229            }
     230            $_tree set $child "driver" "arcgis"
    223231        }
    224232        set gdal [$layers element -as type $layer.gdal]
    … …  
    360368        }
    361369        set projection "global-mercator"; # Default projection.
    362     } elseif { $projection == "geodetic" && $extents == "" } {
    363         set projection "global-geodetic"
     370    } elseif { $projection == "geodetic" || $projection == "global-geodetic" ||
     371           $projection == "wgs84" || $projection == "epsg:4326" ||
     372           $projection == "plate-carre" || $projection == "plate-carree" } {
     373        # Can't use angular units in projection 
     374        error "Geodetic profile not supported as map projection.  Try using an equirectangular (epsg:32663) projection instead."
     375    } elseif { $projection == "equirectangular" || $projection == "eqc-wgs84" } {
     376        set projection "epsg:32663"
    364377    }
    365378    # FIXME: Verify projection is valid.

  • trunk/gui/scripts/mapviewer.tcl

    r5912 r5917  
    23842384            if {!$_sendEarthFile} {
    23852385                switch -- $info(driver)  {
     2386                    "arcgis" {
     2387                        SendCmd [list map layer add $layer image arcgis \
     2388                                     $info(arcgis.url) $info(cache) $coverage $info(arcgis.token)]
     2389                    }
    23862390                    "colorramp" {
    23872391                        set cmapName $layer
Note: See TracChangeset for help on using the changeset viewer.