// Last edited on 2005-01-05 22:31:39 by stolfi
// 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 < 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.50, 0.60, 0.30 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

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

#declare bola =
  sphere {
    < -1.9, -0.1, 0 >, 0.1
    texture { tinta_B }

  }

#declare bola2 =
  sphere {
    < 1.00, 3.00, 2.00 >, 1.50
    texture { tinta_D }
  }

# declare my_cone =
 cone{
   < -1.9, 0.00 , 0.00 >, 0.00
   < 2.00, 1.00 , 3.00 >, 2.00
    texture { tinta_C}
 }

#declare furo =
  cylinder {
    < -1.00, -2.00, -2.00 >,
    < +1.00, +2.00, +2.00 >,
    1.50
    texture { tinta_B }
  }

#declare quadrado =
  box {
    <-2, 0, -0.5>,
    < 0, 1, 0>
    texture {
      tinta_A
      scale 4

    }

  }

  #declare quadrado2 =
  box {
    <0.1, 0, -0.5>,
    < 0.3, 1, 0>
    texture {
      tinta_A
      scale 4

    }

  }

  #declare janelas1 =
  union{
    #declare i = 0;
    #declare j = 0.2;
    #while(i<6)
    #declare janela =
    box {
    <-2+j, 0.6, 0>,
    < -2+j+0.2, 0.8, 0.1>
    texture {
      tinta_B
      scale 4
    }
    }
  object{ janela }
  #declare i = i+1;
  #declare j = j + 0.3;
  #end
  }

  #declare rodas1 =
  union{
    #declare i = 0;
    #declare j = 0;
    #while(i<10)
    #declare roda =
  sphere {
    < -1.9 + j, -0.1, 0 >, 0.1
    texture { tinta_B }
  }

  #declare roda2 =
  sphere {
    < -1.9 + j, -0.1, -0.5 >, 0.1
    texture { tinta_B }
  }

  object {roda }
  object {roda2 }
  #declare i = i+ 1;
  #declare j = j+ 0.2;
  #end
  #declare roda3 =
  sphere {
    < -1.9 + j + 0.1, -0.1, -0.5 >, 0.1
    texture { tinta_B }
  }

  #declare roda4 =
  sphere {
    < -1.9 + j + 0.1, -0.1, -0.5 >, 0.1
    texture { tinta_B }
  }
  object {roda3 }
  object {roda4 }
  }

#declare conexao =
  box {
    <0, 0.5, -0.5>,
    < 0.1, 0.7, 0>
    texture {
      tinta_A
      scale 4

    }
    }

 #declare trem =
union {

    object { quadrado }
    object { quadrado2 }
    object { conexao }

    object { janelas1 }
    object { rodas1 }

 }
 # declare trem2 =
 object {  trem translate <-2.3,0,0> }
 # declare trem3 =
 object {  trem translate <2.3,0,0> }
 # declare trem4 =
 object {  trem3 translate <2.3,0,0> }
 # declare trem5 =
 object {  trem4 translate <2.3,0,0> }

# declare locomotiva =
union {
#declare bloco  =
box {
    <7.0, 0, -0.5>,
    < 9.5, 2, 0>
    texture {
      tinta_A
      scale 4
    }
}

 # declare cilindro =
 cone{
  <8.3, 2, -0.25> , 0.1
  < 8.3, 2.5, -0.25>, 0.3
    texture {
      tinta_C
      scale 4
    }
}

object {bloco}
object {cilindro}
object {rodas1 translate <9.2,0,0>}

}

#declare pista =
box {
    <-10, -0.3, -0.7>,
    < 20, -0.2, 0.2>
    texture {
      tinta_D
      scale 4

    }

}

difference {
  union {

    object { trem }
    object { trem2 }
    object { trem3 }
    object { trem4 }
    object { trem5 }
    object { locomotiva }
    object { pista }

  }
}

#include "camlight.inc"
camlight(<1.1,0.00,0.0>,<-9.1,8.00,5.00>,1.00,y,1.0)