A few Demonstrations using ConvexHull3D no longer work. It was an undocumented feature of previous versions, and isn't in Version 10. So, how to do the same thing in version 10?
initpts = Union[N[Flatten[{Table[{Sin[x],Cos[x],0}, {x,0,2 Pi,2 Pi/50}],
Table[{Sin[x],0,Cos[x]} + {2,0,0}, {x,0, 2 Pi, 2 Pi/50}]}, 1]]];
meshobject = ConvexHullMesh[initpts];
pts = MeshCoordinates[meshobject];
polys = MeshCells[meshobject, 2];
Graphics3D[{EdgeForm[], GraphicsComplex[pts, polys]}, Boxed -> False,
SphericalRegion -> True, ImageSize -> {400, 400}]
The variables pts and polys are the vital items for GraphicsComplex.
Attachments:
