// Last edited on 2009-11-25 17:08:14 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

#include "retalho.inc"
#declare grid_rd = 0.015;

#include "nuvens.inc"

#declare tx_carro =
  texture{
    pigment{ color rgb < 0.10, 1.00, 0.80 > }
    finish{ ambient 0.1 diffuse 0.3 reflection 0.6 * <1,1,1> }
  }

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

#declare raio = 2.000;

#declare p11=<-0.00,0.00,0.00>;
#declare p12=<-0.33,0.00,0.30>;
#declare p13=<-0.66,0.00,0.45>;

#declare p21=<-0.00,0.33,0.00>;
#declare p22=<-0.33,0.33,0.30>;
#declare p23=<-0.66,0.33,0.45>;

#declare p31=<-0.2,0.66,0.00>;
#declare p32=<-0.33,0.66,0.25>;
#declare p33=<-0.66,0.66,0.35>;

#declare p41=<-0.40,1.00,0.00>;
#declare p42=<-0.50,1.00,0.00>;
#declare p43=<-0.66,1.00,0.00>;

#declare q12=<-1.20,0.00,0.65>;
#declare q13=<-1.40,0.00,0.70>;

#declare q22=<-1.20,0.33,0.65>;
#declare q23=<-1.40,0.33,0.70>;

#declare q32=<-1.20,0.66,0.45>;
#declare q33=<-1.40,0.66,0.45>;

#declare q42=<-1.20,1.00,0.25>;
#declare q43=<-1.40,1.00,0.25>;

#declare r12=<-2.40,0.00,0.75>;
#declare r13=<-3.20,0.00,0.75>;

#declare r22=<-2.40,0.33,0.75>;
#declare r23=<-3.20,0.33,0.75>;

#declare r32=<-2.40,0.66,0.45>;
#declare r33=<-3.20,0.66,0.45>;

#declare r42=<-2.40,1.00,0.00>;
#declare r43=<-3.20,1.00,0.00>;

#declare s12=<-4.20,0.00,0.65>;
#declare s13=<-4.40,0.00,0.70>;

#declare s22=<-4.20,0.33,0.65>;
#declare s23=<-4.40,0.33,0.70>;

#declare s32=<-4.20,0.66,0.45>;
#declare s33=<-4.40,0.66,0.45>;

#declare s42=<-4.20,1.00,0.25>;
#declare s43=<-4.40,1.00,0.25>;

#declare t12=<-4.93,0.00,0.60>;
#declare t13=<-5.26,0.00,0.45>;
#declare t14=<-5.59,0.00,0.30>;

#declare t22=<-4.93.33,0.60>;
#declare t23=<-5.26,0.33,0.45>;
#declare t24=<-5.59,0.33,0.30>;

#declare t32=<-4.93,0.66,0.75>;
#declare t33=<-5.26,0.66,0.50>;
#declare t34=<-5.39,0.66,0.25>;

#declare t42=<-4.93,1.00,0.00>;
#declare t43=<-5.06,1.00,0.00>;
#declare t44=<-5.16,1.00,0.00>;

#declare p14=(p13+q12)/2;
#declare p24=(p23+q22)/2;
#declare p34=(p33+q32)/2;
#declare p44=(p43+q42)/2;

#declare q14=(q13+r12)/2;
#declare q24=(q23+r22)/2;
#declare q34=(q33+r32)/2;
#declare q44=(q43+r42)/2;

#declare r14=(r13+s12)/2;
#declare r24=(r23+s22)/2;
#declare r34=(r33+s32)/2;
#declare r44=(r43+s42)/2;

#declare s14=(s13+t12)/2;
#declare s24=(s23+t22)/2;
#declare s34=(s33+t32)/2;
#declare s44=(s43+t42)/2;

#declare q11=p14;
#declare q21=p24;
#declare q31=p34;
#declare q41=p44;

#declare r11=q14;
#declare r21=q24;
#declare r31=q34;
#declare r41=q44;

#declare s11=r14;
#declare s21=r24;
#declare s31=r34;
#declare s41=r44;

#declare t11=s14;
#declare t21=s24;
#declare t31=s34;
#declare t41=s44;

#macro metade_carro ()

        union{
                retalho(p11,p12,p13,p14,p21,p22,p23,p24,p31,p32,p33,p34,p41,p42,p43,p44,tx_grade,tx_carro)
                retalho(q11,q12,q13,q14,q21,q22,q23,q24,q31,q32,q33,q34,q41,q42,q43,q44,tx_grade,tx_carro)
                retalho(r11,r12,r13,r14,r21,r22,r23,r24,r31,r32,r33,r34,r41,r42,r43,r44,tx_grade,tx_carro)
                retalho(s11,s12,s13,s14,s21,s22,s23,s24,s31,s32,s33,s34,s41,s42,s43,s44,tx_grade,tx_carro)
                retalho(t11,t12,t13,t14,t21,t22,t23,t24,t31,t32,t33,t34,t41,t42,t43,t44,tx_grade,tx_carro)
        }
#end

union {

        object{ metade_carro ()  }
        object{ metade_carro () scale <1,-1,1> }
}

// Original camera parameters:
// #local cam_ctr = <-2,0,0>
// #local cam_loc = <4.00,6.00,3.00>
// #local cam_vec = (<4.00,6.00,3.00>-<-2,0,0>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<-2,0,0>,4.00,<10,10,10>,12.00,z,1.2)