// MC930 - Projeto Final
// Last edited on 2000-12-14 09:07:40 by Fabio Yuasa Niizu RA:962325

#include "textures.inc"
#include "colors.inc"

#declare i=1;
#declare j=0;

background{ color rgb < 0, 0, 1 > }

light_source {
  < 0.00, -100.00, 5.00 >
  color rgb < 1.00, 1.00, 1.00 >
}

camera {
  location  <  0.00, -100.00, 10.00 >
  right     <  -1.20, 0.00, 0.00 >
  up        <  0.00, 0.00, 0.90 >
  sky       <  0.00, 0.00, 1.00 >
  look_at   <  0.00, 0.00, 10.00 >
}

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

#declare tinta_white2 =
  texture {
    pigment { color rgb < 1, 1, 1 > }
    finish { diffuse 0.9 specular 0.9 roughness 0.005 ambient 0.1 }
  }

// Corpo

#declare parte_inferior =
  box {
    < -50.00, -5.00, 10.00>,  // Near lower left corner
    < 50.00, 5.00,  11.50>
    texture { tinta_white }
  }

#declare vidro_central =
  box {
    < -50.00, -5.00, 11.50>,  // Near lower left corner
    < 50.00, 5.00,  13.50>
    texture { NBglass }
  }

#declare parte_superior =
  box {
    < -50.00, -5.00, 13.50>,  // Near lower left corner
    < 50.00, 5.00,  15.00>
    texture { tinta_white }
  }

//PAVIMENTO

#declare pavimento = 
  plane{ z, 0
    texture{ 
      pigment{
        color rgb < 0.0, 1.0, 0.0 >
      }
      finish{ diffuse 0.9 ambient 0.05 specular 0.3 roughness 0.1 }
      normal{ granite 0.5 }
    }
   scale 10
  }

#declare estrada_interior =
  
  box {
    < -30.00, -200.00, 0.00>,  // Near lower left corner
    < -6.00, 200.00,  0.05>
    texture { tinta_white }
  }

#declare estrada_capital =
  
  box {
    < 6.00, -200.00, 0.00>,  // Near lower left corner
    < 30.00, 200.00,  0.05>
    texture { tinta_white }
  }

#declare risco =
  
  box {
    < -21.95, -200.00, 0.00>,  // Near lower left corner
    < -22.05, -198.00,  0.06>
    texture { tinta_white2 }
  }

#while (i < 200)
    #declare j = j + 5;   
    object { risco
             translate <0,j,0> }
    #declare i = i + 1;
#end

#declare i=1;
#declare j=0;

#while (i < 200)
    #declare j = j + 5;   
    object { risco
             translate <8,j,0> }
    #declare i = i + 1;
#end

#declare i=1;
#declare j=0;

#while (i < 200)
    #declare j = j + 5;   
    object { risco
             translate <36,j,0> }
    #declare i = i + 1;
#end

#declare i=1;
#declare j=0;

#while (i < 200)
    #declare j = j + 5;   
    object { risco
             translate <44,j,0> }
    #declare i = i + 1;
#end

//ceu

#declare ceu = 
  plane{ z, 50
    texture{ 
      pigment{
        color rgb < 0.0, 0.0, 1.0 >
      }
      finish{ diffuse 0.9 ambient 0.9 specular 0.3 roughness 0.1 }
    }
}

// CENA

object {parte_inferior}
object {vidro_central}
object {ceu}
object {pavimento}
object {parte_superior}
object {estrada_interior}
object {estrada_capital}