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

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

#declare raio = 2.000;

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

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

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

#declare cor_cristal =
 pigment {color rgb <0.00, 0.00, 0.00>}

#declare cor_espelho =
 pigment {color rgb <0.01, 0.01, 0.01>}

#declare tx_cristal =
  texture{
    finish{
      ambient 0.1 diffuse 0.1 reflection 0.25
      specular 1 roughness 0.001
    }
    pigment{color rgb <1.00, 0.50, 0.50> filter 1}
  }

#declare tx_espelho =
  texture{
   pigment{rgb <0.00, 0.80, 0.80>}
   finish{
      ambient 0.05 diffuse 0.05
      reflection rgb <0.80, 0.80, 0.80>
      specular 0.20 roughness 0.05
    }
  }

#declare eixos =

   union {
     object {
      cylinder{
    <-50.00, 0, 0> <50, 0, 0>, 0.2
    }
      }
     object {
      cone {
        <50, 0, 0> , 0.5
 <52, 0, 0> , 0
      }
     }
   texture {tinta_A}
   }
   union{
     object{
      cylinder{
        <0, -50, 0> <0,50,0>, 0.2
   }
     }
     object{
 cone {
        <0, 50, 0> , 0.5
 <0, 52, 0> , 0
 }
     }
     texture {tinta_B}
   }
   union{
    object{
      cylinder{
        <0, 0, -50> <0, 0, 50>, 0.2
   }
    }
    object{
 cone {
        <0, 0, 50> , 0.5
 <0, 0, 52> , 0
 }
 }
 texture {tinta_C}
    }

#declare locomotiva =
  box {
    < 5.00, 16.00, 2.00 >,
    < -5.00, 22.00, 8.00 >
    texture {tinta_B}
    }

#declare roda =
union{
  #declare i = 0;
  #while (i < 3)
     object {
      cylinder{
    <0, 17.8, 1> <0, 18.2, 1>, 1
    }
      rotate z*10*i
      }
      object {
      cylinder{
    <0, 19.8, 1> <0, 20.2, 1>, 1
    }
      rotate z*10*i
    }
    #declare i = i +1;
    #end
    }

#declare vagao =
union{
   object{roda}
   object{locomotiva rotate 10*z}
}

#declare dormente =
    box{
     <-0.2, 18, -0.2>, <0.2, 20, 0.2>

    }

#declare trilho =
union{

  object{
   torus {
    18, 0.2
    texture { tinta_B }
    rotate 90*x
   }
  }
  object{
   torus {
    20, 0.2
    texture { tinta_B }
    rotate 90*x
    }
  }
  #declare i = 0;
  #while (i < 20)
    object {dormente   rotate z*30*i}
    #declare i = i +1;
  #end
 }

#declare trem =
 union{
 #declare i = 0;
 #while (i < 4)
   object {vagao rotate z*40*i}
   #declare i = i +1;
 #end
 }

#declare trem_mov =
union{
#if (clock < 0.2)
  #declare posicao = 360*clock*clock;
  object {trem rotate z*posicao}
#else
 #if (clock <= 1)
  #declare posicao = -360*0.2*0.2 + 2*360*0.2*clock;
  object {trem rotate z*posicao}
 #else
  #declare posicao =  360 - 360*(1-clock)*(1-clock);

 #end
#end
}

union{

object {trilho}
object {trem_mov}
}

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