Re: Epilog/Prolog and Show Question

*To*: mathgroup at smc.vnet.net*Subject*: [mg128162] Re: Epilog/Prolog and Show Question*From*: E. Martín-Serrano <eMartinSerrano at telefonica.net>*Date*: Thu, 20 Sep 2012 00:23:06 -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

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 at comcast.net] Enviado el: mi=E9rcoles, 19 de septiembre de 2012 10:58 Para: mathgroup at 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 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}]]]