Re: Epilog/Prolog and Show Question
- To: mathgroup at smc.vnet.net
- Subject: [mg128154] Re: Epilog/Prolog and Show Question
- From: "djmpark" <djmpark at comcast.net>
- Date: Wed, 19 Sep 2012 04:58:19 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
- References: <22805949.1735.1347954137703.JavaMail.root@m06>
Dan,
It has to do with the strange way that Show combines Options from the
various plots. Put all of the Epilog material in a single Epilog in the Show
statement. Essentially, that Epilog preempts any of the Plot Epilogs.
bb = Plot[Sin[x], {x, 0, 30}]
Show[bb, Epilog -> {Inset[Graphics[Disk[{.4, .4}]], Scaled[{.2, .2}]],
Inset[Graphics[Circle[]]]}]
I'm not certain what your objective is with the graphics, but it could be
done much more simply and intuitively with the Presentations Application.
<<Presentations`
Draw2D[
{Draw[Sin[x], {x, 0, 30}],
Inset[Graphics[Disk[{.4, .4}]], Scaled[{.2, .2}]],
Inset[Graphics[Circle[]]]},
AspectRatio -> 1/GoldenRatio,
Frame -> True]
Or even more simply without Inset:
Draw2D[
{Draw[Sin[x], {x, 0, 30}],
Circle[{5 \[Pi], 0}, Offset[70]],
Disk[Scaled[{0.2, 0.2}], Offset[70]]},
AspectRatio -> 1/GoldenRatio,
Frame -> True]
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/index.html
From: Dan O'Brien [mailto:danobrie at gmail.com]
Can someone explain why Show drops the original Inset Circle[]? And how I
could make it not forget?
aa = Plot[Sin[x], {x, 0, 30}, Epilog -> Inset[Graphics[Circle[]]]] Show[aa,
Epilog -> Inset[Graphics[Disk[{.4, .4}]], Scaled[{.2, .2}]]]
bb = Plot[Sin[x], {x, 0, 30}, Epilog -> Inset[Graphics[Circle[]]]] Show[bb,
Epilog -> Inset[Graphics[Disk[{.4, .4}]], Scaled[{.2, .2}]]]