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

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.5 roughness 0.005 }
  }

#declare tx_fosca =
  texture{
    pigment{ color rgb < 1.00, 0.80, 0.10 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_peca =
  texture{
    pigment{ color rgb < 0.5, 0.5, 0.5 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_espelho =
  texture{
    pigment{ color rgb < 1.00, 0.85, 0.30 > }
    finish{ diffuse 0.2 reflection 0.7*< 1.00, 0.85, 0.30 > ambient 0.1 }
  }

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

#declare tx_xadrez =
  texture{
    pigment{ checker color rgb < 0.0, 0.0, 0.0 >, color rgb < 1.00, 0.97, 0.90 > }
    finish{ diffuse 0.9 ambient 0.1 }
    scale 1.0
  }

#include "eixos.inc"

#declare raio = 1;
#declare altura = 4;
#declare tx = tx_fosca
#declare artic = sphere {<0,0,0>, raio texture {tx}}
#declare seg = cylinder {<0,0,raio/2>, <0,0,altura>, raio texture {tx}}

#macro perna()
        #union{
                object {artic}
    object {seg}
  }
#end

#macro perna2(ang)
        #union{
                object { perna() }
    object { perna() rotate <ang, 0, 0> translate <0, 0, altura> }
        }
#end

#macro perna3(ang1, ang2)
        #union{
          object { perna() }
    object { perna2(ang1) rotate <ang2, 0, 0> translate <0, 0, altura> }
        }
#end

#macro perna4(ang1, ang2, ang3)
        #union{
          object { perna() }
    object { perna3(ang1, ang2) rotate <ang3, 0, 0> translate <0, 0, altura> }
        }
#end

#macro perna5(ang1, ang2, ang3, ang4)
        #union{
          object { perna() }
    object { perna4(ang1, ang2, ang3) rotate <ang4, 0, 0> translate <0, 0, altura> }
        }
#end

#macro perna6(ang1, ang2, ang3, ang4, ang5)
        #union{
          object { perna() }
    object { perna5(ang1, ang2, ang3, ang4) rotate <ang5, 0, 0> translate <0, 0, altura> }
        }
#end

#macro inseto(ang1, ang2, ang3, ang4, ang5, ang6, ang7, ang8, ang9, ang10,
                                                        ang11, ang12, ang13, ang14, ang15, ang16, ang17, ang18, ang19, ang20,
                                                        ang21, ang22, ang23, ang24, ang25, ang26, ang27, ang28, ang29, ang30)
        #union{
                object { box { <-20,-10,-5>, <20, 10, 5> texture {tx}} }
                object { perna6(ang1, ang2, ang3, ang4, ang5) translate <0,10,5> rotate <150,0,0>}
                object { perna6(ang6, ang7, ang8, ang9, ang10) translate <-10,10,5> rotate <150,0,0>}
                object { perna6(ang11, ang12, ang13, ang14, ang15) translate <10,10,5> rotate <150,0,0>}
                object { perna6(ang16, ang17, ang18, ang19, ang20) translate <0,10,5> rotate <150,0,180>}
                object { perna6(ang21, ang22, ang23, ang24, ang25) translate <-10,10,5> rotate <150,0,180>}
                object { perna6(ang26, ang27, ang28, ang29, ang30) translate <10,10,5> rotate <150,0,180>}
        }

#end

inseto(45, -45, 80, -45, 45, -45, 45, -45, 45, -45
                         45, -70, 45, -30, 45, -60, 45, -45, 45, -45
                         45, -45, 45, -45, 45, -45, 45, -45, 45, -45)

#include "camlight.inc"
#declare centro_cena = < 0, 0, -4 >;
#declare raio_cena = 40;
#declare dir_camera = < 10.00, 30.00, 5.00 >;
#declare dist_camera = 5*raio_cena;
#declare intens_luz = 1.20;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)