// Last edited on 2009-11-23 22:55:11 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_1 =
  texture{
    pigment{ color rgb < 1, 1, 1 > }
    finish{ diffuse 0.9 ambient 0.5 specular 0.5 roughness 0.005 }
  }

#declare mamao =
blob
{
        sphere {<0, 0, 2>, 4, 1 scale <1, 1, 1.2>}
        sphere {<0, 0, 5>, 2, 0.5}

        #declare s = 0.4;
        #declare h = 5.7;
        #declare r = 0.5;
        #declare p = 0.2;
        sphere {<s*cos(0*pi/3), s*sin(0*pi/3), h>, r, p}
        sphere {<s*cos(1*pi/3), s*sin(1*pi/3), h>, r, p}
        sphere {<s*cos(2*pi/3), s*sin(2*pi/3), h>, r, p}
        sphere {<s*cos(3*pi/3), s*sin(3*pi/3), h>, r, p}
        sphere {<s*cos(4*pi/3), s*sin(4*pi/3), h>, r, p}
        sphere {<s*cos(5*pi/3), s*sin(5*pi/3), h>, r, p}
        sphere {<0, 0, 6>, 0.5, -0.1}

        sphere {0, 0.9, 0.1}
        sphere {<0, 0, -0.5>, 0.7, -0.2 scale <1, 1, 1.5>}

        threshold 0.5
        texture {tx_1}
}

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

#declare azul =
  texture{
    pigment{ color rgb 3*< 0, 0, 1 > }
    finish{ diffuse 0.9 ambient 0.5 specular 0.5 roughness 0.005 }
  }

#declare vermelho =
  texture{
    pigment{ color rgb < 1, 0, 0 > }
    finish{ diffuse 0.9 ambient 0.9 specular 0.5 roughness 0.005 }
  }

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

#macro mamao_ou_anao(f)
blob
{

        sphere {<0, 0, 2>, 4, 1*f scale <1, 1, 1.2> texture {laranja}}
        sphere {<0, 0, 5>, 2*f, 0.5 texture {laranja}}

        #declare s = 0.4;
        #declare h = 5.7;
        #declare r = 0.5;
        #declare p = 0.2*f;
        sphere {<s*cos(0*pi/3), s*sin(0*pi/3), h>, r, p texture {laranja}}
        sphere {<s*cos(1*pi/3), s*sin(1*pi/3), h>, r, p texture {laranja}}
        sphere {<s*cos(2*pi/3), s*sin(2*pi/3), h>, r, p texture {laranja}}
        sphere {<s*cos(3*pi/3), s*sin(3*pi/3), h>, r, p texture {laranja}}
        sphere {<s*cos(4*pi/3), s*sin(4*pi/3), h>, r, p texture {laranja}}
        sphere {<s*cos(5*pi/3), s*sin(5*pi/3), h>, r, p texture {laranja}}
        sphere {<0, 0, 6>, 0.5, -0.1*f texture {laranja}}

        sphere {0, 0.9, 0.1*f texture {laranja}}
        sphere {<0, 0, -0.5>, 0.7, -0.2*f scale <1, 1, 1.5> texture {laranja}}

        sphere {0, 10, 1*(1-f) texture {amarelo}}

        sphere {<5*(1-f), 0, 0>, 0.8, 1*(1-f) rotate <0, -20, -20> texture {azul}}
        sphere {<5*(1-f), 0, 0>, 0.8, 1*(1-f) rotate <0, -20, +20> texture {azul}}

        sphere {<5*(1-f), 0, 0>, 1, 1*(1-f) texture {amarelo}}

        #local p1 = <5*cos(-pi/9)*(1-f), 5*sin(-pi/9)*(1-f), 0.0001>;
        #local p2 = <5*cos(pi/9)*(1-f), 5*sin(pi/9)*(1-f), -0.0001>;
        cylinder {p1, p2, 1, -0.5*(1-f) rotate <0, 20, 0> texture {vermelho}}

        threshold 0.5
}
#end

object{ mamao_ou_anao((1+cos(2*clock*pi))/2) }

// object{ eixos(10) }

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_loc = (2*<7,1,1>)
// #local cam_vec = (2*<7,1,1>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<0,0,0>,11.000,<10,5,2>,20.0,z,1.2)