// Exercicio 5
// Last edited on 2001-06-09 21:02:36 by stolfi
// Last edited on DATE TIME by USER

#include "colors.inc"
background{ color rgb < 1.00, 1.00, 0.5 > }

light_source {
  < 24.00, 50.00, 30.00 >
  color rgb < 1.00, 1.00, 1.00 >
} 

camera {
  location  <  20.00, 20.00, 20.00 >
  right     < -0.80, 0.00, 0.00 >
  up        <  0.00, 0.60, 0.00 >
  sky       <  0.00, 1.00, 0.00 >
  look_at   <  0.00, 0.00, 0.00 >
} 
   
declare Coluna1 = 
      cylinder {<-3, -4.0, 0.0>, <-3, 4.0, 0.0>, 0.75
      pigment { Gray }}

declare Coluna2 = 
      cylinder {<3.0, -4.0, 0.0>, <3.0, 4.0, 0.0>, 0.75
      pigment { Gray }}

declare Parede =
  union{
      box {<-2.75, -4.0, 0 >, <2.75, 4.00, 0>
      pigment {Gray}}

      box {<-1.00, -4.00, 0.01>, <1.00, -1.00, 0.01>
      pigment {Red}}
  }
  

difference {
    torus { 2.93, 0.80
      rotate x*-90
      translate <0.00, 4.00, 0.00>
    }
    box { <-5, -5, -1>, <5, 4, 1> }
    pigment { Green }}
  

#declare i = -2;
#while (i < 4)
      sphere {<0.0, 2.0, 0.0>, 0.5
      translate <1*i, 2.0, 0.0>
      pigment { Red }}
      #declare i = i + 1;
#end

#declare i = 0;
#while (i < 6 )
      box {<-3.65, -4.75, 1.0>, <3.7, -3.75, 0.5>
      translate <0, -0.5*i, 1*i>
      pigment { Red }}
      #declare i = i + 1;
#end
      
    
// Aqui está a cena, finalmente:

  object { Parede }
  object { Coluna1 }
  object { Coluna2 }
  
 
/*cylinder {<0, 0, 0>, <100, 0, 0>, 0.05 pigment { Red } }
cylinder {<0, 0, 0>, <0, 100, 0>, 0.05 pigment { Green } }
cylinder {<0, 0, 0>, <0, 0, 100>, 0.05 pigment { Blue } }*/