#include "colors.inc"

///////////////////////////////////////

#declare PHOTONS           = 0;
#declare PHOTONS_DENSITY   = 0.01;

#declare RADIOSITY         = 1;
#declare RADIOSITY_SAMPLES = 500;

#declare FAST_TEXTURES     = 0;
#declare FAST_LIGHTS       = 0;
#declare FAST_OBJECTS      = 0;

#declare FOCAL_BLUR        = 1;
#declare BLUR_SAMPLES      = 200;

#declare DISPERSION        = 0;
#declare DISP_FACTOR       = 1.05;
#declare DISP_SAMPLES      = 50;

///////////////////////////////////////

global_settings
 {
  ambient_light 0.5
  
  max_trace_level 5 // default: 5

  assumed_gamma 1
  
  #if (RADIOSITY=1)
  radiosity
   {
    recursion_limit 2

    pretrace_start 0.08
    pretrace_end   0.01
    count RADIOSITY_SAMPLES

    nearest_count 10
    error_bound 0.2


    low_error_factor .5
    gray_threshold 0.0
    minimum_reuse 1/800 //0.3
    brightness 1

    adc_bailout 0.01/2  
    
    normal on
    
   }
  #end

  #if (PHOTONS=1)
  photons
   {
    max_trace_level 5

    spacing PHOTONS_DENSITY
    gather 50,100

    autostop 0
    jitter 0 
    
    media 100
   }
  #end

 }

///////////////////////////////////////
#macro photonize(light)
 #if (PHOTONS=1)
  #if (light=1)
   photons
    {
     reflection on
     refraction on
    }
  #else 
   photons
    {
     target
     collect
     reflection on
     refraction on
    } 
  #end
 #end
#end


///////////////////////////////////////
camera 
 { 
  location <2,2,-1> * 5
  look_at <0,0,0>
  
  
  #if (FOCAL_BLUR=1)
     focal_point < 0, 0, 0>
     aperture 0.3
     blur_samples BLUR_SAMPLES

  #end
 }


///////////////////////////////////////
#macro FluoCube(c1,c2)
 union                                    
  {
   superellipsoid{ <0.2,0.2> texture { c1 } }
   box { <-0.94,-0.94,-0.94> <0.94,0.94,0.94> texture { c2 } }
  }
#end

#declare r=seed(0);
#declare i=0;

#while (i<100)
 object 
  { 
   FluoCube( pigment{White/3}, pigment { Green*100 } ) finish { ambient 0.3 } 
   
   scale <0.1+rand(r),0.1+rand(r),0.1+rand(r)>
   translate <rand(r),rand(r),rand(r)>*5
   translate <-1,-1,-1>*2.5
  }
 #declare i=i+1;
#end