// Last edited on 2009-10-10 19:04:50 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_madeira =
  texture{
    pigment{ color rgb < 1, 0, 0 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }
#declare tx_ferro =
  texture{
    pigment{ color rgb < 0.6, 0.6, 0.6 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 reflection 0.1*< 0.6, 0.6, 0.6 > }
  }
#declare tx_plastico =
  texture{
    pigment{ color rgb < 1,1,1 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 reflection 0.1*< 0.6, 0.6, 0.6 > }
  }

#declare tx_fosca =
  texture{
    pigment{ color rgb < 0.92,0.8,0.51 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

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

#macro galinha( a1, a2, a31, a41, a51, a32, a42, a52, a61, a71, a81, a62, a72, a82, a63, a73, a83, a64, a74, a84, a65, a75, a85, a66, a76, a86  )
        union {
                sphere { < 0,0,0 >, 2 scale < 0,0.3,0.3 > texture{ tx_fosca } }
                object{ pescoco( a1,a2 ) translate < -0.9,0.2,0 > }
                object{ asa( a31,a41,a51 ) translate < -0.5,0.3,0.6 > }
                object{ asa( a32,a42,a51 ) translate < -0.5,0.3,0.6 > scale < 1,1,-1 > }
                object{ perna( a61,a71,a81 ) translate < -1,-0.3,0.3 > }
                object{ perna( a62,a72,a82 ) translate < -1,-0.3,0.3 > scale < 1,1,-1 > }
                object{ perna( a63,a73,a83 ) translate < 0,-0.3,0.4 > }
                object{ perna( a64,a74,a84 ) translate < 0,-0.3,0.4 > scale < 1,1,-1 > }
                object{ perna( a65,a75,a85 ) translate < 1,-0.3,0.3 > }
                object{ perna( a66,a76,a86 ) translate < 1,-0.3,0.3 > scale < 1,1,-1 > }
        }
#end

#macro pescoco( a_pesco, a_cabe )
        union {
                cylinder { < 0,0,0 >, < 0,2,0 >, 0.1 texture{ tx_fosca } }
                sphere { < 0,0,0 >, 0.1 texture{ tx_fosca } }
                object { cabeca( a_cabe ) translate < 0,1.9,0 > }
        }
        rotate a_pesco*z
#end

#macro cabeca( a_cabe )
        union {
                sphere { < 0,0,0 >, 0.3 texture{ tx_fosca } }
                cone { < 0,0,0 > 0.1, < -0.15,0,0 > 0 translate < -0.29,0,0 > }
        }
        rotate a_cabe*y
#end

#macro asa( a_asa, a_asa_s, a_asa_s_s )
        union {
                box { < 0,0,0 >, < 1.3,-0.6,0.01 > texture{ tx_fosca } }
                object { asa_sub( a_asa_s, a_asa_s_s ) translate < 1.3,-0.6,0 > }
        }
        rotate a_asa*z
        rotate -a_asa*x
#end

#macro asa_sub( a_asa_s, a_asa_s_s )
        union {
                box { < 0,0,0 >, < -0.8,-0.3,0.01 > texture{ tx_fosca } }
                object { asa_sub_sub( a_asa_s_s ) translate < -0.8,-0.3,0 >}
        }
        rotate a_asa_s*z
#end

#macro asa_sub_sub( a_asa_s_s )
        union {
                box { < 0,0,0 >, < 0.4,-0.2,0.01 > texture{ tx_fosca } }
        }
        rotate -a_asa_s_s*z
#end

#macro perna( a_coxa, a_canela, a_pe )
        union {
                cylinder { < 0,0,0 >, < 0,-1,0 >, 0.1 texture{ tx_fosca } }
                object { perna_sub( a_canela, a_pe ) translate < 0,-1,0 > }
        }
        rotate a_coxa*z
#end

#macro perna_sub( a_canela, a_pe )
        union {
                cylinder { < 0,0,0 >, < 0,-0.7,0 >, 0.1 texture{ tx_fosca } }
                object { perna_sub_sub( a_pe ) translate < 0,-0.7,0 > }
        }
        rotate -a_canela*z
#end

#macro perna_sub_sub( a_pe )
        union {
                box { < 0,0,0 >, < 0.8,-0.08,0.2 > texture{ tx_fosca } translate < -0.5,0,0 > }
        }
        rotate a_pe*z
#end

union {
   // object{ eixos(4.00) }

        object{ galinha( 45,30,
                                                  30,30,30,45,45,35,
                                                  30,60,10,-30,-60,10,
                                                  45,70,20,-45,-70,20,
                                                  35,65,15,-35,-65,15  ) translate < 0,0,0 > }
        object{ galinha( 60,15,
                                                  40,35,45,35,50,30,
                                                  45,70,20,-45,-70,20,
                                                  -30,-60,10,30,60,10,
                                                  30,60,10,-30,-60,10  ) translate < 3,0,3 > }
        object{ galinha( 30,45,
                                                  35,40,50,30,30,45,
                                                  35,65,15,-35,-65,15,
                                                  45,70,20,-30,-60,10,
                                                  -30,-60,10,45,70,20  ) translate < -3,0,-3 > }
        // rotate 45*y

}

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = <0,0,23.00>
// #local cam_sky = y

#include "camlight.inc"
camlight(<0,0,0>,0.53*12.0,<-10,4,10>,1.5*12.0,y,1.2)