#include "colors.inc"
#include "textures.inc"  
#include "stones2.inc" 
#include "stoneold.inc"
#version unofficial MegaPov 0.4;
// +FT +QR +FN +AM2 +A0.1 +R5

global_settings {
   photons {
   	spacing .01
      gather 60, 100
      media 6, 1.5
      autostop 0
      jitter 1
      max_trace_level 4
      media on
  }
} 

#declare Seed=seed(5);

#declare Base=function {"Sphere",<1>}
#declare Moonlikebumps=
function {
   pigment {granite
      color_map {[0 rgb 0][1 rgb 1]}
      scale 2.5
   }
}

camera {
   direction 1
   location <-1,1,-1>*2
   look_at <0,0,0>
   angle 50
}

light_source
{
     <10,8,-15>
    color rgb<1,.9.9>
    spotlight 
     point_at <3,2,-5>
     radius 30
     falloff 40

     media_interaction on 
     media_attenuation on
     photons{
      global
      refraction on
      reflection on}  
    }
         
light_source
{
     <-10,3,0>
    color rgb <.9,1,.9>
    spotlight 
     point_at <-4,3,3>
     radius 30
     falloff 40

     media_interaction on 
     media_attenuation on
     photons{
      global
      refraction on
      reflection on}      
    }    

    
light_source
{
     <3,20,3>
    color White
    spotlight 
     point_at <3,4,-3>
     radius 5
     falloff 8

     media_interaction on 
     media_attenuation on
     photons{
      global
      refraction on
      reflection on}        
    }               
    
isosurface {
   function {
      Base(x,y,z)+Moonlikebumps(x,y,z)*.2
      //+(Oid(-y,-z,-x))*.2
      //+(Oid2(x,y,z))*.25/10
      //+(Oid3(x,y,z))*.25/20
   }
   eval
   accuracy .005
   contained_by{sphere{0,1}}
      texture {
         pigment {
            color rgbf<1-(0.2*rand(Seed)),1-(0.2*rand(Seed)),1-(0.2*rand(Seed)),1>
         }
      }
      interior {
         ior 2.417 
         dispersion 1.05
      }
      hollow
      finish {
         ambient 0.1 
         diffuse 0.4 
         reflection 0.9 
         phong 0.6 
         phong_size 200
      }

      photons{        
         target 1
         refraction on
         reflection on
         ignore_photons
     }
} 


box {<-1,-1,-1> <1,1,1> scale 40 hollow  inverse
   texture{
      pigment {
         color rgbf <1-(0.2*rand(Seed)),1-(0.2*rand(Seed)),1-(0.2*rand(Seed)),1>
      }
   }
   interior {
      media{
         intervals 1
         scattering { 4, rgb 0.04 extinction 1} // for some reason more extinction is needed for adaptive?
         samples 50, 50  //use 1,4 or so for "quick" tests
         method 3
         aa_threshold .1
         aa_level 2
         jitter .2
      }
   }
}   
   
// the tile floor


#declare counter=0; 
#declare row =50;
#declare col= 50;


union{
#while (counter <row)  
        #declare counter2=0;
        #while (counter2<col)
        superellipsoid {<0.2,0.2> scale <.9,0.2,.9>translate <(1.8*counter)-(row-1),-.16,1.8*counter2-(col-1)> 
        texture{T_Stone12 scale 10} scale<0.2,1,0.2>}
        #declare counter2=counter2+1 ;
        #end
        #declare counter=counter+1;

#end 
        
box {<-(row+1),-2,-(col+1)><(row+1),-.1,(col+1)> 

texture {Stone15 scale 0.2}} scale <5,1,5>}