Kdtyjb

Can you move over difficult terrain with only 5' of movement?

Geography in 3D perspective

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

How is the partial sum of a geometric sequence calculated?

Can a wizard cast a spell during their first turn of combat if they initiated combat by releasing a readied spell?

Should I use acronyms in dialogues before telling the readers what it stands for in fiction?

gerund and noun applications

Probably overheated black color SMD pads

Synchronized implementation of a bank account in Java

How are passwords stolen from companies if they only store hashes?

The average age of first marriage in Russia

Why is there so much iron?

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

In what cases must I use 了 and in what cases not?

Is honey really a supersaturated solution? Does heating to un-crystalize redissolve it or melt it?

What are substitutions for coconut in curry?

Does multi-classing into Fighter give you heavy armor proficiency?

How can my new character not be a role-playing handicap to the party?

Can a medieval gyroplane be built?

Print a physical multiplication table

Practical application of matrices and determinants

Matrix using tikz package

Variable completely messes up echoed string

HP P840 HDD RAID 5 many strange drive failures

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

1

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

M.R.M.R.

15.7k558188

$endgroup$

add a comment | 

1

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

M.R.M.R.

15.7k558188

$endgroup$

share|improve this question

asked 3 hours ago

M.R.M.R.

15.7k558188

share|improve this question

asked 3 hours ago

M.R.M.R.

15.7k558188

asked 3 hours ago

M.R.M.R.

15.7k558188

asked 3 hours ago

M.R.M.R.

15.7k558188

1 Answer
1

active

oldest

votes

3

$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 9 mins ago

answered 33 mins 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

3

$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 9 mins ago

answered 33 mins ago

Chip HurstChip Hurst

22.3k15791

$endgroup$

add a comment | 

3

$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 9 mins ago

answered 33 mins 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 9 mins ago

answered 33 mins 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 9 mins ago

answered 33 mins ago

Chip HurstChip Hurst

22.3k15791

answered 33 mins ago

Chip HurstChip Hurst

22.3k15791

answered 33 mins ago

Chip HurstChip Hurst

22.3k15791