// Last edited on 2013-12-11 05:38:25 by stolfilocal
// Processed by remove-cam-lights
#include "retalho.inc"
#include "textures.inc"
#include "eixos.inc"
#include "camlight.inc"

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_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_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_glass =
  texture{
    pigment{color rgb < 0.8, 0.8, 1 > filter 0.90 }
    finish{ diffuse 0.03 reflection 0.25 ambient 0.02 specular 0.01 roughness 0.005 }
  }

#declare tx_xadrez =
  texture{
    pigment{ checker color rgb < 0.10, 0.32, 0.60 >, color rgb < 1.00, 0.97, 0.90 > }
    finish{ diffuse 0.9 ambient 0.1 }
    scale 2.0
  }

#declare raio = 5.000;

#macro calc_retalho(p11,p12,p13,p14,p21,p22,p23,p24,p31,p32,p33,p34,p41,p42,p43,p44,q11,q12,q13,q14,q21,q22,q23,q24,q31,q32,q33,q34,q41,q42,q43,q44,rad,txg,txr)
  retalho (p21+q31/2,p22+q32/2,p23+q33/2,p24+q34/2,p21,p22,p23,p24,p31,p32,p33,p34,p41,p42,p43,p44, rad,txg,txr)
  retalho (q11,q12,q13,q14,q21,q22,q23,q24,q31,q32,q33,q34,p21+q31/2,p22+q32/2,p23+q33/2,p24+q34/2, rad,txg,txr)
#end

#declare chao =
  box{ <-20,-20,-1>, <+20,+20,0> }

#declare roda =
union {
        cylinder{
        < 0.00, +0.00, +0.00 >,
        < 0.00, +0.00, +1.50 >,
        0.75
                rotate <0,270, 0> //inclinei para o lado
        }
        cylinder{
                < 0.00, +0.00, +0.75 >,
        < 2.85, +0.00, +0.75 >,
        0.25
                rotate <0,270, 0> //inclinei para o lado
        }
}

  object{ chao  translate < 0,0,-5 > texture{ tx_xadrez } }

union {
        union{
                calc_retalho    (<1,1,1>,<1,2,1>,<1,3,1>,<1,4,1>,<2,1,0>,<2,2,2>,<2,3,1>,<2,4,1>,<3,1,0>,<3,2,0>,<3,3,-2>,<3,4,0>,<4,1,1>,<4,2,0>,<4,3,0>,<4,4,0>,    <-4,1,1>,<-4,2,1>,<-4,3,1>,<-4,4,1.5>,<-3,1,0>,<-3,2,2>,<-3,3,1>,<-3,3,2>,<-2,1,-2>,<-2,2,0>,<-2,3,-2>,<-2,4,0>,<0,1,1>,<0,2,0>,<0,3,0>,<0,4,0>,0,tx_vidro,tx_fosca)
                rotate z*90
                translate <2.5,0,0>
        }
        object{roda
                                texture { Chrome_Metal}
                                rotate <-45,0, 0> //inclinei para o lado
                                translate <0, -2.5,-2> //levantei para cima
        }
        object{roda
                                texture { Chrome_Metal}
                                rotate <45,0, 0> //inclinei para o lado
                                translate <0, +2.5,-2> //levantei para cima
        }
}

#declare centro_cena = < 2, 0, 1 >;
#declare raio_cena = 7;
#declare dir_camera = < 4,-3,0 >;
#declare dist_camera = 15;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)