// Last edited on 2003-04-12 01:56:39 by stolfi
// MC930A Primeira Atividade de Laboratório utilizando POV-ray
// Autor: Mário Riudoms Sangenis  -  RA: 992198

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

background{ LightSteelBlue }

#declare ctr = <  0.00, -0.10, 0.00 >;
#declare vis = <  7.00, 0.00, 15.00 >;
#declare cam = vis + 7*y;
// #declare cam = 0.01*vis + 20*y;

light_source {
  ctr + 50*(vrotate(vis, 90*y) + 10*y)
  color rgb < 1.00, 0.90, 0.90 >
} 

light_source {
  ctr + 50*(vrotate(vis, -20*y) + 8*y)
  color rgb < 1.00, 1.00, 1.00 >
} 

camera {
  location  ctr + 1.2*cam
  right     < +0.60, 0.00, 0.00 >
  up        <  0.00, 0.00, 0.80 >
  sky       <  0.00, 1.00, 0.00 >
  look_at   ctr
} 

#declare transparente =
  texture {
    finish {
      ambient 0.1 diffuse 0.1
      reflection 0.25
      specular 1 roughness 0.001
    }
    pigment { color White filter 1}
}

#declare corpo =
  sphere{
     <0.00, 0.00, 0.00>, 3.0 
     texture{Silver_Metal} 
     scale <1,1.2,1>
  }

#declare antena_1 =
  cone {
    < 0.00, 3.00, 0.00 >, 0.6, 
    < 0.00, 6.00, 0.00 >, 0.00
    texture {Chrome_Metal}
  }

#declare antena_2 =
  union {
    object { antena_1 }
    object { sphere{<0.00, 5.50, 0.00>, 0.5 texture{Gold_Metal}} } 
  }

#declare coroa =
  torus {
    2.0, 1.2 
    scale < 1.50, 1.00, 1.00>           
    translate <0.00, 0.50, 0.00>
    texture { Copper_Metal }
}

#declare porta_copos =
  torus {
    0.7, 0.25            
    translate <5.00, 0.50, 0.00>
    texture { transparente }
}

#declare pe =
 sphere{
     <0.00, -3.20, -1.50>, 0.8 
     texture{Copper_Metal} 
     scale <1.2,1,1.2>
}

#declare plano =
  plane {
  y, -4.0
  texture { White_Marble }
}

// Aqui está a cena, finalmente:

union { 
  object { corpo }
  object { antena_2 }
  object { coroa }
  object { porta_copos }
  object { porta_copos scale <-1, 0, 0> }
  object { pe }
  object { pe translate <0.00, 0.00, 3.00>}
  object { pe translate <-1.50, 0.00, 1.50>}
  object { pe translate <1.50, 0.00, 1.50>}
  object { plano }
}