powered by
helicoid(N=1000)
swissroll
dinisurface
spirals
require("rgl") x=helicoid() open3d() plot3d(x, col=rainbow(1050)[-c(1:50)],box=FALSE,type="s",size=1)
Run the code above in your browser using DataLab