// Entry code: axxrfz // Name : Pete Lozano // Frame rate: 15 // A longer more verbose version was not supplied // Here is the short code version #local c=clock;camera{location<1.4,1.7,2>/(2+2*c)look_at 0}#macro m(a,b)[a pigment{slope{<14,17,20>}pigment_map{[1/4rgbf 1][.8rgb 0]}}normal{agate scale.0001}finish{ambient b}]#end#local l=function(a){pow(cos(a),52)+1+cos(60*a)/33}#local w=1.1-c;#macro s()((x*x+y*y+z*z+w*w)/4))*#end#local h=function{1-pow(cos(9*c+abs(x)/s()cos(y/s()cos(z/s()1,32)}isosurface{function{3-l(x/s()l(y/s()l(z/s()l(w/s()1}max_gradient 70+c*420texture{function{pow(h(x,y,z)*h(y,x,z)*h(z,x,y),60)}texture_map{m(0,<5,3.36,2.2>)m(1,3)}}}