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.