// Last edited on 2009-10-07 13:53:43 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_plastico =
  texture{
    pigment{ color rgb < 0.10, 0.80, 1.00 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.2 roughness 0.005 }
  }

#declare tx_fosca =
  texture{
    pigment{ color rgb < 0.90, 0.90, 0.90 > }
    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_furo =
  texture{
    pigment{ color rgb < 0.10, 0.80, 1.00 > filter 0.70 }
    finish{ diffuse 0.01 ambient 0.02}
  }

#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_world =
   texture{
     pigment{ color rgb < 1.0, 1.0, 1.0 > }
     finish{ diffuse 0.01 ambient 0.02 }
   }

#declare raio = 2.000;

#macro galinha (a_pescoco, a_cabeca,
                a_coxa1e, a_canela1e, a_pe1e,
                a_coxa2e, a_canela2e, a_pe2e,
                a_coxa3e, a_canela3e, a_pe3e,
                a_coxa1d, a_canela1d, a_pe1d,
                a_coxa2d, a_canela2d, a_pe2d,
                a_coxa3d, a_canela3d, a_pe3d,
                a_asa_e, a_asa_posterior_e,
                a_asa_d, a_asa_posterior_d)

        union{
                sphere{
                        < 0.0, 0.0, 0.0 >,
                        3
                        scale < 2.5, 0.0, 0.0 >
                        texture { tx_fosca }
                }

                object{
                        pescoco_cabeca(a_cabeca)
                        rotate a_pescoco*y
                        translate < 5.5, 0.0, 2.25 >
                }

                object{
                        coxa_canela_pe(a_canela1e, a_pe1e)
                        rotate a_coxa1e*y
                        translate < 4.5, 2.75, -1.5 >
                }

                object{
                        coxa_canela_pe(a_canela2e, a_pe2e)
                        rotate a_coxa2e*y
                        translate < 0.0, 3.0, -1.5 >
                }

                object{
                        coxa_canela_pe(a_canela3e, a_pe3e)
                        rotate a_coxa3e*y
                        translate < -4.5, 2.75, -1.5 >
                }

                object{
                        coxa_canela_pe(a_canela1d, a_pe1d)
                        rotate a_coxa1d*y
                        translate < 4.5, -2.75, -1.5 >
                }

                object{
                        coxa_canela_pe(a_canela2d, a_pe2d)
                        rotate a_coxa2d*y
                        translate < 0.0, -3.0, -1.5 >
                }

                object{
                        coxa_canela_pe(a_canela3d, a_pe3d)
                        rotate a_coxa3d*y
                        translate < -4.5, -2.75, -1.5 >
                }

                object{
                        asa(a_asa_posterior_e, 1)
                        rotate < 0.0, a_asa_e, 15 >
                        translate < -3.0, 2.75, 1.5 >
                }

                object{
                        asa(a_asa_posterior_d, 0)
                        rotate < 0.0, a_asa_d, -15 >
                        translate < -3.0, -2.75, 1.5 >
                }
        }
#end

#macro pescoco_cabeca (a_cabeca)
        union{
                sphere{
                        < 0.0, 0.0, 0.0 >,
                        1
                        texture { tx_fosca }
                }

                cylinder{
                        < 0.0, 0.0, 0.0 >,
                        < 5.0, 0.0, 0.0 >
                        0.75
                        texture { tx_fosca }
                }

                sphere{
                        < 0.0, 0.0, 0.0 >,
                        1
                        translate 5.0*x
                        texture { tx_fosca }
                }

                object{
                        cabeca()
                        rotate a_cabeca*y
                        translate 7.5*x
                }
        }
#end

#macro cabeca ()
        union{
                sphere{
                        < 0.0, 0.0, 0.0 >,
                        1.75
                        texture { tx_fosca }
                }
                cone{
                        < 1.5, 0.0, 0.0 >,
                        0.75,
                        < 3.0, 0.0, 0.0 >,
                        0.00
                        translate < 0.0, 0.0, -0.25 >
                        texture { tx_fosca }
                }
        }
#end

#macro coxa_canela_pe (a_canela, a_pe)
        union{
                sphere{
                        < 0.0, 0.0, 0.0 >,
                        1
                        texture { tx_fosca }
                }

                cylinder{
                        < 0.0, 0.0, 0.0 >,
                        < 5.0, 0.0, 0.0 >
                        0.75
                        texture { tx_fosca }
                }

                object{
                        canela_pe (a_pe)
                        rotate a_canela*y
                        translate < 5.0, 0.0, 0.0 >
                }
        }
#end

#macro canela_pe (a_pe)
        union{
                sphere{
                        < 0.0, 0.0, 0.0 >,
                        1
                        texture { tx_fosca }
                }

                cylinder{
                        < 0.0, 0.0, 0.0 >,
                        < 5.0, 0.0, 0.0 >
                        0.75
                        texture { tx_fosca }
                }

                object{
                        pe ()
                        rotate a_pe*y
                        translate < 5.0, 0.0, 0.0 >
                }
        }
#end

#macro pe ()
        union{
                sphere{
                        < 0.0, 0.0, 0.0 >,
                        1
                        texture { tx_fosca }
                }

                sphere{
                        < 0.0, 0.0, 0.0 >,
                        0.5
                        scale < 2.0, 0.0, 0.0 >
                        translate < -1.0, 0.0, 0.5 >
                        texture { tx_fosca }
                }
        }
#end

#macro asa (a_asa_posterior, e)
        union{
                sphere{
                        < 0.0, 0.0, 0.0 >,
                        1
                        texture { tx_fosca }
                }

                cylinder{
                        < 0.0, 0.0, 0.0 >,
                        < 5.0, 0.0, 0.0 >
                        0.75
                        texture { tx_fosca }
                }

                object{
                        asa_posterior ()
                        #if (e = 1)
                                rotate < 0.0, a_asa_posterior, a_asa_posterior*2.4 >
                        #else
                                rotate < 0.0, a_asa_posterior, -a_asa_posterior*2.4 >
                        #end
                        translate < 5.0, 0.0, 0.0 >
                }
        }
#end

#macro asa_posterior ()
        union{
                sphere{
                        < 0.0, 0.0, 0.0 >,
                        1
                        texture { tx_fosca }
                }

                cone{
                        < 0.0, 0.0, 0.0 >,
                        0.75
                        < 10.0, 0.0, 0.0 >
                        0.0
                        texture { tx_fosca }
                }
        }
#end

union {

        object { galinha(       -60, 60,
                                100, -30, 90,
                                110, -30, 90,
                                120, -30, 90,
                                100, -30, 90,
                                110, -30, 90,
                                120, -30, 90,
                                15, 140,
                                15, 140 )
                        translate < 0.0, 0.0, 0.0 > }

        object { galinha(       -30, 90,
                                100, -90, 90,
                                110, -30, 90,
                                150, -150, 90,
                                100, -90, 90,
                                110, -30, 90,
                                150, -150, 90,
                                15, 140,
                                15, 140 )
                        rotate -60*y
                        translate < +15.0, -15.0, 0.0 > }

        object { galinha(       -60, 60,
                                100, -30, 90,
                                110, -30, 90,
                                120, -30, 90,
                                100, -30, 90,
                                110, -30, 90,
                                120, -30, 90,
                                15, 140,
                                15, 140 )
                        rotate -30*z
                        translate < -15.0, +15.0, 0.0 > }
}

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

#include "camlight.inc"
camlight(<0,0,0>,0.53*65.0,<10,10,10>,1.5*65.0,z,1.2)