New in Wolfram Mathematica 6: Extended Graphics Language ◄ previous | next ►
Use Arbitrary Transparent Density Fields
Mathematica 6 lets you programmatically combine transparent graphics created from arbitrary functions in 2D and 3D.
In[1]:=

Click for copyable input
Graphics3D[{Yellow, Opacity[.7], PolyhedronData["SnubCube", "Faces"]},

  Boxed -> False, 

 Epilog -> 

  Inset[DensityPlot[Sin[x] Cos[y], {x, 0, 2 Pi}, {y, 0, Pi}, 

    ColorFunction -> (Opacity[#, Black] &), Frame -> None], Center, 

   Center, ImageScaled[{1, 1}]]]
Out[1]=