New in Wolfram Mathematica 7: Comprehensive Spline Support ◄ previous | next ►
Render Curved 3D Tubes
3D tubes fully support spline-curved paths, as well as varying radii and colors.
In[1]:=

Click for copyable input
SeedRandom[123]; GraphicsGrid[

 Table[pts = RandomReal[100, {20, 3}]; rad = RandomReal[{1, 5}, {20}];

  Graphics3D[{ColorData["HTML", "GoldenRod"], Specularity[White, 10], 

    Tube[BSplineCurve[pts], rad]}], {3}, {3}], 

 ImageSize -> {500, 500}]
Out[1]=