Hjdcti

Multi tool use

Existence of a celestial body big enough for early civilization to be thought of as a second moon

Deletion of copy-ctor & copy-assignment - public, private or protected?

If "dar" means "to give", what does "daros" mean?

I got the following comment from a reputed math journal. What does it mean?

Knife as defense against stray dogs

Recruiter wants very extensive technical details about all of my previous work

A Ri-diddley-iley Riddle

Usage and meaning of "up" in "...worth at least a thousand pounds up in London"

Worshiping one God at a time?

Help rendering a complicated sum/product formula

What is the term when voters “dishonestly” choose something that they do not want to choose?

How to get the n-th line after a grepped one?

Are dual Irish/British citizens bound by the 90/180 day rule when travelling in the EU after Brexit?

Probably overheated black color SMD pads

What is the significance behind "40 days" that often appears in the Bible?

What does Jesus mean regarding "Raca," and "you fool?" - is he contrasting them?

Comment Box for Substitution Method of Integrals

Calculate the frequency of characters in a string

What does "Four-F." mean?

Have the tides ever turned twice on any open problem?

Synchronized implementation of a bank account in Java

How to generate binary array whose elements with values 1 are randomly drawn

Unfrosted light bulb

Brake pads destroying wheels

Geography in 3D perspective

Highlighting individual countries on a world mapUsing J/Link to decode Google Maps Polyline stringsShow density plot on a geographic mapColoring a map of GeoRegionsPlots of United States states with non-standard labelsCustom ColorFunction for GeoGraphics plot with ReliefMapHow can I use multiple overlaid map layers (e.g. basemap, labels) in GeoGraphics?How to extract geo location of city and plot the mapConstant disk size on GeoGraphics ImageGeographics Geolabels and Polygons

2

1

$begingroup$

I would like to make map a GeoGraphics with GeoMarkers in the pseudo 3D perspective. For example, consider this plot of the Eiffel Tower:

I would like to reproduce it in a 3D perspective like this:

Both examples come from google maps, I’m not sure if this is possible in 11.3, but would love to know.

geography geographics

share|improve this question

asked 5 hours ago

M.R.M.R.

15.7k558188

$endgroup$

add a comment | 

2

1

$begingroup$

I would like to make map a GeoGraphics with GeoMarkers in the pseudo 3D perspective. For example, consider this plot of the Eiffel Tower:

I would like to reproduce it in a 3D perspective like this:

Both examples come from google maps, I’m not sure if this is possible in 11.3, but would love to know.

geography geographics

share|improve this question

asked 5 hours ago

M.R.M.R.

15.7k558188

$endgroup$

add a comment | 

$begingroup$

I would like to make map a GeoGraphics with GeoMarkers in the pseudo 3D perspective. For example, consider this plot of the Eiffel Tower:

I would like to reproduce it in a 3D perspective like this:

Both examples come from google maps, I’m not sure if this is possible in 11.3, but would love to know.

geography geographics

share|improve this question

asked 5 hours ago

M.R.M.R.

15.7k558188

$endgroup$

share|improve this question

asked 5 hours ago

M.R.M.R.

15.7k558188

share|improve this question

asked 5 hours ago

M.R.M.R.

15.7k558188

asked 5 hours ago

M.R.M.R.

15.7k558188

asked 5 hours ago

M.R.M.R.

15.7k558188

1 Answer
1

active

oldest

votes

4

$begingroup$

You could use an orthographic with a custom centering:

GeoGraphics[
 Entity["Building", "EiffelTower::5h9w8"], 
 GeoProjection -> "Orthographic", "Centering" -> GeoPosition[-30.858`, 2.295`], 
 GeoZoomLevel -> 18, 
 GeoRange -> 48.852`, 48.872`, 2.2895`, 2.2995`
]

Note that this does incorporate the curvature of the earth and will be noticeable over larger areas.

If you're after something flat, you could always inset the tiles in 3D and pick custom View* values. Note I pad the range to allow the map to be seen at an angle:

im = GeoImage[
 Entity["Building", "EiffelTower::5h9w8"], 
 "StreetMapNoLabels", 
 GeoZoomLevel -> 17, 
 GeoRange -> 48.852`, 48.872`, 2.285`, 2.305`
];

