Beautiful 3D interactive graphics with RGL (Opengl implementation in R)

Brief Description of the R code: 
The sole purpose of this code is to showcase some of the 3D interactive capabilities of R. It draws a set of 3D colorful cubes and polyhedrons which can be rotated, zoomed ...etc
R code: 
##############################################################################
# This code snippet draws a set of 3D cubes and polyhedrons using the rgl
# package
# Code contributed originally by Duncan Murdoch on a forum as an example
##############################################################################
x <- rep(1:5, each=25)
y <- rep(rep(1:5, each=5), 5)
z <- rep(1:5, 25)
shapelist3d(cube3d(), x,y,z, size=0.45, col=terrain.colors(125))
shapelist3d(list(tetrahedron3d(), cube3d(), octahedron3d(),
                  dodecahedron3d(), icosahedron3d()),
                  x,y,z, size=0.45, col=terrain.colors(125))

Created by Pretty R at inside-R.org