// Entry code: cuogkf
// Frame rate: 10
// A longer more verbose version was not supplied
// Here is the short code version
#local s=seed(4);#macro r()rand(s)*8-4#end#local b=blob{#local c=99;#while(c>
0)cylinder{<r(),r(),r()>,<r(),r(),r()*2+9>,1,2}#local c=c-1;#end hollow}
object{b scale 1.3 pigment{rgb 1}normal{granite}finish{phong 1 phong_size 99}
}#macro T(l,d)#local a=trace(b,l,vrotate(x,y*c*36+36*clock));light_source{a d
fade_distance 1 fade_power 2}#end#local c=10;#while(c>0)T(y,blue 2)T(0,
red 2)T(-y,2-z-z)#local c=c-1;#end