powered by
rgl.postscript( filename, fmt="eps" )
rgl.viewpoint
rgl.snapshot
# # create animation # for (i in 1:45) { rgl.viewpoint(i,20) print( paste("pic",formatC(i,digits=1,flag="0"),".eps",sep="") ) rgl.postscript(filename, fmt=eps) }
Run the code above in your browser using DataLab