Changeset 5872 for trunk/gui


Ignore:
Timestamp:
Sep 17, 2015 10:49:42 AM (9 years ago)
Author:
ldelgass
Message:

map checkpoint commit: add icon layer, add wfs/tfs drivers for feature layers,
add ambient light control.

Location:
trunk/gui/scripts
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/gui/scripts/map.tcl

    r5659 r5872  
    214214        set wfs [$layers element -as type $layer.wfs]
    215215        if { $wfs != "" } {
    216             foreach key { url typename outputformat maxfeatures request_buffer } {
     216            foreach key { url typename format maxfeatures request_buffer } {
    217217                set value [$layers get $layer.wfs.$key]
    218218                $_tree set $child "wfs.$key" $value

  • trunk/gui/scripts/mapviewer.tcl

    r5776 r5872  
    270270        grid-type              "geodetic"
    271271        legend                 1
     272        terrain-ambient        0.03
    272273        terrain-edges          0
    273274        terrain-lighting       0
    … …  
    367368        [itcl::code $this EventuallyResize %w %h]
    368369
     370    set _useServerManip 1
    369371    EnablePanningMouseBindings
    370372    EnableRotationMouseBindings
    371373    EnableZoomMouseBindings
     374    set _useServerManip 0
    372375
    373376    if {$_useServerManip} {
    … …  
    12151218                SetTerrainStyle $_mapsettings(style)
    12161219            } else {
    1217                 InitSettings terrain-edges terrain-lighting \
     1220                InitSettings terrain-ambient terrain-edges terrain-lighting \
    12181221                    terrain-vertscale terrain-wireframe
    12191222            }
    … …  
    14501453
    14511454itcl::body Rappture::MapViewer::MouseMotion {} {
    1452     #SendCmd "mouse motion $_motion(x) $_motion(y)"
    1453     SendCmd "map pin hover $_motion(x) $_motion(y)"
     1455    SendCmd "mouse motion $_motion(x) $_motion(y)"
     1456    #SendCmd "map pin hover $_motion(x) $_motion(y)"
    14541457    set _motion(pending) 0
    14551458}
    … …  
    17451748            SendCmd "camera throw $bool"
    17461749        }
     1750        "terrain-ambient" {
     1751            set val $_settings($what)
     1752            SendCmd "map terrain ambient $val"
     1753        }
    17471754        "terrain-edges" {
    17481755            set bool $_settings($what)
    … …  
    18551862    }
    18561863
     1864    itk_component add ambient_l {
     1865        label $inner.ambient_l -text "Ambient min." -font "Arial 9"
     1866    } {
     1867        ignore -font
     1868    }
     1869    itk_component add ambient {
     1870        ::scale $inner.ambient -from 0 -to 1.0 -orient horizontal \
     1871            -resolution 0.01 \
     1872            -variable [itcl::scope _settings(terrain-ambient)] \
     1873            -width 10 \
     1874            -showvalue on \
     1875            -command [itcl::code $this AdjustSetting terrain-ambient]
     1876    }
     1877
    18571878    blt::table $inner \
    18581879        0,0 $inner.posdisp   -cspan 2 -anchor w -pady 2 \
    … …  
    18611882        3,0 $inner.lighting  -cspan 2 -anchor w -pady 2 \
    18621883        4,0 $inner.time_l    -cspan 2 -anchor w -pady 2 \
    1863         4,1 $inner.time      -cspan 2 -fill x   -pady 2
     1884        4,1 $inner.time      -cspan 2 -fill x   -pady 2 \
     1885        5,0 $inner.ambient_l -cspan 2 -anchor w -pady 2 \
     1886        5,1 $inner.ambient   -cspan 2 -fill x   -pady 2
    18641887#        4,0 $inner.edges     -cspan 2  -anchor w -pady 2
    18651888
    18661889    blt::table configure $inner r* c* -resize none
    1867     blt::table configure $inner r5 c1 -resize expand
     1890    blt::table configure $inner r6 c1 -resize expand
    18681891}
    18691892
    … …  
    22632286itcl::body Rappture::MapViewer::SetTerrainStyle { style } {
    22642287    array set settings {
     2288        -ambient 0.03
    22652289        -color white
    22662290        -edgecolor black
    22672291        -edges 0
    2268         -lighting 0
     2292        -lighting 1
    22692293        -linewidth 1.0
    22702294        -vertscale 1.0
    … …  
    22732297    array set settings $style
    22742298
     2299    SendCmd "map terrain ambient $settings(-ambient)"
     2300    set _settings(terrain-ambient) $settings(-ambient)
    22752301    SendCmd "map terrain edges $settings(-edges)"
    22762302    set _settings(terrain-edges) $settings(-edges)
    … …  
    23822408            set _opacity($layer) [expr $settings(-opacity) * 100]
    23832409            foreach {r g b} [Color2RGB $settings(-color)] {}
    2384             if {[info exists settings(-minrange)] && [info exists settings(-maxrange)]} {
    2385                 SendCmd [list map layer add $layer line $info(ogr.url) $r $g $b $settings(-width) $settings(-minrange) $settings(-maxrange)]
    2386             } else {
    2387                 SendCmd [list map layer add $layer line $info(ogr.url) $r $g $b $settings(-width)]
     2410            switch -- $info(driver)  {
     2411                "ogr" {
     2412                    if {[info exists settings(-minrange)] && [info exists settings(-maxrange)]} {
     2413                        SendCmd [list map layer add $layer line ogr {} {} $info(ogr.url) $r $g $b $settings(-width) $settings(-minrange) $settings(-maxrange)]
     2414                    } else {
     2415                        SendCmd [list map layer add $layer line ogr {} {} $info(ogr.url) $r $g $b $settings(-width)]
     2416                    }
     2417                }
     2418                "tfs" {
     2419                    set format "json"
     2420                    if {[info exists info(tfs.format)]} {
     2421                        set format $info(tfs.format)
     2422                    }
     2423                    if {[info exists settings(-minrange)] && [info exists settings(-maxrange)]} {
     2424                        SendCmd [list map layer add $layer line tfs $format {} $info(tfs.url) $r $g $b $settings(-width) $settings(-minrange) $settings(-maxrange)]
     2425                    } else {
     2426                        SendCmd [list map layer add $layer line tfs $format {} $info(tfs.url) $r $g $b $settings(-width)]
     2427                    }
     2428                }
     2429                "wfs" {
     2430                    set format "json"
     2431                    if {[info exists info(wfs.format)]} {
     2432                        set format $info(wfs.format)
     2433                    }
     2434                    if {[info exists settings(-minrange)] && [info exists settings(-maxrange)]} {
     2435                        SendCmd [list map layer add $layer line wfs $format $info(wfs.typename) $info(wfs.url) $r $g $b $settings(-width) $settings(-minrange) $settings(-maxrange)]
     2436                    } else {
     2437                        SendCmd [list map layer add $layer line wfs $format $info(wfs.typename) $info(wfs.url) $r $g $b $settings(-width)]
     2438                    }
     2439                }
    23882440            }
    23892441            SendCmd "map layer opacity $settings(-opacity) $layer"
    … …  
    24042456            set _opacity($layer) [expr $settings(-opacity) * 100]
    24052457            foreach {r g b} [Color2RGB $settings(-color)] {}
    2406             SendCmd [list map layer add $layer point $info(ogr.url) $r $g $b $settings(-size)]
     2458            switch -- $info(driver)  {
     2459                "ogr" {
     2460                    SendCmd [list map layer add $layer point ogr {} {} $info(ogr.url) $r $g $b $settings(-size)]
     2461                }
     2462                "tfs" {
     2463                    set format "json"
     2464                    if {[info exists info(tfs.format)]} {
     2465                        set format $info(tfs.format)
     2466                    }
     2467                    SendCmd [list map layer add $layer point tfs $format {} $info(ogr.url) $r $g $b $settings(-size)]
     2468                }
     2469                "wfs" {
     2470                    set format "json"
     2471                    if {[info exists info(wfs.format)]} {
     2472                        set format $info(wfs.format)
     2473                    }
     2474                    SendCmd [list map layer add $layer point wfs $format $info(wfs.typename) $info(ogr.url) $r $g $b $settings(-size)]
     2475                }
     2476            }
     2477            SendCmd "map layer opacity $settings(-opacity) $layer"
     2478        }
     2479        "icon" {
     2480            array set settings {
     2481                -align "center_bottom"
     2482                -declutter 1
     2483                -heading {}
     2484                -icon pin
     2485                -minbias 1000
     2486                -opacity 1.0
     2487                -placement "vertex"
     2488                -scale {}
     2489            }
     2490            if { [info exists info(style)] } {
     2491                array set settings $info(style)
     2492            }
     2493            if { [info exists info(opacity)] } {
     2494                set settings(-opacity) $info(opacity)
     2495            }
     2496            set _opacity($layer) [expr $settings(-opacity) * 100]
     2497            switch -- $info(driver)  {
     2498                "ogr" {
     2499                    SendCmd [list map layer add $layer icon ogr {} {} $info(ogr.url) $settings(-icon) $settings(-scale) $settings(-heading) $settings(-declutter) $settings(-placement) $settings(-align)]
     2500                }
     2501                "tfs" {
     2502                    set format "json"
     2503                    if {[info exists info(tfs.format)]} {
     2504                        set format $info(tfs.format)
     2505                    }
     2506                    SendCmd [list map layer add $layer icon tfs $format {} $info(tfs.url) $settings(-icon) $settings(-scale) $settings(-heading) $settings(-declutter) $settings(-placement) $settings(-align)]
     2507                }
     2508                "wfs" {
     2509                    set format "json"
     2510                    if {[info exists info(wfs.format)]} {
     2511                        set format $info(wfs.format)
     2512                    }
     2513                    SendCmd [list map layer add $layer icon wfs $format $info(wfs.typename) $info(wfs.url) $settings(-icon) $settings(-scale) $settings(-heading) $settings(-declutter) $settings(-placement) $settings(-align)]
     2514                }
     2515            }
    24072516            SendCmd "map layer opacity $settings(-opacity) $layer"
    24082517        }
    … …  
    24212530            set _opacity($layer) [expr $settings(-opacity) * 100]
    24222531            foreach {r g b} [Color2RGB $settings(-color)] {}
    2423             SendCmd [list map layer add $layer polygon $info(ogr.url) $r $g $b]
     2532            switch -- $info(driver)  {
     2533                "ogr" {
     2534                    SendCmd [list map layer add $layer polygon ogr {} {} $info(ogr.url) $r $g $b]
     2535                }
     2536                "tfs" {
     2537                    set format "json"
     2538                    if {[info exists info(tfs.format)]} {
     2539                        set format $info(tfs.format)
     2540                    }
     2541                    SendCmd [list map layer add $layer polygon tfs $format {} $info(tfs.url) $r $g $b]
     2542                }
     2543                "wfs" {
     2544                    set format "json"
     2545                    if {[info exists info(wfs.format)]} {
     2546                        set format $info(wfs.format)
     2547                    }
     2548                    SendCmd [list map layer add $layer polygon wfs $format $info(wfs.typename) $info(wfs.url) $r $g $b]
     2549                }
     2550            }
    24242551            SendCmd "map layer opacity $settings(-opacity) $layer"
    24252552        }
    … …  
    24372564                -opacity 1.0
    24382565                -removedupes 1
     2566                -xoffset 0
     2567                -yoffset 0
    24392568            }
    24402569            if { [info exists info(style)] } {
    … …  
    24532582            foreach {fgR fgG fgB} [Color2RGB $settings(-color)] {}
    24542583            foreach {bgR bgG bgB} [Color2RGB $settings(-halocolor)] {}
    2455             if {[info exists settings(-minrange)] && [info exists settings(-maxrange)]} {
    2456                 SendCmd [list map layer add $layer text $info(ogr.url) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $settings(-halowidth) $settings(-fontsize) $settings(-removedupes) $settings(-declutter) $settings(-align) $settings(-minrange) $settings(-maxrange)]
    2457             } else {
    2458                 SendCmd [list map layer add $layer text $info(ogr.url) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $settings(-halowidth) $settings(-fontsize) $settings(-removedupes) $settings(-declutter) $settings(-align)]
     2584            switch -- $info(driver)  {
     2585                "ogr" {
     2586                    if {[info exists settings(-minrange)] && [info exists settings(-maxrange)]} {
     2587                        SendCmd [list map layer add $layer text ogr {} {} $info(ogr.url) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $settings(-halowidth) $settings(-fontsize) $settings(-removedupes) $settings(-declutter) $settings(-align) $settings(-xoffset) $settings(-yoffset) $settings(-minrange) $settings(-maxrange)]
     2588                    } else {
     2589                        SendCmd [list map layer add $layer text ogr {} {} $info(ogr.url) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $settings(-halowidth) $settings(-fontsize) $settings(-removedupes) $settings(-declutter) $settings(-align) $settings(-xoffset) $settings(-yoffset)]
     2590                    }
     2591                }
     2592                "tfs" {
     2593                    set format "json"
     2594                    if {[info exists info(tfs.format)]} {
     2595                        set format $info(tfs.format)
     2596                    }
     2597                    if {[info exists settings(-minrange)] && [info exists settings(-maxrange)]} {
     2598                        SendCmd [list map layer add $layer text tfs $format {} $info(tfs.url) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $settings(-halowidth) $settings(-fontsize) $settings(-removedupes) $settings(-declutter) $settings(-align) $settings(-xoffset) $settings(-yoffset) $settings(-minrange) $settings(-maxrange)]
     2599                    } else {
     2600                        SendCmd [list map layer add $layer text tfs $format {} $info(tfs.url) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $settings(-halowidth) $settings(-fontsize) $settings(-removedupes) $settings(-declutter) $settings(-align) $settings(-xoffset) $settings(-yoffset)]
     2601                    }
     2602                }
     2603                "wfs" {
     2604                    set format "json"
     2605                    if {[info exists info(wfs.format)]} {
     2606                        set format $info(wfs.format)
     2607                    }
     2608                    if {[info exists settings(-minrange)] && [info exists settings(-maxrange)]} {
     2609                        SendCmd [list map layer add $layer text wfs $format $info(wfs.typename) $info(wfs.url) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $settings(-halowidth) $settings(-fontsize) $settings(-removedupes) $settings(-declutter) $settings(-align) $settings(-xoffset) $settings(-yoffset) $settings(-minrange) $settings(-maxrange)]
     2610                    } else {
     2611                        SendCmd [list map layer add $layer text wfs $format $info(wfs.typename) $info(wfs.url) $contentExpr $priorityExpr $fgR $fgG $fgB $bgR $bgG $bgB $settings(-halowidth) $settings(-fontsize) $settings(-removedupes) $settings(-declutter) $settings(-align) $settings(-xoffset) $settings(-yoffset)]
     2612                    }
     2613                }
    24592614            }
    24602615            SendCmd "map layer opacity $settings(-opacity) $layer"
Note: See TracChangeset for help on using the changeset viewer.