if (FALSE) {
# Create new Viewer
svg.new(mode='webgl')
# Add object
svg.cylinder(ends=rbind(c(0,0,0), c(0,10,0)), radius=1, col='green')
# Add lights in four corners of the bounding box
svg.bboxLight(x=rbind(c(1,1,1), c(-1,1,1), c(-1,-1,-1), c(1,-1,-1)))
# Close connection
svg.close()
}
Run the code above in your browser using DataLab