x, y = ImageDimensions[im];

Graphics3D[
 Texture[im], EdgeForm[], Polygon[0, 0, 0, x, 0, 0, x, y, 0, 0, y, 0, 
 VertexTextureCoordinates -> 0, 0, 1, 0, 1, 1, 0, 1], 
 Background -> Black,
 Boxed -> False, 
 Lighting -> "Neutral", 
 ViewAngle -> 0.03233723833101999`, 
 ViewCenter -> 0.5`, 0.5`, 0.5`, 1.4456583184354543`, 0.7806170277104297`, 
 ViewPoint -> 1.076788325190908`, -3.1635309749673284`, 0.5316001064285271`, 
 ViewVertical -> 0.00011882147473772082`, -0.00015290540260965785`, 0.9999999812506973`
]

share|improve this answer

edited 1 hour ago

answered 1 hour ago

Chip HurstChip Hurst

22.3k15791

$endgroup$

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function ()
return StackExchange.using("mathjaxEditing", function ()
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
);
);
, "mathjax-editing");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "387"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f193444%2fgeography-in-3d-perspective%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

4

$begingroup$

You could use an orthographic with a custom centering:

GeoGraphics[
 Entity["Building", "EiffelTower::5h9w8"], 
 GeoProjection -> "Orthographic", "Centering" -> GeoPosition[-30.858`, 2.295`], 
 GeoZoomLevel -> 18, 
 GeoRange -> 48.852`, 48.872`, 2.2895`, 2.2995`
]

Note that this does incorporate the curvature of the earth and will be noticeable over larger areas.

If you're after something flat, you could always inset the tiles in 3D and pick custom View* values. Note I pad the range to allow the map to be seen at an angle:

im = GeoImage[
 Entity["Building", "EiffelTower::5h9w8"], 
 "StreetMapNoLabels", 
 GeoZoomLevel -> 17, 
 GeoRange -> 48.852`, 48.872`, 2.285`, 2.305`
];

x, y = ImageDimensions[im];

Graphics3D[
 Texture[im], EdgeForm[], Polygon[0, 0, 0, x, 0, 0, x, y, 0, 0, y, 0, 
 VertexTextureCoordinates -> 0, 0, 1, 0, 1, 1, 0, 1], 
 Background -> Black,
 Boxed -> False, 
 Lighting -> "Neutral", 
 ViewAngle -> 0.03233723833101999`, 
 ViewCenter -> 0.5`, 0.5`, 0.5`, 1.4456583184354543`, 0.7806170277104297`, 
 ViewPoint -> 1.076788325190908`, -3.1635309749673284`, 0.5316001064285271`, 
 ViewVertical -> 0.00011882147473772082`, -0.00015290540260965785`, 0.9999999812506973`
]

share|improve this answer

edited 1 hour ago

answered 1 hour ago

Chip HurstChip Hurst

22.3k15791

$endgroup$

add a comment | 

4

$begingroup$

You could use an orthographic with a custom centering:

GeoGraphics[
 Entity["Building", "EiffelTower::5h9w8"], 
 GeoProjection -> "Orthographic", "Centering" -> GeoPosition[-30.858`, 2.295`], 
 GeoZoomLevel -> 18, 
 GeoRange -> 48.852`, 48.872`, 2.2895`, 2.2995`
]

Note that this does incorporate the curvature of the earth and will be noticeable over larger areas.

If you're after something flat, you could always inset the tiles in 3D and pick custom View* values. Note I pad the range to allow the map to be seen at an angle:

im = GeoImage[
 Entity["Building", "EiffelTower::5h9w8"], 
 "StreetMapNoLabels", 
 GeoZoomLevel -> 17, 
 GeoRange -> 48.852`, 48.872`, 2.285`, 2.305`
];

x, y = ImageDimensions[im];

