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

global_settings{ max_trace_level 5 }


camera
 {
  location <2,4,-5>
  look_at <0,1.5,0>
/*  
  aperture 0.5
  focal_point <0,1.5,0>
  blur_samples 200
*/
 }

//light_source { < 2,5,2>   color White fade_power 2 fade_distance 4 }
//light_source { < -2,3,-3> color White fade_power 2 fade_distance 4 }
//light_source { < -4,4,5>  color White fade_power 2 fade_distance 4 }
light_source { < 0,2,0>  color White*2 fade_power 2 fade_distance 4 }
//light_source { < 0,10,0> color White * 2 }


plane{ y, 0 
       pigment { Blue }
//     normal { ripples 4 scale .4 } 
     }

// initialiser un rand.stream
#declare r = seed(0)

// weird cristals
union
 {

  #declare dx = -20
  #declare dy = -20
  #while (dy < 21)
   #declare dx=-20
   #while (dx < 21)

    #switch (rand(r))

     #range (0,0.4999999)
       box { 0, 1 
             translate <-0.5,0,-0.5>
     #break

     #range (0.5,1)
      sphere { 0, 0.5
     #break
    #end // switch

          rotate < rand(r), rand(r), rand(r)> * 360
          scale (0.75+ ( (1+dx * dx) + (1+dy * dy))/100)  
          translate <dx,0,dy> 
//          pigment { color rgb <rand(r),rand(r),rand(r)> }

          pigment { color rgbft < rand(r), rand(r), rand(r), 0.99, 0.1> }

          finish 
            {
             specular 1
             ambient 0
             diffuse 0
             refraction on // helps a lot!
             ior 1.5
             refraction 0.9
             reflection 0.15
            }

        }
     #declare dx=dx+1
    #end
    #declare dy=dy+1
   #end
   //texture { T_Glass1 };
   //pigment { color rgb < 0.9,0.9,0.9 > }
  }


#declare simplecristal=
  difference
   {
    box { <0,0,0> <1,5,1> translate <-.05,0,-0.5> scale 0.9 }
    union
    {
     box { <0,0,0> <1,5,1> scale 1.0  translate <-0.5,0,-0.5> rotate <0,0,5> translate <1.5,1,0> }
     box { <0,0,0> <1,5,1> scale 1.0  translate <-0.5,0,-0.5> rotate <0,0,-10> translate <-1.0,0,0> }
     box { <0,0,0> <1,5,1> scale 1.0  translate <-0.5,0,-0.5> rotate <6,0,0> translate <1.0,0,-1.5> }
     box { <0,0,0> <1,5,1> scale 1.0  translate <-0.5,0,-0.5> rotate <-25,0,0> translate <0.5,3,1> }
    }
  }

object
 {
  merge
   {
    object { simplecristal }
    object { simplecristal rotate <0,-61,0> translate <0.5,0,-0.4> }
    object { simplecristal rotate <-5,40,21> scale 0.5 translate <1.5,0,-0.7> }
    object { simplecristal rotate <-5,70,-10> scale 0.7 translate <1,0,-0.5> }
    object { simplecristal rotate <7,-80,7> scale 0.5 translate <-1.3,0,-0.3> }
    object { simplecristal rotate <-5,120,-10> scale 0.6 translate <-1.0,0,-0.2> }
    object { simplecristal rotate <3,30,-5> scale 0.85 translate <-0.7,0,-0.2>}

    object { simplecristal rotate <16,50,15> scale 0.4 translate <-0.2,0,-1>}
   }
  hollow
  //no_shadow
  scale 0.85
  translate <0,-0.1,0>
  
  texture { T_Glass1 }
  finish 
   { 
    specular 0.75 
    diffuse 0.1
   }
  
  //finish { ambient .25 }
  //pigment { Yellow }
  //finish { crand 0.2 }
  //texture { T_Silver_5E }
 }