MathGroup Archive 2003

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

Search the Archive

RE: Something strange with Show.

  • To: mathgroup at smc.vnet.net
  • Subject: [mg40970] RE: [mg40952] Something strange with Show.
  • From: "David Park" <djmp at earthlink.net>
  • Date: Sat, 26 Apr 2003 03:24:59 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Stepan,

The regular method of combining graphics is often full of little suprises.
It is a matter of what options are being picked up from what plots. Maybe
someone will show you the standard way to do it.

In the meantime, you may want to try the DrawGraphics package from my web
site below. It was specifically designed to make it easy to combine graphics
from different plot types and mix them with standard graphics directives and
graphics primitives.

For your case the following works in DrawGraphics.

Needs["DrawGraphics`DrawingMaster`"]

Draw2D[
{DensityDraw[Exp[-x^2 - y^2], {x, -10, 10}, {y, -10, 10},
     Mesh -> False, PlotPoints -> 180, PlotRange -> {0, 1}],
 White,
 Circle[{0, 0}, 1]},
 AspectRatio -> Automatic,
 Frame -> True,
 ImageSize -> 500];

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/



From: Stepan Yakovenko [mailto:yakovenko at ngs.ru]
To: mathgroup at smc.vnet.net

HI!

  I want to get two graphics objects combined. DensityPlot and a
  Circle.

\!\(dp = DensityPlot[
      Exp[\(-x\^2\) - y\^2], {x, \(-10\), 10}, {y, \(-10\), 10},
      Mesh \[Rule] False, PlotPoints \[Rule] 180, PlotRange \[Rule] {0,
1}]\)

  it works.

  But this doesn't work as expected, evalute to take a look:

  Show[dp, Graphics[{Circle[{0, 0}, {1, 1}], RGBColor[1, 1, 1]}]]

  Why is it so prolated ?


--
Best regards,
 Stepan                          mailto:yakovenko at ngs.ru




  • Prev by Date: Re: Re: Condition/constraint problem
  • Next by Date: Re: Re: solving 3 eqns and 3 unkwns
  • Previous by thread: Re: Something strange with Show.
  • Next by thread: RE: Something strange with Show.