Services & ResourcesWolfram ForumsMathGroup Archive

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

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

• To: mathgroup at smc.vnet.net
• Subject: [mg48148] Re: Drawing a globe, with countries and great circle routes
• From: adam.smith at hillsdale.edu (Adam Smith)
• Date: Fri, 14 May 2004 20:59:04 -0400 (EDT)
• References: <200405080523.BAA11630@smc.vnet.net> <c7ust3$q8g$1@smc.vnet.net> <c81hmd$4tc$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

To get rid of the vertical black line add the directive WorldFrame->None

In[1]:=
<<Graphics`Colors`

In[2]:=
<<Miscellaneous`WorldPlot`

In[3]:=
countryColors[country_] := 
  Switch[  country,  "Australia", Green,  "USA", Blue,  "Papua New Guinea", 
    IndianRed,  "Brazil", Gold,  "Peru", LampBlack,  _, GrayLevel[.6]  ] 

In[4]:=
WorldPlot[{World,countryColors},WorldProjection -> Orthographic,
    WorldRotation ->{30,45,0},WorldFrame -> None];


Adam Smith


AES/newspost <siegman at stanford.edu> wrote in message news:<c81hmd$4tc$1 at smc.vnet.net>...
> 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.

• References:
  • Drawing a globe, with countries and great circle routes
    • From: AES/newspost <siegman@stanford.edu>