New in Wolfram Mathematica 6: Extended Graphics Language  previous | next 
Inset Graphics Anywhere
Mathematica 6 makes it easy to inset any graphic anywhere.
In[1]:=

Click for copyable input
Plot[Sin[x], {x, 0, 2 Pi}, 

 Epilog -> 

  Table[Inset[

    Graphics[{LightBlue, EdgeForm[Black], Disk[], Pink, 

      Disk[{0, 0}, 1, {0, x}]}, ImageSize -> 30], {x, Sin[x]}], {x, 0,

     2 Pi, Pi/6}], Frame -> True, PlotRangeClipping -> False]
Out[1]=