// Last edited on DATE TIME by USER
// Processed by remove-cam-lights

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

#declare tinta_A =
  texture {
    pigment { color rgb < 0.10, 0.80, 1.00 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare tinta_B =
  texture {
    pigment { color rgb < 1.00, 0.80, 0.10 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare tinta_C =
  texture {
    pigment { color rgb < 0.6, 0.6, 0.6 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare tinta_D =
  texture {
    pigment { color rgb < 0.5, 0.5, 0.5 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare base =
 box{
 <0.00, 0.00, 0.00>,
 <2,6,2>
 texture{tinta_A}
 }

#declare parte_cima =
 box{
 <0,4,2>,
 <2,6,4>
 texture{tinta_B}
 }

#declare telhado =
 box{
 <-0.5,3.5,4>,
 <2.5,6.5,4.5>
 texture{tinta_A}
 }

#declare chamine =
 cylinder{
 <0,0,0>,
 <0,0,2>,
 0.5
 texture{tinta_B}
 }

#declare roda =
 cylinder{
 <0,0,0>,
 <0,0,0.5>,
 0.5
 texture{tinta_B}
 }

#declare vagao =
  box{
   <0.00,0.00,0.00>,
   <2,8,2>
   texture{tinta_A}
  }

#declare estacao =
union{
 box{
  <0,0,3>,
  <3,8,3.5>
  texture{tinta_A}
  }
difference{
  box{
  <0,0,0>,
  <2,8,3>
  texture{tinta_B}
  }
  box{
  <-0.5,2,0.6>,
  <2.5,6,2.1>
  texture{tinta_B}
  }
 }
}

#declare trilho1 =
  lathe{
   linear_spline
   5,
   <50,0>,
   <50.5,0>,
   <50.5,0.5>,
   <50,0.5>,
   <50,0>
   texture{tinta_C}
  }

#declare trilho2 =
  lathe{
   linear_spline
   5,
   <47,0>,
   <47.5,0>,
   <47.5,0.5>,
   <47,0.5>,
   <47,0>
   texture{tinta_C}
  }

#declare locomotiva =
union{
 object {base}
 object {parte_cima}
 object {telhado}
 object {chamine translate <1,0.5,2>}

 #declare j = 0;
 #while(j < 3)
  #declare i = 1;
  #while(i < 6)
   object {roda translate <0,i,j> rotate 90*y}
   #declare i = i + 2;
  #end
  #declare j = j + 2;
 #end

 #declare janelas =
  box{
   <-1,0.2,0.8>,
   <3,0.8,1.4>
   texture{tinta_B}
  }
}

#declare vagao_completo =
 union{
  difference{
   object {vagao translate <0,6.5,0>}
   #declare i = 7.7;
   #while(i < 13)
    object {janelas translate <0,i,0>}
    #declare i = i + 1.2;
   #end
  }
  #declare j = 0;
  #while(j < 3)
   #declare i = 7.5;
   #while(i < 14)
    object {roda translate <0,i,j> rotate 90*y}
    #declare i = i + 2;
   #end
   #declare j = j + 2;
#end
 }

#declare todos_vagoes =
union{
#declare n_vagoes = 0;
#declare alfa = -1;
#while(n_vagoes < 10)
 object {vagao_completo translate <-50,0,0> rotate alfa*z}
 #declare alfa = alfa - 10;
 #declare n_vagoes = n_vagoes + 1;
#end
}

#declare trem =
union{
 object {locomotiva translate<-50,0,0>}
 object {todos_vagoes}
}

#declare A = 750;
#declare B = -70;
#declare C = 500;
#declare D = 360;
#declare tt = clock;

#if(tt < 0.20)
 #declare angulo = A * clock * clock;
#else
 #if(tt < 0.80)
  #declare angulo = B + C * clock;
 #else
  #declare angulo = D - A * (1 - clock) * (1 - clock);
 #end
#end

object {trem rotate<0,0,angulo>}

object {estacao translate <-60,0,0>}

object {trilho1  rotate 90*x translate<0,0,-1>}
object {trilho2 rotate 90*x translate<0,0,-1>}

plane {z,0
 texture{
  pigment{ checker <0.2,0.8,0.1>, <0.3,0.3,0.5>}
  finish{ambient 0.2 diffuse 0.5}
  scale 2
  }
 translate <0,0,-0.8>
}

#include "camlight.inc"
camlight(<0,0,0>,<25.00,-110.00,20.00>,1.00,z,1.0)