Message Boards

WOLFRAM COMMUNITY

8249 Views

4 Replies

1 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Visual Arts Mathematica Graphics and Visualization

Polygon Texture

Diogo Duarte

Diogo Duarte, Florida International University

Posted 8 years ago

Hi, I am trying to put the US flag (using Texture function) on top of US map (using CountryData function). Nevertheless, the map I obtain is completely dark. Here it is what I am trying: Set the variable fig equal to the American flag found in here: https://en.wikipedia.org/wiki/Flag_of_the_United_States#/\media/File:Flag_of_the_United_States.svg Graphics[{Texture[fig], CountryData["UnitedStates", "Polygon"]}] In my understanding, the problem might be coming from the fact that CountryDate is returning a Polygon. So I tried to follow the help example and it worked fine: Graphics3D[{Texture[fig], Polygon[{{-1, -1, -1}, {1, -1, -1}, {1, 1, -1}, {-1, 1, -1}}, VertexTextureCoordinates -> {{0, 0}, {1, 0}, {1, 1}, {0, 1}}]}, Lighting -> "Neutral"] Does anyone know how can I fix this? Thanks in advance!

POSTED BY: Diogo Duarte

4 Replies

Sort By:

Gianluca Gorni

Gianluca Gorni, University of Udine

Posted 8 years ago

Sorry, I just looked up Texture in the Mathematica documentation center. I wonder if Texture works also with GeoGraphics, which would be better in your case.

POSTED BY: Gianluca Gorni

Francisco Rodríguez

Francisco Rodríguez, WOLFRAM|Alpha

Posted 8 years ago

In `GeoGraphics` the recommended way is using `GeoStyling`, which depeding on what you want as output, you can use `"GeoImage"` or `"Image"`: GeoGraphics[{GeoStyling[{"GeoImage", Rasterize[CountryData["UnitedStates", "Flag"], "Image", ImageSize -> 400]}], Polygon[Entity["Country", "UnitedStates"]]}] GeoGraphics[{GeoStyling[{"Image", Rasterize[CountryData["UnitedStates", "Flag"], "Image", ImageSize -> 400]}], Polygon[Entity["Country", "UnitedStates"]]}]

In GeoGraphics the recommended way is using GeoStyling, which depeding on what you want as output, you can use "GeoImage" or "Image":

GeoGraphics[{GeoStyling[{"GeoImage", 
    Rasterize[CountryData["UnitedStates", "Flag"], "Image", 
     ImageSize -> 400]}], Polygon[Entity["Country", "UnitedStates"]]}]

USA flag map GeoImage

GeoGraphics[{GeoStyling[{"Image", 
    Rasterize[CountryData["UnitedStates", "Flag"], "Image", 
     ImageSize -> 400]}], Polygon[Entity["Country", "UnitedStates"]]}]

USA flag map Image

POSTED BY: Francisco Rodríguez

Diogo Duarte

Diogo Duarte, Florida International University

Posted 8 years ago

Hi Gianluca, thanks for putting me on the right track. I modified your code a little bit to end up with the map with the right rotation and put the flag on the right direction. Here it is how I adapted your solution: coord = CountryData["UnitedStates", "Coordinates"][[1]]; Rotate[ImageReflect[Graphics[{Texture[ CountryData["UnitedStates", "Flag"]], Polygon[coord, VertexTextureCoordinates -> -Transpose[{Rescale[ coord[[All, 1]]], Rescale[coord[[All, 2]]]}]]}],Left -> Right], -\[Pi]/2] There might be a better way to do it without using ImageReflect but this was the only way I manage to do it. If you have any good reference for learning Polygon and Texture manipulation, it will be deeply appreciated. Many thanks. UPDATED: Here it is some improvement I managed to implement: coord = CountryData["UnitedStates", "Coordinates"][[1]].{{-1, 0}, {0,1}}.{{0, -1}, {1, 0}}; Graphics[{Opacity[0.5], Texture[CountryData["UnitedStates", "Flag"]], Polygon[coord,VertexTextureCoordinates ->Transpose[{Rescale[coord[[All, 1]]], Rescale[coord[[All, 2]]]}]]}]

Hi Gianluca, thanks for putting me on the right track. I modified your code a little bit to end up with the map with the right rotation and put the flag on the right direction. Here it is how I adapted your solution:

coord = CountryData["UnitedStates", "Coordinates"][[1]];
 Rotate[ImageReflect[Graphics[{Texture[ CountryData["UnitedStates", "Flag"]], Polygon[coord, 
  VertexTextureCoordinates -> -Transpose[{Rescale[
       coord[[All, 1]]], Rescale[coord[[All, 2]]]}]]}],Left -> Right], -\[Pi]/2]

There might be a better way to do it without using ImageReflect but this was the only way I manage to do it. If you have any good reference for learning Polygon and Texture manipulation, it will be deeply appreciated. Many thanks.

UPDATED: Here it is some improvement I managed to implement:

coord = CountryData["UnitedStates", "Coordinates"][[1]].{{-1, 0}, {0,1}}.{{0, -1}, {1, 0}};
Graphics[{Opacity[0.5], Texture[CountryData["UnitedStates", "Flag"]], Polygon[coord,VertexTextureCoordinates ->Transpose[{Rescale[coord[[All, 1]]], Rescale[coord[[All, 2]]]}]]}]

POSTED BY: Diogo Duarte

Gianluca Gorni

Gianluca Gorni, University of Udine

Posted 8 years ago

This needs some work, but it may get you started: coord = CountryData["UnitedStates", "SchematicCoordinates"][[1]]; Rotate[Graphics[{Texture[CountryData["UnitedStates", "Flag"]], Polygon[coord, VertexTextureCoordinates -> Transpose[{Rescale[coord[[All, 1]]], Rescale[coord[[All, 2]]]}]]}], Pi/2]

This needs some work, but it may get you started:

coord = CountryData["UnitedStates", "SchematicCoordinates"][[1]];
Rotate[Graphics[{Texture[CountryData["UnitedStates", "Flag"]], 
   Polygon[coord, 
    VertexTextureCoordinates -> 
     Transpose[{Rescale[coord[[All, 1]]], 
       Rescale[coord[[All, 2]]]}]]}], Pi/2]

POSTED BY: Gianluca Gorni

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Group Abstract

Feedback