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

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

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

#declare tx_fosca =
  texture{
    pigment{ color rgb < 1.00, 0.80, 0.10 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_espelho =
  texture{
    pigment{ color rgb < 1.00, 0.85, 0.30 > }
    finish{ diffuse 0.2 reflection 0.7*< 1.00, 0.85, 0.30 > ambient 0.1 }
  }

#declare tx_vidro =
  texture{
    pigment{ color rgb < 0.85, 0.95, 1.00 > filter 0.70 }
    finish{ diffuse 0.03 reflection 0.25 ambient 0.02 specular 0.25 roughness 0.005 }
  }

#declare tx_xadrez =
  texture{
    pigment{ checker color rgb < 0.10, 0.32, 0.60 >, color rgb < 1.00, 0.97, 0.90 > }
    finish{ diffuse 0.9 ambient 0.1 }
    scale 2.0
  }

#declare tx_egg =
  texture{ pigment{color rgb <1, 1, 1>}
    normal {bumps 0.4 scale 0.01}
    finish {diffuse 0.9 phong 0.1}
  } // end of texture

#include "eixos.inc"

#macro cabeca ()
    union {
      sphere{
            < 0.00, 0.00, +5.00 >, 4.20
            texture{ tx_plastico }
      }
      cylinder{
            < 0.00, 0.00, 0.00 >,
            < 0.00, 0.00, +1.00 >,
            1.25
            texture{ tx_fosca }
      }
    }
#end

#macro pe ()

#end

#macro mao (mx, my, mz)
  union {
    sphere{
      <-0.50, 2.00, 4.00 >, 1.80
      texture{ tx_plastico }
    }
    sphere{
      <0.00, 3.00, 0.00 >, 4.20
      texture{ tx_plastico }
    }
    torus {
      3.00, 0.5 scale <1,1,1> rotate<0,0,0> translate<0,0,0>
      texture{
        pigment{color rgb<1,1,1>}
        normal {bumps 0.5 scale 0.15}
        finish {ambient 0.15 diffuse 0.55 phong 1}
      }
    } translate <mx, my, mz>
  }
#end
mao(5,5,5)

#macro braco ()
  cylinder {
    <0,0,0>,
    <0,10,0>,
    0.8
    open
    scale <1,1,1>
    rotate <0,0,0>
    translate <0,0,0>
    texture { tx_egg scale 4 }
  }
#end

braco()

#macro antebraco ()
#end

#macro perna ()
#end

#macro anteperna ()
#end

#declare Egg_upperpart =
  intersection{
    sphere{<0,0,0>, 7 scale<1,1.1,1.5>}

  }

#declare Egg_lowerpart =
  intersection{

  }

#declare Egg =
  union{
    object{Egg_upperpart }
    object{Egg_lowerpart}
    texture{tx_egg}
  }

#macro corpo ()
  object {
    Egg translate< 0,0,0>
  }
#end
corpo()

#macro coelho (mCabeca, mAntebraco, mBraco, mMao, mPerna, mAnteperna, mPe)

#end

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 0.00 >;
#declare raio_cena = 36.0;
#declare dir_camera = < 14.00, 7.00, 4.00 >;
#declare dist_camera = 32.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)