Re: a Graphic in a Graphic

*To*: mathgroup at smc.vnet.net*Subject*: [mg22339] Re: [mg22307] a Graphic in a Graphic*From*: BobHanlon at aol.com*Date*: Fri, 25 Feb 2000 21:13:30 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

In an Epilog or Prolog, use a Rectangle which is filled with the graphic. For example, red = RGBColor[1, 0, 0]; f[x_] := Sin[4*x]*BesselJ[0, x]; x1 = .75; x2 = .85; xmax = 1.25; y1 = -.15; y2 = .1; smallPlot = Plot[f[x], {x, x1, x2}, PlotRange -> {{x1, x2}, {y1, y2}}, PlotStyle -> red, AspectRatio -> 1.75/xmax, DisplayFunction -> Identity]; largePlot = Plot[f[x], {x, 0, xmax}, PlotStyle -> RGBColor[0, 0, 1], Epilog -> {red, Line[{{x1, y1}, {x1, y2}, {x2, y2}, {x2, y1}, {x1, y1}}], Rectangle[{x2, y2}, {xmax, 1.}, smallPlot]}, ImageSize -> {580, 360}]; Bob Hanlon In a message dated 2/24/2000 4:23:29 AM, andre at aflo4.ifw-dresden.de writes: >I'm running Mathematica 4.0 and want to create >a graphic into a graphic, but all I did up to day >doesn't work very well. >If I have a graphic object (e.g. a MultipleListPlot) >I want to put a small Plot into this Graphics >like one can do this with Legends or Text: > >Show[Graphics{MultipleListPlot[...],Text["...",{xPos.yPos}]}; > >instead of Text[] at xPos, yPos I want to put >a small Plot[...,{}, ImageSize-> {xSize,ySize}]; >in this Graphic. >