// Entry code: ombpes
// Name      : Bill Pragnell
// Frame rate: 25
#local a = -48;
#local b = -48;

light_source { 99-198*z, rgb 1 }

union {
 #while (b <= 48)
  #while (a <= 48)
   superellipsoid {
    <.2, .2> scale 1+2*y
    #local c = sqrt(a*a + b*b)/6;
    pigment { rgb <(cos(c)+1)/2, (sin(c)+1)/2, (sin(4*c)+1)/2> }
    finish { phong 1 phong_size 75 }
    translate <a, 3*sin((.99*clock*2*pi)-sqrt(a*a+b*b)/3)-3, b> }
    #local a = a + 2;
  #end
  #local a = -48;
  #local b = b + 2;
 #end
 rotate .99*90*clock*y
 rotate -45*x
 translate z*20 }

fog { rgb <1, .9, .7> distance 75 }