Changeset 4279


Ignore:
Timestamp:
Mar 26, 2014 3:04:14 PM (10 years ago)
Author:
gah
Message:

add back terrain styles in SetObjectStyle?

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/mapviewer.tcl

    r4278 r4279  
    15661566    set tag $dataobj-$layer
    15671567    set _visibility($tag) 1
     1568
     1569    return
     1570
     1571    # The following code is a place holder for terrain styles.
     1572
     1573    set type [$dataobj type $layer]
     1574    set style [$dataobj style $layer]
     1575    if { $dataobj != $_first } {
     1576        set settings(-wireframe) 1
     1577    }
     1578    switch -- $type {
     1579        "elevation" {
     1580            array set settings {
     1581                -edgecolor black
     1582                -edges 0
     1583                -lighting 1
     1584                -linewidth 1.0
     1585                -vertscale 1.0
     1586                -wireframe 0
     1587            }
     1588            array set settings $style
     1589            SendCmd "map terrain edges $settings(-edges) $tag"
     1590            set _settings(terrain-edges) $settings(-edges)
     1591            SendCmd "map terrain color [Color2RGB $settings(-color)] $tag"
     1592            #SendCmd "map terrain colormode constant {} $tag"
     1593            SendCmd "map terrain lighting $settings(-lighting) $tag"
     1594            set _settings(terrain-lighting) $settings(-lighting)
     1595            SendCmd "map terrain linecolor [Color2RGB $settings(-edgecolor)] $tag"
     1596            SendCmd "map terrain linewidth $settings(-linewidth) $tag"
     1597            SendCmd "map terrain wireframe $settings(-wireframe) $tag"
     1598            set _settings(terrain-wireframe) $settings(-wireframe)
     1599        }
     1600    }
     1601    #SetColormap $dataobj $layer
    15681602}
    15691603
Note: See TracChangeset for help on using the changeset viewer.