Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: Epilog/Prolog and Show Question
Replies: 2   Last Post: Sep 20, 2012 12:38 AM

 Messages: [ Previous | Next ]
 E. Martin-Serrano Posts: 114 Registered: 9/5/08
Re: Epilog/Prolog and Show Question
Posted: Sep 20, 2012 12:38 AM

Dan,

As David says:

"Or even more simply without Inset".

his remark involves much more than code simplification, because as soon as
one goes beyond a toy, or even in small toys, 'Inset' induces a lot of
performance inconvenience when dealing with other dynamics stuff in the
graphics, (either the inset stuff being static or dynamic) and much more
when using locators. Particularly, in the case of locators I would avoid
mixing them with 'Inset' as much as possible, and even more if locators and
Bezier curves are to be put together.

As per the many times mentioned locators' issue, right now I am working on a
notebook (still a small toy) which does not work with locators but works
perfectly with 2D Sliders. It seems to indicate that the rest of the
construct is OK, otherwise it would not work with 'Slider2D' either.

I have experienced the 'Inset' issue with locators many times; as soon as
the inset stuff in the graphics is removed the problem mostly disappear.

E. Martin-Serrano

-----Mensaje original-----
De: djmpark [mailto:djmpark@comcast.net]
Enviado el: mi=E9rcoles, 19 de septiembre de 2012 10:58
Para: mathgroup@smc.vnet.net
Asunto: Re: Epilog/Prolog and Show Question

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@comcast.net
http://home.comcast.net/~djmpark/index.html

From: Dan O'Brien [mailto:danobrie@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}]]]

Date Subject Author
9/19/12 Bob Hanlon
9/20/12 E. Martin-Serrano