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: Drawing a globe, with countries and great circle routes

  • To: mathgroup at smc.vnet.net
  • Subject: [mg48123] Re: Drawing a globe, with countries and great circle routes
  • From: AES/newspost <siegman at stanford.edu>
  • Date: Fri, 14 May 2004 00:12:22 -0400 (EDT)
  • References: <200405080523.BAA11630@smc.vnet.net> <c7ust3$q8g$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

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.


  • Prev by Date: Maclaurin Series
  • Next by Date: Gauss Egregium theorem
  • Previous by thread: Re: Drawing a globe, with countries and great circle routes
  • Next by thread: Re: Drawing a globe, with countries and great circle routes