// Last edited on 2019-07-17 10:11:16 by stolfilocal
// Processed by remove-cam-lights

#include "pontos.inc"

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

#declare Yellow = rgb<255, 255, 0>;
#declare Black =  rgb < 0.4, 0.4, 0.4 >;

#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 esfera =
        sphere {
                < 0, 0,  0>, 0.25 // Near lower left corner
                 texture{ tx_plastico }
        }

#include "eixos.inc"

object{ eixos(3.00) }

#macro Pe(L1)
        cylinder{
                <0,0,0>,
                <0,L1,0>,
                0.5
                texture{tx_plastico}
        }
#end

#macro canelaPe(L1, L2, al)
        union{
                object{ Pe(L1) rotate<al,0,0> translate<0,L2,0>}
                object{
                        sphere{
                                < 0.00, L2, 0.00 >, 0.5
                                texture{ tx_plastico }
                        }
                }
                object{
                        cylinder{
                                <0,0,0>,
                                <0,L2,0>,
                                0.5
                                texture{tx_plastico}
                        }
                }
        }
#end

#macro perna(L1, L2, L3, al, be)
        union{
                object{canelaPe(L1, L2, al) rotate<be-90,0,0> translate<0, L3, 0>}
                object{
                        sphere{
                                < 0.00, L3, 0.00 >, 0.5
                                texture{ tx_plastico }
                        }
                }
                object{
                        cylinder{
                                <0,0,0>,
                                <0,L3,0>,
                                0.5
                                texture{ tx_plastico }
                        }
                }
        }
#end

#macro pessoa(L1, L2, L3, al, be, ga)
        union{
                object{perna(L1, L2, L3, al, be) rotate<(ga-90),0,0>}
        }
#end

#declare angal = 90;
#declare angbe = 30;
#declare angga = 30;
object{pessoa(1, 2, 4, angal, angbe, angga)}

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