Guriguri Tower

R source

x = seq(-15, 15, length= 100)
y = x
f = function(x, y) { r = sqrt(x^2+y^2); 15 * sin(r)/r }
z = outer(x, y, f)
par3d(windowRect=c(100,100,800,800))
rgl.bg(color=c("lightcyan"))
persp3d(x, y, z, theta = 60, phi = 20,col = rainbow(50),xlim=c(-15,15))

Video

You must enable Javascript to view this page properly.


Drag mouse to rotate model. Use mouse wheel or middle button to zoom it.
Object written from rgl 0.97.0 by writeWebGL.