New in Wolfram Mathematica 6: Extended Graphics Language ◄ previous | next ►
Place Any Graphic inside Any Other
Mathematica 6 lets you specify any position for any graphic—as well as interactively move it.
In[1]:=

Click for copyable input
With[{funs = {{(1 - #) &, .3}, {(#1^4) &, .8}, {(1 - #1^4) &, .65}, \

{(1 # &), .21}}}, 

 Plot[Evaluate[First[#][x] & /@ funs], {x, 0, 1}, 

  Epilog -> (Inset[

       ArrayPlot[

        1 - #1[ExampleData[{"TestImage", "Lena"}, "GrayLevels"]], 

        Frame -> False, PlotLabel -> #1[x]], {#2, #1[#2]}, 

       Center, .2] & @@@ funs)]]
Out[1]=