// Last edited on 2003-04-12 02:43:09 by stolfi

#include "colors.inc"
#include "stones.inc"

background{ color rgb < 0.00, 0.03, 0.15 > }

#declare ctr = <0.00, 0.00, 1.00>;
#declare vis = <  6.00, 0.00, 0.00 >;
#declare cam = vis + 3*z;

light_source {
  ctr + 50*(vrotate(vis, 90*z) + 5*z)
  color rgb 1.1 * <1,1,1>
} 

light_source {
  ctr + 50*(vrotate(vis, -15*z) + 4*z)
  color rgb 0.7 * <1,1,1>
}

camera {
  location  ctr + cam
  right     -0.6*x up 0.8*z
  sky       z
  look_at  ctr 
} 

plane { <0,0,1>, -5 texture{T_Stone15}}

// cores/texturas

#declare cor_metal = <0,0,1>;
#declare tx_metal = 
texture {
  pigment {rgb cor_metal}
  finish {
    ambient 0.05 diffuse 0.05
    reflection cor_metal
    specular 0.20 roughness 0.05
      }
}
 

#declare cor_cristal = <0,1,0>;
#declare tx_cristal =
texture {
  finish {
    ambient 0.1 diffuse 0.1
    reflection 0.25
    specular 1 roughness 0.001
  }
  pigment { color cor_cristal filter 1}
}

// objetos

#declare cilindro = 
difference {
  cylinder {<0,0,1>, <0,0,-1>, 1}
  torus {1, 0.5 rotate <90,0,0> translate<0,0,-1>}
}

#declare ponta =
union {
  cone { <0,0,2.5>,0,<0,0,1>,1 texture {tx_cristal}  interior {ior 1}}
  cylinder {<0,0,1>,<0,0,1.7>,0.3 pigment{rgb 10*<1,0,0>}}
}


#declare p_copos =
difference {
  box {<0.8, 0.8, -0.5>, <2,2 , -0.35> texture {T_Stone13}}
  cylinder {<1.4, 1.4, -1.5>, <1.4, 1.4, 0.5>, 0.35}
}


// Aqui está a cena, finalmente:

union {
  object {cilindro texture{tx_metal}}
  object {ponta}
  object {p_copos}
}