
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. MartinSerrano
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}]]]

