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