Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

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



  • Prev by Date: Re: Speed of VectorPlot3D... What is Rendering?
  • Next by Date: Re: How to solve the integrate problem
  • Previous by thread: Re: Epilog/Prolog and Show Question
  • Next by thread: Re: Epilog/Prolog and Show Question