// Last edited on 2007-07-23 14:12:06 by stolfi
// Processed by remove-cam-lights

global_settings { max_trace_level 12 }

#declare tinta_xadrez =
  texture {
    pigment { checker color rgb <0.40,0.50,0.60>, color rgb <0.90,0.95,1.00> }
    finish { ambient 0.6 diffuse 0.4 }
  }

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

#declare raio = 2.000;
#declare roleta = seed(4615);

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

#declare tinta_B =
  texture {
    pigment { color rgb < 0.9, 0.9, 0.9 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }
#declare tinta_trans =
  texture {
    pigment { color rgb < 0.9, 0.9, 0.9 > filter 0.5 }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }

#declare tinta_ouro =
  texture {
    pigment { color rgb < 1.0, 0.8, 0 > }
    finish { diffuse 0.2  roughness 0.2 ambient 0.4 reflection 0.2 }
  }
#declare tinta_D =
  texture {
    pigment { color rgb < 0, 255, 255 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.5 ambient 0.1 }
  }
#declare no_corpo =
 sphere {
 < 0.0, 0.0, 0.0 >, 0.80
 texture {tinta_A}
}
#declare no_pernas =
 sphere {
 < 0.0, 0.0, 0.0 >, 1.10
 texture {tinta_A}
}

#declare coxa =
  cylinder {
      <0.00, 0.00, 0.00>,
      <6.00, 0.00, 0.00>,
      0.95
      texture {tinta_B}
 }

#declare canela =
 union {
  object {no_pernas translate<5.5, 0.0, 0.0>}
  cylinder {
      <0.00, 0.00, 0.00>,
      <6.00, 0.00, 0.00>,
      0.95
      texture {tinta_B}
 }
 }
#macro perna(alfa)
 union {
  object {canela rotate alfa*z translate 6*x}
  object {no_pernas translate 6*x}
  object {coxa}
  object {no_pernas}
 }
#end
#macro membro_inferior(mem_x, mem_y, joe_y)
 object {perna(joe_y) rotate<mem_x, mem_y, 0>}
#end

#declare biceps =
  cylinder {
      <0.00, 0.00, 0.00>,
      <4.00, 0.00, 0.00>,
      0.60
      texture {tinta_B}
 }

#declare antebraco =
 union {
  object {no_corpo translate<4.5, 0.0, 0.0>}
  cylinder {
      <0.00, 0.00, 0.00>,
      <4.00, 0.00, 0.00>,
      0.60
      texture {tinta_B}
 }
 }
#macro braco(alfa)
 union {
  object {antebraco rotate alfa*y translate 4*x}
  object {no_corpo translate 4*x}
  object {biceps}
  object {no_corpo}
 }
#end
#macro membro(mem_x, mem_y, cot_x)
 object {braco(cot_x) rotate<0, mem_y, mem_x>}
#end

#declare pescoco =
 cylinder {
    <0.00, 0.00, 7.60>,
    <0.00, 0.00, 8.80>,
    0.60
    texture {tinta_B}
}

#declare orelha_direita =
 cone {
    <0.0, 0.0, 10.0>, 1.5
    <3.0, 0.0, 13.0>, 0.0
    texture {tinta_A}
}

#declare orelha_esquerda =
 cone {
    <0.0, 0.0, 10.0>, 1.5
    <-3.0, 0.0, 13.0>, 0.0
    texture {tinta_A}
}

#declare cabeca =
 sphere {
 < 0.0, 0.0, 10.0 >, 2.00
 texture {tinta_B}
}

#declare corpo =
 box {
 < 2.5, -0.6, 7.6>
 < -2.5, 0.6,  2.2>
 texture {tinta_B}
}

union {
 object {orelha_direita}
 object {orelha_esquerda}
 object {cabeca}
 object {pescoco}
 object {corpo}
 object{membro(75, 50, -30) translate<2.5, 0, 7.4> }
 object{membro(0, 50, 30) translate<2.5, 0, 7.4> scale<-1,1,1> }
 object{membro_inferior(0, 70, -30) translate<2.2, 0, 2.2> }
 object{membro_inferior(0, 80, 0) translate<2.2, 0, 2.2> scale<-1,1,1> }
}

// Original camera parameters:
// #local cam_ctr = <0.00,0.00,2.00>
// #local cam_vec = (<20.00,26.00,20.00>-<0.00,0.00,2.00>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<0,0,2.5>,<7,10,3>,30.0,z,1.0)