// Last edited on 2003-12-08 21:06:05 by stolfi
// Exemplo de arquivo de descricao de cena para POV-ray
// Last edited on 2000-09-21 20:06:05 by ra002388

#declare n=3;
#declare passo=clock*n*5;

background{ color rgb < 0.8, 1, 1 > }

light_source {
  < 0.00, 5000.00, 4000.00 >+passo*x
  color rgb 1.0 * < 1.00, 1.00, 1.00 >
}

light_source {
  < 4000.00, 5000.00, 0.00 >+passo*x
  color rgb 0.6 * < 1.00, 1.00, 1.00 >
}

#declare ctr = < n*n*1.4, 12, 0.00 > + passo*x;
#declare camDir = (< 5, 2.5, 5>*pow(n,1.8)) - (< n*n*1.4, 12, 0.00 >);

camera {
  location   ctr + 1.05*camDir
  right      1.20*x
  up         0.90*y
  sky        y
  look_at    ctr
}


#declare barata = texture {
  pigment { color rgb < 0.5, 0.25, 0.0 > }
  finish { diffuse 0.75 specular 0.5 roughness 0.005 ambient 0.1}
}

#declare pupila = texture {
  pigment { color rgb < 0, 0, 0.5 > }
  finish { diffuse 0.75 specular 0.5 roughness 0.005 ambient 0.1}
}

#declare olho = texture {
  pigment { color rgb < 1, 1, 0.0 > }
  finish { diffuse 0.75 specular 0.5 roughness 0.005 ambient 0.1 }
}

#declare s=seed(2388);
union {
#declare i=0;
#while (i<n)
  #declare j=-1;
  #while (j<2)
  #declare clocke=mod((clock+(mod(i+((j+1)/2),2))/2),1);
  #declare delta=90+30*sin(pi*clocke);
  #declare gama=70-70*sin(pi*clocke);
  #declare alfa=-30*sin(2*pi*clocke);
  #declare beta=-90-alfa;

  #declare perna4 = union {
    sphere {
      <0,0,0>,
      1.5
      texture { barata }
    }
    cone {
      <0,0,0>,1.5
      <0,0,10>,0
      texture { barata }
    }
    rotate delta*x
  }

  #declare perna3 = union {
    sphere {
      <0,0,0>,2
      texture { barata }
    }
    cone {
      <0,0,0>,2
      <0,0,15>,1.5
      texture { barata }
    }
    object { perna4 translate <0,0,15> }
    rotate gama*x
  }

  #declare perna2 = union {
    sphere {
      <0,0,0>,
      2.5
      texture { barata }
    }
    cone {
      <0,0,0>,2.5
      <0,0,15>,2
      texture { barata }
    }
    object { perna3 translate <0,0,15> }
    rotate beta*y
  }

  #declare perna = union {
    sphere {
      <0,0,0>,
      3
      texture { barata }
    }
    cone {
      <0,0,0>,3
      <0,0,20>,2.5
      texture { barata }
    }
    object { perna2 translate <0,0,20> }
    rotate 30*x
    rotate alfa*y
  }
  object { perna scale n/8 translate <i*3*n,0,n*2.3> scale <1,1,j>}
  #declare j=j+2;
  #end
  #declare i=i+1;
#end

union {
  intersection {
    sphere {
      <0,-0.5,0>,1
      scale <n*n*2.4,n*4,n*4>
      translate <n*n*1.5,0,0>
      texture { barata }
    }
    sphere {
      <0,0.5,0>,1
      scale <n*n*2.4,n*4,n*4>
      translate <n*n*1.5,0,0>
      texture { barata }
    }
  }
  sphere {
    <n*n*2.7,n*1.6,n*1.6>,n
    texture { olho }
  }
  sphere {
    <n*n*2.7,n*1.6,-n*1.6>,n
    texture { olho }
  }
  sphere {
    <n*n*2.7+0.8*n*abs(cos(0.1*pi*sin(clock*2*pi))),n*1.6,n*1.6+n*0.8*sin(-0.1*pi*sin(clock*2*pi))>,n/2.5
    texture { pupila }
  }
  sphere {
    <n*n*2.7+0.8*n*abs(cos(0.1*pi*sin(clock*2*pi))),n*1.6,-n*1.6+n*0.8*sin(-0.1*pi*sin(clock*2*pi))>,n/2.5
    texture { pupila }
  }
  cylinder {
    <n*n*2.4,n*1.6,n*1.6>,
    <n*n*3,n*5,n*3>,
    1
    texture {barata}
  }
  sphere {
    <n*n*3,n*5,n*3>,2
    texture { barata}
  }
  cylinder {
    <n*n*2.4,n*1.6,-n*1.6>,
    <n*n*3,n*5,-n*3>,
    1
    texture {barata}
  }
  sphere {
    <n*n*3,n*5,-n*3>,2
    texture { barata}
  }
}
translate <passo,(10-1.2*pow(sin(2*(clock+0.1)*pi+pi/2),2))*n/3,0>
}

#declare toalha = texture { pigment { checker color <1,0,0>, color <0,1,0>, scale 2.5*n } }

plane { y, 0
        texture { toalha }
}