Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

RE: Re: Drawing a globe, with countries and great circle routes

  • To: mathgroup at smc.vnet.net
  • Subject: [mg48133] RE: [mg48123] Re: Drawing a globe, with countries and great circle routes
  • From: "Wolf, Hartmut" <Hartmut.Wolf at t-systems.com>
  • Date: Fri, 14 May 2004 20:58:49 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com
  • Thread-topic: [mg48123] Re: Drawing a globe, with countries and great circle routes

>-----Original Message-----
>From: AES/newspost [mailto:siegman at stanford.edu]
To: mathgroup at smc.vnet.net
>Sent: Friday, May 14, 2004 6:12 AM
>To: mathgroup at smc.vnet.net
>Subject: [mg48133] [mg48123] Re: Drawing a globe, with countries and great circle
>routes
>
>
>In article <c7ust3$q8g$1 at smc.vnet.net>,
> Yasvir Tesiram <yat at omrf.ouhsc.edu> wrote:
>
>> The closest such thing maybe the Miscellaneous`WorldPlot` package.
>> 
>> << Graphics`Colors`
>> 
>> countryColors[country_] := Switch[
>>      country,
>>      "Australia", Green,
>>      "USA", Blue,
>>      "Papua New Guinea", IndianRed,
>>      "Brazil", Gold,
>>      "Peru", LampBlack,
>>      _, GrayLevel[.6]
>>      ]
>> 
>> WorldPlot[{World, countryColors},
>>      WorldRotation -> {30, 45, 0}, WorldProjection -> Orthographic]
>
>Thanks much, works like a charm -- except there's a vertical 
>black line 
>running up the center of the plot, *over* the countries, that I've not 
>yet found out how to get rid of.
>
>

Dear Professor Siegman,

this works:

In[33]:=
niceCountries = 
    Flatten[{Oceania, SouthAmerica, NorthAmerica, Africa, Europe, Asia, 
        MiddleEast, "Cabinda", "Falkland Islands"}];

In[34]:=
WorldPlot[{niceCountries, countryColors},
  WorldRotation -> {30, 45, 0}, WorldProjection -> Orthographic]

In[35]:=
Complement[World, niceCountries]
Out[35]= {"Antarctica"}


That's the mucker! -- not quite unplausible for this projection, and considering that none is reponsible for that (unless oil will be found there).

WorldBackground doesn't work well either (it gradually degrades when adding Countries), perhaps on similar grounds.

Years ago I had a look into the package and saw that it deserves some refresh, yet that's not a weekend project.

--
Hartmut Wolf


  • Prev by Date: Plot rendering problem in linux
  • Next by Date: Re: Problems with Latex (Windows) and Mathematica 5.0
  • Previous by thread: Re: Drawing a globe, with countries and great circle routes
  • Next by thread: Interpretation of subscripts