// Last edited on 2003-04-12 05:30:51 by stolfi

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

background{White}

#declare ctr = <0,-0.3,0>;
#declare cam = <9,2.5,-16>;

camera {
  location ctr + 0.70*cam
  right -0.60*x up 0.80*y
  sky <0,1,0>
  look_at ctr
}

light_source { 50*<10, 10, -10> color 1.2*White }
light_source { 50*<-10, 20, -10> color 0.6*White }

#declare cor_espelho = < 0.5, 0.5, 0.5 >;
#declare tx_espelho =  
   
   texture{
     pigment { rgb cor_espelho}
     finish{
       ambient 0.05 diffuse 0.05
       reflection cor_espelho
       specular 0.20 roughness 0.05
      
     }
   }
     
#declare cor_portacopo  = < 0.5, 0.5, 0.9 >;
#declare tx_portacopo = 
   texture{
      finish{
       ambient 0.1 diffuse 0.1
       reflection 0.25
       specular 1 roughness 0.001
      
     }
     pigment { color cor_portacopo filter 1}
   }

      cone {
    <0, 1.6, 0>, 0.1
    <0, 0.6, 0>, 0.6

   texture { T_Stone25 scale 4 }
  }


// ogiva ///////////////////////////////////////////
 difference {
   intersection {
   
   
     sphere { <0, 0, 0>, 1
        translate -0.3*x
      }
      sphere { <0, 0, 0>, 1
        translate 0.3*x
      }
      texture { tx_espelho}
      rotate 90*y
    }
    cylinder { <0, 0, -1> <0, 0, 1>, .35
      pigment { Blue }
    }
  
  translate y*-.3
  }

// Porta Copos //////////////////////////////////

union {

torus {
     1.2, 0.3
     translate <0,-1.6,-1.6>
      texture { tx_portacopo }
      interior {ior 2.0}

  }
torus {
     1.2, 0.3
     translate <0,-1.6,1.6>
     texture { tx_portacopo }
     interior {ior 2.0}

  }
torus {
     1.2, 0.3
     translate <-1.6,-1.6,0>

     texture { tx_portacopo }
      interior {ior 2.0}

  }
torus {
     1.2, 0.3
     translate <1.6,-1.6,0>
     texture { tx_portacopo }
     interior {ior 2.0}

  }

  }
  


plane {

   y, -2
  pigment { checker color White color rgb <0.9,0.9,0.9>}

   }