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

#include "colors.inc"

global_settings {
  assumed_gamma 1.0
}

sky_sphere {
  pigment {
    gradient y
    color_map {
      [0.0 rgb <0.6,0.7,1.0>]
      [0.7 rgb <0.0,0.1,0.8>]
    }
  }
}

#declare azul =
  texture {
    pigment { color rgb < 0.20, 0.50, 1.00 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

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

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

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

#declare liga=
cylinder {
 < 5, 10.0, 7 >,
 < 5, 10.0, 10.0 >,
 0.6
 texture { azulclaro }
}

#declare rodas =
  union {
    #declare i=0;
       #while (i<4)
          #declare r=4.5*i;
   #declare roda =
    cylinder {
      < r, 10.0, -10.0 >,
      < r, 10.0, -10.5 >,
      1.7
      pigment { Green }
    }
   object{roda}
   #declare i = i+1;
 #end
}

#declare jan=
box{
  <5.5,15,-10.5>,
  <0.5,12,-11>
  texture { azulclaro }
}
#declare gerador = seed(52754);

#declare janelac =
  union {
    #declare i=0;
       #while (i<5)
          #declare r=3*i;
   #declare aleatorio = rand(gerador);
   #declare treco =
   #if (aleatorio<0.5)
    cylinder {
      < r, 10.0, -10.0 >,
      < r, 10.0, -10.5 >,
      1.0
      pigment { Yellow }
    }
   #else
   cylinder {
      < r, 10.0, -10.0 >,
      < r, 10.0, -10.5 >,
      0.5
      pigment { Red }
    }
    #end
   object{treco}
   #declare i = i+1;
 #end
}

#declare janelaq =
  union {
    #declare i=0;
       #while (i<5)
          #declare r=3*i;
   #declare aleatorio = rand(gerador);
   #declare treco =
   #if (aleatorio<0.5)
    box{
    <r+1.4,15.4,-10>,
    <r,14,-10.5>
      pigment { Green }
    }
    #else
     box{
    <r+2,16,-10>,
    <r,14,-10.5>
      pigment { Magenta }
    }
    #end
   object{treco}
   #declare i = i+1;
 #end
}

#declare frente1=
  box {
    < -10.00, 2.0, -10 >,
    < 0.00, 12.00, 0.00 >
    pigment { Blue }
  }

 #declare frente2=
  box {
    < 3.00, 2.0, -10 >,
    < 10.00, 7.00, 0.00 >
    pigment { Blue }
  }

#declare vagao=
  box {
    < -10.00, 2.0, -10 >,
    < 10.00, 12.00, 0.00 >
    pigment { Blue }
  }

#declare gerador2 = seed(654321);
#declare aleatorio2 = rand(gerador2);
#declare completo =
   #if (aleatorio2<0.5)
 union{
 object {vagao}
 object{janelac
 translate<-6.8,0,0>}
 object{janelaq
 translate<-6.8,-5,10.5>}
 object {rodas
 translate<-6.8,-8,0>}
 object {rodas
 translate<-6.8,-8,10.5>}
 object {vagao}
 object{liga
 translate<-10,-4,3>
 rotate -90*y}
   #else
        union{
 object {vagao}
 object{janelaq
 translate<-6.8,-5,0>}
 object{janelac
 translate<-6.8,0,10.5>}
 object {rodas
 translate<-6.8,-8,0>}
 object {rodas
 translate<-6.8,-8,10.5>}
 object {vagao}
 object{liga
 translate<-10,-4,3>
 rotate -90*y}
    #end
}

#declare trilho=
cylinder {
 < 5, 10.0, -10.0 >,
 < 5, 10.0, -10.5 >,
 300
 texture { amarelo }
}

#declare trilhoaux=
cylinder {
 < 5, 10.0, -9 >,
 < 5, 10.0, -11 >,
 275
 texture { azulclaro }
}

plane {
  y, -1
  pigment { color rgb <0.7,0.5,0.3> }
}

#declare cont = 0;
#while(cont <5)
   declare r = 23*cont;
   object{completo
    translate<r,0,0>
    }
   #declare cont = cont + 1;
#end
union{
object{frente1
translate<-13,0,0>}
object{frente2
translate<-33,0,0>}
object {rodas
translate<-28,-8,0>}
object {rodas
translate<-28,-8,10.5>}
object {jan
translate<-21,-4,0>}
object {jan
translate<-21,-4,10.6>}
difference {
object {trilho
translate<30,270,10>
rotate 90*x}
object {trilhoaux
translate<30,270,10>
rotate 90*x}
}
}

#include "camlight.inc"
camlight(<0,0,0>,vrotate(<0,30,-200.00>,20*y),1.00,y,1.0)