[Date Index] [Thread Index] [Author Index]

Re: Epilog/Prolog and Show Question

• To: mathgroup at smc.vnet.net
• Subject: [mg128142] Re: Epilog/Prolog and Show Question
• From: Roland Franzius <roland.franzius at uos.de>
• Date: Wed, 19 Sep 2012 04:54:18 -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: <k398tj$9ol$1@smc.vnet.net>

Am 18.09.2012 09:46, schrieb Dan O'Brien:
> 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}]]]
>


You have to update the Epilog option of Graphics aa.

If more than one optional replacement rule with the same option name but 
different values are applied, only the last one is used.

Graphics[
aa /.
   {HoldPattern[Epilog -> zz_] :>
    (Epilog -> {zz, Inset[Graphics[Disk[{.4, .4}]], Scaled[{.2, .2}]]})}
]

-- 

Roland Franzius