// Last edited on 2007-07-23 15:30:59 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 > }

plane { z, -6
  texture { tinta_xadrez }
}

#declare verde =
  texture {
    pigment { color rgb < 0.05 1 0.1 > }
    finish { diffuse 0.3 specular 0.3 roughness 0.005 ambient 0.1 reflection 0.1 }
  }

#declare preto =
  texture {
    pigment { color rgb < 0 0 0 > }
    finish { diffuse 0.4 specular 0.3 roughness 0.005 ambient 0.1 }
  }

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

#declare olho =
union {
 sphere { <0,0,0> 1 texture { verde }}
 sphere { <0.2,0.2,0> 0.8 texture { branco }}
 sphere { <0.42,0.42,0> 0.55 texture { preto }}
}

#declare tronco = sphere { <0,0,0> 5 scale 0.65*z texture { verde }}

#declare cabeca =
 difference {
  union {
   sphere { <4,4,1> 3 texture { verde }}
   object { olho rotate -40*z translate <5,3.5,4> }
   object { olho rotate 40*z translate <3.5,5,4> }
  }
  cylinder { <0, 0, 0>, < 3, 3, 0 >, 0.2 texture {preto} translate <6,5,1.5>  }
  cylinder { <0, 0, 0>, < 3, 3, 0 >, 0.2 texture {preto} translate <5,6,1.5>  }
  cylinder { <-4, -4, 0>, < 4, 4, 0 >, 0.15 texture {preto} rotate 90*z translate <6.05,6.05,0.5>  }
 }

#declare corpo =
union {
 object { tronco rotate 30*z }
 object { cabeca translate -0.5*z }
}

#macro mao()
 box { <-0.5,-1,0>, <1.5,1,0.4> }
#end

#macro antebraco(ang, tamBraco)
union{
 cone { <0, 0, 0>,0.6 <tamBraco, 0, 0 >, 0.5 }
 sphere { <tamBraco,0,0> 0.5 }
 object { mao() rotate ang*y translate (tamBraco+0.5)*x }
}
#end

#macro braco(angAnte, angMao, tamBraco)
union{
 cone { <0, 0, 0>, 0.8 < 3, 0, 0 >, 0.6 }
 sphere { <3,0,0> 0.6 }
 object { antebraco(angMao, tamBraco) rotate angAnte*y translate 3*x }
}
#end

#macro pata(angOmbro, angAnte, angMao, tamBraco)
union{
 sphere { <0,0,0> 0.8 }
 object { braco(angAnte,angMao,tamBraco) rotate angOmbro*y }
 texture {verde}
}
#end

#macro sapo(dirOmbro, esqOmbro, dirAnte, esqAnte, dirMao, esqMao, dirPerna, esqPerna, dirCoxa, esqCoxa, dirPe, esqPe)
union {
 object { corpo texture {verde} rotate 45*z}

 object { pata(dirOmbro,dirAnte,dirMao,1.5) scale 0.7 translate <3.7,3,-1.5> }
 object { pata(esqOmbro,esqAnte,esqMao,1.5) scale 0.7 scale <-1,0,0> translate <-3.7,3,-1.5> }

 object { pata(dirPerna,dirCoxa,dirPe,3.3) scale 1.8 translate <3.7,-3,0.5> }
 object { pata(dirPerna,dirCoxa,dirPe,3.3) scale 1.8 scale <-1,0,0> translate <-3.7,-3,0.5> }
}
#end

object { sapo(45,30,30,60,-55,-45,-20,-20,90,70,-50,-60) }

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = <-15.00,35.00,5.00>
// #local cam_sky = z

#include "camlight.inc"
camlight(<0,-2,-1>,<10,10,10>,33.0,z,1.0)