source: trunk/examples/mapviewer/layers/add_remove_layers.tcl @ 6209

package require Rappture
package require RapptureGUI

Rappture::resources::load

set commondir [file join [file dirname [info script]] .. common]
source [file join $commondir geovis_settings.tcl]

set width 400
set height 300
wm geometry . ${width}x${height}
update

set mapviewer [Rappture::MapViewer .g]

pack .g -expand yes -fill both

# create xyz layer
array set xyzParams {
    url {http://otile[1234].mqcdn.com/tiles/1.0.0/map/{z}/{x}/{y}.jpg}
}
array set osm {
    label "OSM"
    cache false
}

# create a colorramp layer
set colormap {
 0.00 0 0 1 1
 0.25 0 1 1 1
 0.50 0 1 0 1
 0.75 1 1 0 1
 1.00 1 0 0 1
}
array set colorrampParams [subst {
    url {file:///usr/share/geovis/landuse/scplot_with_coordinate_system.tif}
    colormap {$colormap}
}]
array set landuse {
    label "Color Ramp"
    coverage true
}

# create an OGR Line layer
array set ogrParams {
    url {local://afr_countries.shp}
}
array set countries {
    label "Country boundaries"
    style "-color black -width 2.0"
}

# create a map object
set map [Rappture::Map #auto]
$mapviewer scale $map

# -------------------------------------------------
# launch the mapviewer
# show individual layers of the map at 10 second intervals

after 10000 {
    # add a layer to the map object
    $map addLayer image \
        osm [array get osm] \
        xyz [array get xyzParams]

    $mapviewer add $map
    puts stderr "Added OSM Layer"
}

after 15000 {
    # remove the OSM layer from the map
    $map deleteLayer osm

    # add the colorramp layer to the map
    $map addLayer image \
        landuse [array get landuse] \
        colorramp [array get colorrampParams]

    # Update map
    $mapviewer delete
    $mapviewer add $map
    puts stderr "Deleted OSM Layer, Added colorramp"
}

after 20000 {
    # remove the colorramp layer from the map
    $map deleteLayer landuse

    # add the line feature layer to the map
    $map addLayer line \
        countries [array get countries] \
        ogr [array get ogrParams]

    # Update map
    $mapviewer delete
    $mapviewer add $map
    puts stderr "Deleted colorramp Layer, Added line layer"
}

# build up the map layer by layer at 5 second intervals

after 25000 {
    $map deleteLayer countries

    # add the OSM layers to the map
    $map addLayer image \
        osm [array get osm] \
        xyz [array get xyzParams]

    # Update map
    $mapviewer delete
    $mapviewer add $map
    puts stderr "Deleted line Layer, Added OSM layer"
}

after 30000 {
    # add the colorramp layer to the map
    $map addLayer image \
        landuse [array get landuse] \
        colorramp [array get colorrampParams]

    # Update map
    $mapviewer delete
    $mapviewer add $map
    puts stderr "Added colorramp layer"
}

after 35000 {
    # add the line feature layer to the map
    $map addLayer line \
        countries [array get countries] \
        ogr [array get ogrParams]

    # Update map
    $mapviewer delete
    $mapviewer add $map
    puts stderr "Added line layer"
}