New in Wolfram Mathematica 7: Built-in Image Processing & Analysis ◄ previous | next ►
Enhance Informational Graphics Using Image Processing
In[1]:=

Click for copyable input
DropShadow[x_, ds_: {-6, 9}] := 

 Graphics[{Inset[ImageAdjust[Blur[x, 4], {0, 0, 1.5}], Center, 

    Offset[ds, ImageScaled[{.5, .5}]], Scaled[{1, 1}]], 

   Inset[x, Center, Center, Scaled[{1, 1}]]}]
In[2]:=

Click for copyable input
DropShadow[

 Plot[Evaluate[Table[BesselJ[n, x], {n, 5}]], {x, 0, 10}, 

  PlotStyle -> {Red, Green, Blue, Yellow, Orange}]]
Out[2]=