// Last edited on DATE TIME by USER
// Processed by remove-cam-lights

background{ color rgb < 0.75, 0.80, 0.85 > }

#declare raio = 2.000;

#declare tinta_azul =
  texture {
    pigment { color rgb < 0.10, 0.80, 1.00 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }

#declare tinta_ouro =
  texture {
    pigment { color rgb < 1.00, 0.80, 0.10 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.2 reflection 0.2}
  }

#declare tinta_rubi =
  texture {
    pigment { color rgb < 1.00, 0.00, 0.00 > filter 0.2}
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }

#declare tinta_diamante =
  texture {
    pigment { color rgb < 1.00, 1.00, 1.00 > filter 1.0}
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }

#declare tinta_esmeralda =
  texture {
    pigment { color rgb < 0.00, 1.00, 0.00 > filter 1.0}
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }

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

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

#declare tinta_marfim =
  texture {
    pigment { color rgb < 1.00, 1.00, 1.00 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.2 reflection 0.2}
  }

#declare cabeca =
  union {
 sphere {
 < 0.00, 0.00, 2.35 >, 1.00
 texture {tinta_marfim}
 }
 sphere {
 < 0.70, 0.70, 1.85 >, 0.25
 texture {tinta_preto}
 }
 sphere {
 < 0.40, 0.90, 2.15 >, 0.15
 texture {tinta_rubi}
 interior {ior 2.417}
 }
 sphere {
 < 0.90, 0.40, 2.15 >, 0.15
 texture {tinta_rubi}
 interior {ior 2.417}
 }
 sphere {
 < 1.30, 0.40, 2.85 >, 0.5
 texture {tinta_preto}
 interior {ior 2.417}
 }
 sphere {
 < 0.40, 1.30, 2.85 >, 0.5
 texture {tinta_preto}
 interior {ior 2.417}
 }
}

#macro mao()
cylinder {
 <0.9,0,0>,
 <0,0,0>,
 0.45
 texture {tinta_marfim}
 }

#end

#macro punho(pun_ang)
union{
 sphere {
  < 0.00, 0.00, 0.00 >, 0.45
  texture {tinta_branco}
 }
 object {
  mao()
  rotate pun_ang*z
  translate 0.45*x
 }

}
#end

#macro braco(pun_ang)
union {
 cylinder {
  <0.8,0,0>,
  <0,0,0>,
  0.45
  texture {tinta_marfim}
  }

 object {
  punho(pun_ang)
  translate 0.8*x
 }
}
#end

#macro ombro(pun_ang, omb_ang)
union {
 sphere {
  < 0.00, 0.00, 0.00 >, 0.45
  texture {tinta_branco}
 }

 object {
  braco(pun_ang)
  rotate omb_ang*z
  rotate 45*y
  translate 0.45*x
 }
}
#end

#macro pe()
cylinder {
 <0.9,0,0>,
 <0,0,0>,
 0.45
 texture {tinta_marfim}
 }

#end

#macro tornozelo(tor_ang)
union{
 sphere {
  < 0.00, 0.00, 0.00 >, 0.45
  texture {tinta_branco}
 }
 object {
  pe()
  rotate tor_ang*z
  translate 0.45*x
 }
}
#end

#macro perna(pun_ang)
union {
 cylinder {
  <0.8,0,0>,
  <0,0,0>,
  0.45
  texture {tinta_marfim}
  }

 object {
  tornozelo(tor_ang)
  translate 0.8*x
 }
}
#end

#macro coxa(tor_ang, cox_ang)
union {
 sphere {
  < 0.00, 0.00, 0.00 >, 0.45
  texture {tinta_branco}
 }

 object {
  perna(tor_ang)
  rotate cox_ang*z
  translate 0.45*x
 }
}
#end

#macro membros(pun_ang, omb_ang, tor_ang, cox_ang)
union {

 object {
  ombro(pun_ang, omb_ang)
  rotate -45*x
  translate 0.7*z
  translate 1.5*x
 }

 object {
  coxa(tor_ang, cox_ang)
  rotate 45*y
  translate -1.3*z
  translate 1.5*x
 }

}
#end

#declare barriga =
sphere {
< 0.00, 0.00, 0 >, 1.5
texture {tinta_marfim}
}

#macro supermouse(p_e,o_e,t_e,c_e,p_d,o_d,t_d,c_d)
union {
 object {
 cabeca
 rotate 45*z
 }
 object {barriga}
 object {
  membros(p_e,o_e,t_e,c_e)
 }
 object {
  membros(p_d,o_d,t_d,c_d)
  scale <-1,1,1>
 }

}
#end

#declare tempo = clock;
#declare A11 = 60*sin(360 + tempo*90);
#declare A21 = 30 + 60*sin(360 + tempo*90);
#declare A31 = 80*cos(360 + tempo*90);
#declare A41 = 60*cos(360 + tempo*90);
#declare A51 = 60*cos(360 + tempo*90);
#declare A61 = 30 + 60*cos(360 + tempo*90);
#declare A71 = 80*sin(360 + tempo*90);
#declare A81 = 60*sin(360 + tempo*90);

#declare ttx = 0*tempo;
#declare tty = 0*tempo;

object {
 supermouse(A11,A21,A31,A41,A51,A61,A71,A81)
 translate 2*x
 translate -2*y
 rotate 180*z
 translate <ttx,tty,0>
}

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = <10.00,0.00,0.00>
// #local cam_sky = z

#include "camlight.inc"
// camlight(<0,0,0>,<10,10,10>,20.0,z,1.0)
camlight(<0,2,0>,<10,10,10>,23.0,z,1.0)