Changeset 5163


Ignore:
Timestamp:
Mar 23, 2015, 2:42:50 AM (5 years ago)
Author:
ldelgass
Message:

Fixes for map viewpoints

Location:
trunk/gui/scripts
Files:
2 edited

Legend:

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

    r5125 r5163  
    248248            set child [$_tree insert $parent -label $name]
    249249            $_tree set $child "name" $viewpoint
     250            set haveX 0
     251            set haveZ 0
     252            set haveSRS 0
     253            set haveVertDatum 0
    250254            foreach key { label description x y z distance heading pitch srs verticalDatum } {
    251255                set val [$viewpoints get $viewpoint.$key]
    252                 $_tree set $child $key $val
     256                if {$val != ""} {
     257                    if {$key == "x"} {
     258                        set haveX 1
     259                    } elseif {$key == "z"} {
     260                        set haveZ 1
     261                    } elseif {$key == "srs"} {
     262                        set haveSRS 1
     263                    } elseif {$key == "verticalDatum"} {
     264                        set haveVertDatum 1
     265                    }
     266                    $_tree set $child $key $val
     267                }
     268            }
     269            if {!$haveX} {
     270                set lat [$viewpoints get $viewpoint.latitude]
     271                set long [$viewpoints get $viewpoint.longitude]
     272                $_tree set $child x $long
     273                $_tree set $child y $lat
     274                if {!$haveSRS} {
     275                    $_tree set $child srs wgs84
     276                }
     277                if {!$haveVertDatum} {
     278                    $_tree set $child verticalDatum ""
     279                }
     280            }
     281            if {!$haveZ} {
     282                set z [$viewpoints get $viewpoint.altitude]
     283                if {$z != ""} {
     284                    $_tree set $child z $z
     285                }
    253286            }
    254287        }
  • trunk/gui/scripts/mapviewer.tcl

    r5153 r5163  
    21732173
    21742174itcl::body Rappture::MapViewer::GoToViewpoint { dataobj viewpoint } {
    2175     if 0 {
    2176     array set view {
     2175    array set view [subst {
    21772176        x 0
    21782177        y 0
    21792178        z 0
    21802179        heading 0
    2181         pitch -89.999
    2182         distance 0
    2183         srs ""
    2184         verticalDatum ""
    2185     }
    2186     }
     2180        pitch -90
     2181        distance $_view(distance)
     2182        srs $_view(srs)
     2183        verticalDatum $_view(verticalDatum)
     2184    }]
    21872185    array set view [$dataobj viewpoint $viewpoint]
    21882186    foreach key {x y z heading pitch distance srs verticalDatum} {
     
    21902188            set _view($key) $view($key)
    21912189        }
     2190    }
     2191    # If map is projected, ignore pitch
     2192    if {![MapIsGeocentric]} {
     2193        set _view(pitch) -90
    21922194    }
    21932195    set duration 2.0
Note: See TracChangeset for help on using the changeset viewer.