// Last edited on 2007-07-23 15:16:20 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 tinta_Verde =
  texture {
    pigment { color rgb < 0.00, 1.0, 0.00 > }
    finish { diffuse 0.3 specular 0.5 roughness 0.005 ambient 0.2 }
  }

#declare tinta_Branca =
  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_Preta =
  texture {
    pigment { color rgb < 0.00, 0.00, 0.00 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }

#declare chao =
  plane { z, 0
    translate -0.4*z
    texture { tinta_xadrez }
  }

#declare boca =
    torus {
        0.75, 0.2
 scale 2*x
        rotate ( 90 * x )
 texture { tinta_Preta }
    }

#declare olho =
     union {
 sphere { < 0.00, 0.00, 0.00 >, 0.55
   texture{ tinta_Verde }
        }
 sphere { < 0.00, 0.00, 0.00 >, 0.5
   translate < 0.00, 0.1, 0.0 >
                 texture{ tinta_Branca }
        }
 sphere { < 0.00, 0.00, 0.00 >, 0.3
   translate < 0.00, 0.42, 0.0 >
   texture{ tinta_Preta }
        }
     }

#declare corpo =
     union {
 sphere { < 0.00, 0.00, 0.00 >, 2.5
                 scale 2*y
                 texture{ tinta_Verde }
        }

 sphere { < 0.00, 0.00, 0.00 >, 1.5
   translate < 0.00, 3.5, 0.0 >
                 scale 1.8*x
   scale 1.3*y
   texture{ tinta_Verde }
        }
 object { olho translate <0.85, 6.3 0.8> }
 object { olho translate <-0.85, 6.3 0.8> }
 object { boca translate <0.0, 9.1 -3.5> }
     }

#macro mao ()
     sphere { < 0.00, 0.00, 0.00 >, 0.5
        scale 2*y
        texture{ tinta_Verde }
     }
#end

#macro anteBraco ( angMao )
 union {
      cone { < 0.00, 0.00, 0.00 >, 0.3
      < 0.00, 2.00, 0.00 >, 0.2 }

      sphere { < 0.00, 0.00, 0.00 >, 0.3
   texture{ tinta_Verde }
             }
      object { mao() rotate angMao*x translate <0.0, 2.0, 0.0> }
      texture{ tinta_Verde }
 }

#end

#macro braco ( angMao, angAnte )
 union {
  object { anteBraco(angMao) rotate -angAnte*x translate <0.0, 3.0, 0.0> }
  cone { < 0.00, 0.00, 0.00 >, 0.4
                       < 0.00, 3.00, 0.00 >, 0.3
                }
  sphere { < 0.00, 0.00, 0.00 >, 0.5 }
  texture{ tinta_Verde }
 }
#end

#macro bracoInteiro ( angMao, angAnte, angBraco, angLatBraco )
 object { braco ( angMao, angAnte ) rotate angBraco * x rotate angLatBraco * z}
#end

#declare corpo =
     union {
 sphere { < 0.00, 0.00, 0.00 >, 2.5
                 scale 2*y
                 texture{ tinta_Verde }
        }

 sphere { < 0.00, 0.00, 0.00 >, 1.5
   translate < 0.00, 3.5, 0.0 >
                 scale 1.8*x
   scale 1.3*y
   texture{ tinta_Verde }
        }
 object { olho translate <0.85, 6.3 0.8> }
 object { olho translate <-0.85, 6.3 0.8> }
 object { boca translate <0.0, 9.1 -3.5> }
     }

#macro sapo ( angMaoT, angAnteT, angBracoT, angLatBracoT, angMaoF, angAnteF, angBracoF, angLatBracoF )
union {
object { corpo
 scale 0.7*x
 scale 0.7*y
 scale 0.7*z
 rotate 30*x
        translate <0.0, 1.0, 4 >}

object { bracoInteiro(angMaoT, angAnteT, angBracoT, -angLatBracoT) translate <0.8, 0, 2.0> }
object { bracoInteiro(angMaoT, angAnteT, angBracoT, angLatBracoT) translate <-0.8, 0, 2.0> }
object { bracoInteiro(angMaoF, angAnteF, angBracoF, -angLatBracoF) scale 0.4 translate <1.5, 3.0, 4.5> }
object { bracoInteiro(angMaoF, angAnteF, angBracoF, angLatBracoF) scale 0.4 translate <-1.5, 3.0, 4.5> }
object {chao}
}
#end

object {sapo(90, 75,0, 60, 90, 60, 0, 20) }

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

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