Arsthbt

Light propagating through a sound wave

What is the plural TO / OF something

Unfrosted light bulb

Is this an example of a Neapolitan chord?

Wrapping homogeneous Python objects

What does "^L" mean in C?

Bash - pair each line of file

Why is there so much iron?

gerund and noun applications

Four married couples attend a party. Each person shakes hands with every other person, except their own spouse, exactly once. How many handshakes?

Is there a hypothetical scenario that would make Earth uninhabitable for humans, but not for (the majority of) other animals?

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

Print last inputted byte

I seem to dance, I am not a dancer. Who am I?

Generic TVP tradeoffs?

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

Synchronized implementation of a bank account in Java

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

Am I eligible for the Eurail Youth pass? I am 27.5 years old

How to terminate ping <dest> &

Do US professors/group leaders only get a salary, but no group budget?

Asserting that Atheism and Theism are both faith based positions

Does .bashrc contain syntax errors?

How can my new character avoid being a role-playing handicap to the party?

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 4 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 4 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 4 hours ago

M.R.M.R.

15.7k558188

$endgroup$

share|improve this question

asked 4 hours ago

M.R.M.R.

15.7k558188

share|improve this question

asked 4 hours ago

M.R.M.R.

15.7k558188

asked 4 hours ago

M.R.M.R.

15.7k558188

asked 4 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