// EXERCICIO 7 - Cidade / predio
// By Daniel Salles de Araujo 16 Nov 2000

//#include "glass.inc"
#include "colors.inc"
//#include "metals.inc"
#include "textures.inc"

background{ color Black}

//light_source {
//  < 10, 0, 0 >
//  color rgb <1,1,1>
//}

#declare posicao1=<20,15,0>;
#declare alvo1=<6,-8,0>;
#declare distancia=vlength(posicao1-alvo1);
#declare abertura=degrees(8/distancia);

light_source {
  posicao1
  color rgb < .8, 1, .8>
  spotlight
  point_at alvo1
  radius .8*abertura falloff 1.2*abertura
  fade_distance distancia
  fade_power 2
}

#declare posicao2=<-20,15,0>;
#declare alvo2=<-2, -8, 0>;
#declare distancia2=vlength(posicao2-alvo2);
#declare abertura=degrees(8/distancia);

light_source {
  posicao2
  color rgb <.8, 1, .8>
  spotlight
  point_at alvo2
  radius .8*abertura falloff 1.2*abertura
  fade_distance distancia
  fade_power 2
}

camera {
  location  < 25.00, 15.00, 25.00 >
  look_at   < 0.00, 0.00, 0.00 >
}

#declare azul2=
texture { pigment { Blue } finish { phong 1 metallic } }

#declare cinza2=
texture { pigment { Gray10 } finish { metallic } }

#declare luz=
texture {pigment { White } finish { phong 1 } }

#declare cinza=
texture {pigment { Gray30 } finish { phong 1 } }

#declare luzbranca = color rgb .1* <1,1,1>;

#declare azul = texture {pigment { color rgbt <0,0,1,1> } } 
#declare transblue = color rgb .25* <0,0,1>;

#declare cabeca =
union {
  sphere { <0,0,0>, 2.5 texture { azul } 
    scale <1.5,1,1> }
  sphere { <1.5,1.5,1.5>, 1 texture { luz }
  }
  sphere { <1.5,1.5,-1.5>, 1 texture { luz }
  }
}

#declare corpo =
sphere { <0,0,0>, 5.0 texture { azul }
  scale <1.5,1,1> }

#declare rabo = 
prism {
  linear_spline
  0, 1.0, 4,
  <0,0>, <0,3>, <3,0>, <0,0>
  texture {azul }
  rotate <0, -90, 45>
}

#declare pescoco =
cylinder {
  <4,2,0>
  <9,5,0>  
  .5 texture { azul }
}

#declare pes = 
union {
 cylinder {
  <0,0,0>
  <0,0.3,0>
  7 texture { azul }
  translate <0,-8,0>
 }
 cylinder {
  <-2,0,0>
  <-2,-8,0>
  0.5 texture { azul }
 }
}

#declare quasimoda =
union {
  object { cabeca translate <11,7,0> }
  object { corpo }
  object { pescoco }
  object { pes }
}

object { quasimoda 
  hollow
  pigment { color rgbt <1,1,1,1> }
  interior {
    media { emission color transblue }
  }
}

plane { <0,1,0>, -8.3
  pigment {
    checker color rgb<.3,.3,.3>, color rgb<0,0,0>
  }
} 

fog {
  distance 15
  color rgbt <.3,.3,.3,.3>
}