// Projeto final de MC930

#include "colors.inc"
#include "stones.inc"
#include "skies.inc"
#include "metals.inc"
#include "textures.inc"
#include "finish.inc"

background{ color rgb < 0.22, 0.00, 0.59 > }

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

/*
camera {
  location  <  10.00, 10.00, 10.00 >
  right     <  0.00, 1.20, 0.00 >
  up        <  0.00, 0.00, 0.90 >
  sky       <  0.00, 0.00, 1.00 >
  look_at   <  0.00, -3.00, 6.00 >
}
*/

light_source { <0.00, 15.00, 8.50> color rgb <1.00,1.00,1.00> }

#declare cinza = rgb <0.50,0.50,0.50>;
#declare vermelho = rgb <1.00,0.00,0.00>;

#declare torre =
	cylinder {
		<0.00,0.00,0.00>, <0.00,0.00,10.00>,
		2
		texture {T_Grnt2}
	}

#declare circulo =
  	torus { 2.0, 0.05
    	rotate -90*x
    	texture {T_Copper_1A}
	}

#declare suporte_circulo =
	cylinder {
		<1.95, 0.00, 10>,
		<1.95, 0.00, 10.6>,
		0.05
		texture {T_Copper_1A}
	}

#declare unidade_escada =
	union {
		box {
			<0.00,-0.50,0.00>, <2.30,-0.45,0.05>
			texture{ pigment{ color cinza}}
		}
		box {
			<0.00,0.50,0.00>, <2.30,0.45,0.05>
			texture{ pigment{ color cinza}}
		}
		box {
			<2.30,-0.50,0.00>, <2.50,-0.45,1.00>
			texture{ pigment{ color cinza}}
    	}
		box {
			<2.30,0.50,0.00>, <2.50,0.45, 1.00>
			texture { pigment{ color cinza}}
		}
		cylinder {
			<2.20,0.475,0.00>,<2.20,0.475,1.00>,
			0.025
			texture { pigment{ color cinza}}
		}
		cylinder {
			<2.20,-0.475,0.00>,<2.20,-0.475,1.00>,
			0.025
			texture { pigment{ color cinza}}
		}
		cylinder {
			<2.40,0.50,0.90>, <2.40,-0.50,0.90>,
			0.10
			texture{ pigment{ color cinza}}
		}
	}

#declare cerca_topo =
	union {
    	object {circulo
    		translate <0.00,0.00,10.3>
    	}
    	object {circulo
    		translate <0.00,0.00,10.6>
    	}
		object {suporte_circulo
			rotate <0.00, 0.00, 0.00>
		}
		object {suporte_circulo
			rotate <0.00, 0.00, 45.00>
		}
		object {suporte_circulo
			rotate <0.00, 0.00, 90.00>
		}
		object {suporte_circulo
			rotate <0.00, 0.00, 135.00>
		}
		object {suporte_circulo
			rotate <0.00, 0.00, 180.00>
		}
		object {suporte_circulo
			rotate <0.00, 0.00, 225.00>
		}
		object {suporte_circulo
			rotate <0.00, 0.00, 270.00>
		}
		object {suporte_circulo
			rotate <0.00, 0.00, 315.00>
		}
	}
  		
	
#declare escada =
	union {
		#declare i = 1;
		#while (i <= 10)
			object{
				unidade_escada
				translate <0.00,0.00,i-1>
			}
			#declare i = i+1;
		#end
	}

#declare antena1 =
	union {
		cylinder {
			<1.00,0.00,10.00>,<1.00,0.00,11.00>,
			0.01
			texture{T_Silver_1A}
		}
		cylinder {
			<1.30,0.00,11.00>,<0.70,0.00,11.00>,
			0.01
			texture{T_Silver_1A}
		}
		cylinder {
			<1.30,0.00,11.00>,<1.30,0.00,11.20>,
			0.01
			texture{T_Silver_1A}
		}
		cylinder {
			<0.70,0.00,11.00>,<0.70,0.00,11.20>,
			0.01
			texture {T_Silver_1A}
		}
		cylinder {
			<1.30,0.00,11.20>,<1.30,0.00,11.50>,
			0.03
			texture { pigment{ color vermelho}}
		}
		cylinder {
			<0.70,0.00,11.20>,<0.70,0.00,11.50>,
			0.03
			texture { pigment{ color vermelho}}
		}
	}

#declare antena2 =
	union {
		cylinder {
			<-1.00,0.00,10.00>,<-1.00,0.00,11.00>,
			0.02
			texture{T_Silver_1B}
		}
		cylinder {
            <-0.06,0.00,11.00>,<-1.40,0.00,11.00>,
			0.02
			texture{T_Silver_1B}
		}
		cylinder {
			<-0.06,-0.40,11.00>,<-0.06,0.40,11.00>,
			0.02
			texture {T_Silver_1B}
		}
		cylinder {
			<-1.40,-0.40,11.00>,<-1.40,0.40,11.00>,
			0.02
			texture {T_Silver_1B}
		}
	}

/*Grama*/
plane{ z, 0 texture{ pigment {image_map { gif "sprbk041a.gif"}}}}

/*Nebulosidade*/
plane{ z, 5 texture{ P_Cloud1 }}

/* Ceu */
plane { z, 150
    texture {
      pigment { SkyBlue }
      finish { ambient 1 diffuse 0}
     }
     texture {
       pigment {
         bozo
         turbulence .5
         color_map {
           [0 White]
           [1 White filter 1]
         }
       }
       finish { ambient 1 diffuse 0 }
       scale <1000, 250, 250>
    }
  }


/*Desenha os objetos*/
object {torre}
object {escada}
object {cerca_topo}
object {antena1}
object {antena2}