MathGroup Archive 2000

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

Search the Archive

Re: Problem with the Grapical Arrows

  • To: mathgroup at smc.vnet.net
  • Subject: [mg22641] Re: Problem with the Grapical Arrows
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Thu, 16 Mar 2000 09:10:57 -0500 (EST)
  • Organization: Universitaet Leipzig
  • References: <8an2f0$1v5@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

Show[] uses the options of the first argument and take only the
graphics data from the other arguments. Since Epilog is an option
to Plot[] only the first Epilog is used by Show[] all others are lost.

You can collect the epilogs of all your plots and make a combined epilog
with

Show[Sequence @@ #, Epilog -> (Epilog /. Last[#] & /@ #)] &[{plot1,
plot2}]

Hope that helps
  Jens


com3 at ix.netcom*NOSPAM*.com wrote:
> 
> Can someone help with this, I'm using ver 3.0 ?
> 
> I've produced 4 separate plots and have combined them into a single
> plot using the Show command.
> 
> I then need to annotate this plot and do so with the Text and Epilog
> commands. . .  so far so good.
> 
> I would now like to add an arrow to this plot but can't get it to
> work. See my code below.
> 
> Needs["Graphics`Arrow`"]
> Needs["Graphics`FilledPlot`"]
> Show[plot1,plot3,plot2,plot4,
> PlotRange->{{20000,52000},{0,.00014}},
> FrameTicks->{None,None,None,None},
> FrameLabel->{"xlabel",
>       "ylabel" },
> Epilog->{Text["A",Scaled[{.315,.97}]],
> Text["B",Scaled[{.62,.73}]],
> Text["C",Scaled[{.46,.36}]],
> Text["D",Scaled[{.55,.9}]],
> Text["E",Scaled[{.8,.8}]],
> Text["F",Scaled[{.65,.26}]],
> Arrow[{.9,.9},{.1,.1}]         }]
> 
> A couple of the plots are "filled" that's why
> Needs["Graphics`FilledPlot`"] is shown.
> 
> The plots 1 thru 4 and all text get rendered properly but the arrow
> simply doesn't appear. I also receive no error message whatsoever.
> It's as if an invisible arrow is being rendered.
> 
> Also, the following code works fine on my machine, but doesn't use the
> Show command.
> Plot[Sin[x], {x, 0, 2Pi},
>     Epilog -> {Arrow[{4, .25}, {Pi/2, 1}],
>      Text["Here", {4, .15}, {0, -1}]}]
> 
> What am I doing wrong ?
> 
> Much appreciation for any help.
> 
> Steve
> For any e-mail responses, please remove *NOSPAM* from my address.


  • Prev by Date: Re: [Q] Differential equation?
  • Next by Date: Re: Problem with the Grapical Arrows
  • Previous by thread: Re: Problem with the Grapical Arrows
  • Next by thread: Re: Problem with the Grapical Arrows