ShadowPlot.
JavaView Snapshot | Mathematica Snapshot |
JavaView Applet | JavaView Lite Applet |
Plot shadows at the bounding box of a 3D surface. | In[1]:=
<<Graphics`Graphics3D` In[2]:= dbell = ParametricPlot3D[{Sin[t], Sin[2t] Sin[u], Sin[2t] Cos[u]}, {t, -Pi/2, Pi/2}, {u, 0, 2Pi}, Ticks -> None]; In[3]:= sa := Shadow[dbell, ZShadow -> False]; In[4]:= JavaView[sa] |