| 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]
|