Graphics3D[
 Texture[im], EdgeForm[], Polygon[0, 0, 0, x, 0, 0, x, y, 0, 0, y, 0, 
 VertexTextureCoordinates -> 0, 0, 1, 0, 1, 1, 0, 1], 
 Background -> Black,
 Boxed -> False, 
 Lighting -> "Neutral", 
 ViewAngle -> 0.03233723833101999`, 
 ViewCenter -> 0.5`, 0.5`, 0.5`, 1.4456583184354543`, 0.7806170277104297`, 
 ViewPoint -> 1.076788325190908`, -3.1635309749673284`, 0.5316001064285271`, 
 ViewVertical -> 0.00011882147473772082`, -0.00015290540260965785`, 0.9999999812506973`
]

share|improve this answer

edited 1 hour ago

answered 1 hour ago

Chip HurstChip Hurst

22.3k15791

$endgroup$

add a comment | 

$begingroup$

You could use an orthographic with a custom centering:

GeoGraphics[
 Entity["Building", "EiffelTower::5h9w8"], 
 GeoProjection -> "Orthographic", "Centering" -> GeoPosition[-30.858`, 2.295`], 
 GeoZoomLevel -> 18, 
 GeoRange -> 48.852`, 48.872`, 2.2895`, 2.2995`
]

Note that this does incorporate the curvature of the earth and will be noticeable over larger areas.

If you're after something flat, you could always inset the tiles in 3D and pick custom View* values. Note I pad the range to allow the map to be seen at an angle:

im = GeoImage[
 Entity["Building", "EiffelTower::5h9w8"], 
 "StreetMapNoLabels", 
 GeoZoomLevel -> 17, 
 GeoRange -> 48.852`, 48.872`, 2.285`, 2.305`
];

x, y = ImageDimensions[im];

Graphics3D[
 Texture[im], EdgeForm[], Polygon[0, 0, 0, x, 0, 0, x, y, 0, 0, y, 0, 
 VertexTextureCoordinates -> 0, 0, 1, 0, 1, 1, 0, 1], 
 Background -> Black,
 Boxed -> False, 
 Lighting -> "Neutral", 
 ViewAngle -> 0.03233723833101999`, 
 ViewCenter -> 0.5`, 0.5`, 0.5`, 1.4456583184354543`, 0.7806170277104297`, 
 ViewPoint -> 1.076788325190908`, -3.1635309749673284`, 0.5316001064285271`, 
 ViewVertical -> 0.00011882147473772082`, -0.00015290540260965785`, 0.9999999812506973`
]

share|improve this answer

edited 1 hour ago

answered 1 hour ago

Chip HurstChip Hurst

22.3k15791

$endgroup$

GeoGraphics[
 Entity["Building", "EiffelTower::5h9w8"], 
 GeoProjection -> "Orthographic", "Centering" -> GeoPosition[-30.858`, 2.295`], 
 GeoZoomLevel -> 18, 
 GeoRange -> 48.852`, 48.872`, 2.2895`, 2.2995`
]

im = GeoImage[
 Entity["Building", "EiffelTower::5h9w8"], 
 "StreetMapNoLabels", 
 GeoZoomLevel -> 17, 
 GeoRange -> 48.852`, 48.872`, 2.285`, 2.305`
];

x, y = ImageDimensions[im];

Graphics3D[
 Texture[im], EdgeForm[], Polygon[0, 0, 0, x, 0, 0, x, y, 0, 0, y, 0, 
 VertexTextureCoordinates -> 0, 0, 1, 0, 1, 1, 0, 1], 
 Background -> Black,
 Boxed -> False, 
 Lighting -> "Neutral", 
 ViewAngle -> 0.03233723833101999`, 
 ViewCenter -> 0.5`, 0.5`, 0.5`, 1.4456583184354543`, 0.7806170277104297`, 
 ViewPoint -> 1.076788325190908`, -3.1635309749673284`, 0.5316001064285271`, 
 ViewVertical -> 0.00011882147473772082`, -0.00015290540260965785`, 0.9999999812506973`
]

share|improve this answer

edited 1 hour ago

answered 1 hour ago

Chip HurstChip Hurst

22.3k15791

answered 1 hour ago

Chip HurstChip Hurst

22.3k15791

answered 1 hour ago

Chip HurstChip Hurst

22.3k15791