- Timestamp:
- Mar 26, 2014, 3:04:14 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/mapviewer.tcl
r4278 r4279 1566 1566 set tag $dataobj-$layer 1567 1567 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 1568 1602 } 1569 1603
Note: See TracChangeset
for help on using the changeset viewer.