Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Epilog/Prolog and Show Question

• To: mathgroup at smc.vnet.net
• Subject: [mg128158] Re: Epilog/Prolog and Show Question
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Wed, 19 Sep 2012 04:59:39 -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: <20120918074039.1EEE66847@smc.vnet.net>

Options given in Show will override options in the enclosed graphics.
Use both Epilog and Prolog together.

aa = Plot[Sin[x], {x, 0, 30},
   PlotStyle -> Lighter[Blue],
   Epilog -> Inset[Graphics[{Red, Circle[]}]]];
Show[aa,
 Prolog -> Inset[Graphics[Disk[{.4, .4}]],
   Scaled[{.2, .2}]]]

Plot[Sin[x], {x, 0, 30},
 PlotStyle -> Lighter[Blue],
 Epilog -> Inset[Graphics[{Red, Circle[]}]],
 Prolog -> Inset[Graphics[Disk[{.4, .4}]],
   Scaled[{.2, .2}]]]

bb = Plot[Sin[x], {x, 0, 30},
   PlotStyle -> Lighter[Blue],
   Prolog -> Inset[Graphics[{Red, Circle[]}]]];
Show[bb,
 Epilog -> Inset[Graphics[Disk[{.4, .4}]],
   Scaled[{.2, .2}]]]

Plot[Sin[x], {x, 0, 30},
 PlotStyle -> Lighter[Blue],
 Prolog -> Inset[Graphics[{Red, Circle[]}]],
 Epilog -> Inset[Graphics[Disk[{.4, .4}]],
   Scaled[{.2, .2}]]]


Bob Hanlon


On Tue, Sep 18, 2012 at 3:40 AM, Dan O'Brien <danobrie at gmail.com> wrote:
> 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}]]]
>

• References:
  • Epilog/Prolog and Show Question
    • From: Dan O'Brien <danobrie@gmail.com>