// Last edited on 2005-01-05 22:54:02 by stolfi
// Processed by remove-cam-lights

background{ color rgb < 0.90, 0.85, 0.80 > }
declare gerador = seed(2057813);

#declare cinza = color rgb <0.5, 0.5, 0.5>;
#declare tx_metal =
 texture{
  pigment { rgb cinza}
  finish{
   ambient 0.05 diffuse 0.05
   reflection cinza
   specular 0.20 roughness 0.05
  }
 };

#declare trilho =
 lathe {
  linear_spline
   5,
  <10.0, 0.0>, <10.0, 0.1>, <9.9, 0.1>, <9.9, 0.0>, <10.0, 0.0>
  texture {tx_metal}
  rotate <90, 0 ,0>
 };

#declare ctx = cos(2*pi*clock);
#declare otx = cos(2*pi*clock) - cos(9/10);
#declare cty = sin(2*pi*clock);

#declare locomotiva =
 union{
  box{
   <10.0*ctx, 10.0*cty, 0.5>, <9.0*otx, (7.0*cty) +2, 2.0>
   texture {tx_metal pigment {rgb <0.80, 0.1, 0.1>} }
  }
  cone{
   <9.5*ctx, 10.0*cty, 2.0>, 0.5, <9.5*ctx, 7.0*cty, 3.0>, 0.25 open
   pigment {rgb <1.0,0.0,0.0>}
  }
  cylinder{
   <9.5*ctx, 2.0, 1.0>, <9.5*ctx, 3.0, 1.0>, 0.6
   texture {tx_metal pigment{rgb <0.80, 0.1, 0.1>} }
  }
  #declare i = 0;
  #while (i<4)
   #declare r = 0.25 + (i*0.5);
   #declare roda =
    disc{
     <10.0*ctx, r, 0.25>,
     x
     0.25
     0.0
     texture{ tx_metal pigment {rgb <0.1, 0.1, 0.1>}}
    };
   object {roda}
   object {roda translate <-1.0, 0.0, 0.0>}
   #declare i=i+1;
  #end
 };

union{
 object {trilho}
 object {trilho scale <0.9, 0.9, 0.9>}
 object {locomotiva}
}

#include "camlight.inc"
camlight(<8.0,0.00,0.00>,<22.00,0.00,20.00>,1.00,z,1.0)