// Last edited on 2009-07-22 19:54:13 by stolfilocal
// Processed by remove-cam-lights

background{ color rgb < 0.75, 0.80, 0.85 > }

global_settings { max_trace_level 10 }

#declare tinta_cinza = 
  texture {
    pigment { color rgb < 0.75, 0.75, 0.75 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_rosa = 
  texture {
    pigment { color rgb < 1, 0.08, 0.58 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_transparente = 
  texture {
    pigment { color rgb < 1, 1, 1 > filter 0.9 }
    finish { diffuse 0.05 ambient 0.05 }
  }

#declare tinta_metalica = 
  texture {
    pigment { color rgb < 1, 1, 0.5 > }
    finish { diffuse 0.05 ambient 0.05 specular 0.1 reflection 0.8 }
  }

#declare ovo_superior =
  difference {
    sphere { < 0, 0, 0 >, 1 scale < 1, 1, 1.75 > }
    box { < -2, -2, -2 >, < 2, 2, 0 > }
  }

#declare ovo_inferior =
  difference {
    sphere { < 0, 0, 0 >, 1 }
    box { < -2, -2, 0 >,  < 2, 2, 2 > }
  }

#declare ovo =
  union {
    object { ovo_superior }
    object { ovo_inferior }
  }

#declare piramide =
  difference {
    box { < 0, 0, 0 >, < 1, 1, 1 > }
    box { < -1, 0, 0 >, < 2, 2, 2 > rotate < 45, 0, 0 > }
    box { < -1, 0, 0 >, < 2, 2, 2 > rotate < 45, 0, 0 > translate < 0, 1, 0 > }
    box { < 0, 0, 0 >, < 2, 2, 2 > rotate < 0, -45, 0 > }
    box { < 0, 0, 0 >, < 2, 2, 2 > rotate < 0, -45, 0 > translate < 1, 0, 0 > }
  }

#declare chao =
  plane {
    z, 0
    texture { pigment { checker rgb < 1, 1, 1 >, rgb < 0.5, 0.5, 0.5 > rotate 17*z }
      finish { diffuse 0.5 ambient 0.5 }
    }
    scale 10
    translate -20*z
  }

union {
  object { ovo
    translate < 0, 0, 1 >
    texture { tinta_transparente }
    interior { ior 1.5 }
  }
  object { piramide
    translate < -0.5, -0.5, -0.5 >
    texture { tinta_metalica }
  }
  object { chao }
}

// Original camera parameters:
// #local cam_ctr = <0.00,10.00,0.00>
// #local cam_vec = (<0.00,-10.00,2.00>-<0.00,10.00,0.00>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<0.00,0.00,1.00>,<10,7,5>,5.0,z,1.0)