source: branches/multichoice/examples/mapviewer/camera/camera_example.tcl @ 6371

package require Tk
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 a Gdal layer from a local geotiff
# here we use the local:// prefix to specify that the
# tif file needs to be transferred from the # client to the server.

array set gdalParams {
    url {/usr/share/geovis/world.tif}
}
array set layerParams {
    label "Base Layer"
    description "geotiff"
    opacity 1.0
}

array set camera {
    xmin 20
    xmax 40
    ymin -15
    ymax 15
    srs wgs84
}

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

# add all layers to the map object
$map addLayer image \
    test [array get layerParams] \
    gdal [array get gdalParams]

$map setCamera [array get camera]

# add a map to the vis client
$mapviewer scale $map
$mapviewer add $map

after 10000 {
    puts stderr "camera zoom extent"
    $mapviewer camera zoom extent -64 40 -60 50 5 wgs84
}
after 20000 {
    puts stderr "Reset camera"
    $mapviewer camera reset
}