// Persistence of Vision Ray Tracer Scene Description File
// File: tapeta_kulki.pov
// Vers: 3.5
// Desc: Tapeta z fotonowymi kulkami
// Date: 04/08/05
// Auth: Adam Druzd
//

#version 3.5;
#include "colors.inc"
#declare Photons=on;

global_settings {
  //assumed_gamma 1.0
  max_trace_level 15
  #if (Photons)          // global photon block
    photons {
      spacing 0.02                 // specify the density of photons
    }

  #end
}

// ----------------------------------------

camera {
  location  <2,30,-35>
  look_at   <2,2,0>
  angle 20
}

light_source {
  <-500,300,250>       // light's position
  color rgb <1,1,1>       // light's color
  photons {           // photon block for a light source
    refraction on
    reflection on
  }
}

sky_sphere {
  pigment {
    gradient y
    color_map {
      [0.0 rgb <0.6,0.7,1.0>]
      [0.7 rgb <0.0,0.1,0.8>]
    }
  }
}


plane {
  y, 0
  texture {
    pigment { color Gray }
  }
}


#declare M_Glass=    // Glass material
material {
  texture {
    pigment {rgbt 1}
    finish {
      ambient 0.0
      diffuse 0.05
      specular 0.6
      roughness 0.005
      reflection {
        0.1, 1.0
        fresnel on
      }
      conserve_energy
    }
  }
  interior {
    ior 1.5
    fade_power 1001
    fade_distance 0.9
    fade_color <0.5,0.8,0.6>
  }
}

#macro mc_piramida_kluek(promien, ilosc, poz, mat )
#local r=promien;
#local a=2*r;
#local k=sphere { <0,0,0>,r material { mat }  }

union
{
        #local ind1=0;
        #while(ind1<ilosc)
        	#local ind=ind1;
        	#while(ind<ilosc)
        		object { k translate <poz.x+ind*a-ind1*r,      poz.y+r,        poz.z+ind1*a*sqrt(3)/2> }
        		#local ind=ind+1;
        	#end
        	#local ind1=ind1+1;
        #end
        #if(ilosc>1)
                #local poz1=<poz.x+r, poz.y+a*sqrt(2/3), poz.z+(a*sqrt(3)/6)>;
                object { mc_piramida_kluek(r, (ilosc-1) ,poz1, mat) }
        #end
}
#end

object { mc_piramida_kluek(1,3,<0,0,0>, M_Glass) rotate y*-34}