// Last edited on 2009-11-24 11:43:02 by stolfilocal
// Processed by remove-cam-lights

#macro eixo(ponta,cor,nome)
  union{
    sphere{ <0,0,0>, 0.02 }
    cylinder{ <0,0,0>, 0.91*ponta, 0.02 }
    cone{ 0.90*ponta, 0.06, ponta, 0.00 }
    texture{ pigment{ color rgb cor } finish{ ambient 0.5 diffuse 0.5 } }
  }
#end
#macro eixos(tamanho)
  union{
    object{ eixo( <tamanho,0,0>, <1.0,0.2,0.2>, "X") }
    object{ eixo( <0,tamanho,0>, <0.0,0.8,0.0>, "Y") }
    object{ eixo( <0,0,tamanho>, <0.3,0.3,1.0>, "Z") }
  }
#end

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

#declare tx_azul =
  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_branco =
  texture{
    pigment{ color rgb < 1.0, 1.0, 1.0 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_amarelo =
  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.90, 0.70 > }
    finish{ diffuse 0.1 reflection 0.8*< 1.00, 0.90, 0.70 > ambient 0.1 }
  }

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

#declare tx_laranja =
  texture{
    pigment{ color rgb < 1.0, 0.70 , 0.25 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

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

#declare raio = 3.300;

#declare cor1 = tx_branco
#declare cor2 = tx_azul
#declare cor3 = tx_laranja

#declare P1 = < 0.0,  0.0,  0.0 >;

#declare P2 = < 2.15, -0.7,  0.8 >;
#declare P3 = < 2.05,  1.0,  0.8 >;

#declare P4 = < 2.35,  0.0,  0.0 >;

#declare P5 = < 2.0, -0.5, -1.0 >;
#declare P6 = < 2.0,  0.5, -1.0 >;

#declare P7 = < 2.5, -3.5,  3.0 >;
#declare P8 = < 2.5,  3.5,  3.0 >;

#declare M1 = < 0.0, 0.0, 0.0 >;
#declare M2 = < 0.0, 3.0, 0.0 >;
#declare M3 = < 0.0, 7.0, 0.0 >;
#declare M4 = < 0.0, 14.5, 0.0 >;
#declare M5 = < 0.0, 14.5, 0.0 >;

#macro mamao_ou_anao ( F )
         blob {

               sphere { P1, 4.5 ,  F*(1.0) texture { cor2 } }
               sphere { P2, 0.2 ,  F*(2.0) texture { cor3 } }
               sphere { P3, 0.2 ,  F*(2.0) texture { cor3 } }
               sphere { P4, 0.15, F*(1.5) texture { cor1 } }
               cylinder { P5, P6  0.5, F*(1.0) texture { cor1 } }

               sphere { M1, 1.5, (1-F)*1.0 texture { cor3 } }
               sphere { M2, 4.5, (1-F)*2.0 texture { cor3 } }
               cylinder { M1, M2, 5.5, (1-F)*1.0 texture { cor3 } }
               sphere { M3, 1.5, (1-F)*1.0 texture { cor3 } }
               cylinder { M2, M3, 4.5, (1-F)*1.0 texture { cor3 } }
               sphere { M4, 3.0, (1-F)*-0.5 texture { cor3 } }
               cylinder { M3, M4, 3.5, (1-F)*1.0 texture { cor3 } }
               sphere { M5, 1.5, (1-F)*-0.2 texture { cor3 } }

               threshold 0.5
              }
#end

union{
  // object { eixos(15.0) }
  object { mamao_ou_anao (clock) }
  // object { mao() }
}

// Original camera parameters:
// #local cam_ctr = <0.00,0.00,2.00>
// #local cam_loc = (1.4* <18.00,7.00,3.50>)
// #local cam_vec = ((1.4* <18.00,7.00,3.50>)-<0.00,0.00,2.00>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<0.00,6.00,0.00>,12.000,<10,10,3>,20.0,z,1.2)