View city coordinates from above

As a small project, I was thinking of creating a small animation similar to Google Earth. I want to reproduce the timeline during the rotation of the globe in order to focus on different cities. Currently, I can use the default view settings to display a globe with the cities indicated by points.

enter image description here

When I try to orient the camera with a view vector looking down at the city (for example, in Denver), I get the following:

enter image description here

The ViewVector must be computed for a point in space above the globe. However, my trial and error did not reach any agreed point of view, since most of them look like they are "inside" the globe.

, , ViewVector "" . , " ", :

SC[{lat_, lon_}] := {Cos[lon \[Degree]] Cos[lat \[Degree]], 
   Sin[lon  \[Degree]] Cos[lat  \[Degree]], Sin[lat \[Degree]]};

Graphics3D[{
  Opacity[0.75],
  Sphere[{0, 0, 0}, 0.99 ],
  Map[Line[
 Map[SC,
  CountryData[#, "SchematicCoordinates"], {-2}]] &,
   CountryData["Countries"]], {Yellow, PointSize[Medium],
   Point[SC[CityData["Denver", "Coordinates"]]]
   }
  },
 Boxed -> False,
 SphericalRegion -> True,
 ViewVector -> {{0, 0, 0}, SC[CityData["Denver", "Coordinates"]]}
 ]
+5
1

ViewVector ViewVector->{v1, v2} v1 v2. , ​​ , " ". , , . 2 SC[CityData["Denver", "Coordinates"] , ViewVector -

ViewVector -> {2 SC[CityData["Denver", "Coordinates"]], {0, 0, 0}}

ViewVector -

enter image description here

+10

All Articles