powered by
rgl.ellipsoids(positions, sizes, angles, colour = "red", ...)
rgl.ellipsoid
cl <- helix(0.5, 1, 36, delta=pi/6, n.smooth=1e3) sizes <- equal_sizes(0.04,0.02,0.02,NROW(cl$positions)) ## Not run: require(rgl) ; rgl.ellipsoids(cl$positions, sizes, cl$angles, col="gold")
Run the code above in your browser using DataLab