Increased the render times errr... added blurred reflection and a bright
sphere. Unfortunately the mirror is now visible but I think the white glow
is interesting, although I didn't intend to create it. Feel free to
simplify or speed up my code.

//********************************************************************
#include "colors.inc"
#include "stones.inc"

#default {finish {ambient 0}}

// global_settings + photons added by William
global_settings {
   max_trace_level 99
   adc_bailout 1/127

   photons {
     count 20000
     max_trace_level 10
     autostop 0
     jitter 0
   }
 }

// end global_settings

// Begin additions by Yadgar
#declare s1=seed(1979);

#declare Yadgar_Silver = texture { //TA
   pigment { color rgb 0.75 }
   finish {
      brilliance 0.7
      diffuse 1
      reflection 0.5
      specular 0.8
      roughness 0.001
   }
};

#declare Silver_Ball= sphere {
    0, 0.04
    texture {Yadgar_Silver}
}
// End additions by Yadgar

camera {
   location <-5,10,-20>
   look_at 0
}

light_source {
   <1.5,1.3,-1.0>*10 color rgb 1.2 //brightened by Lukas Winter
   spotlight point_at y  radius 15 falloff 25 area_light  x*2,y*2,25,25
   circular    orient    adaptive 0 photons {
     refraction on reflection on
   }
 }


//changes by Lukas Winter
#macro blurred_reflection(pigm, fin, amount, sampl)
  texture
  {
    average
    texture_map
    {
      #while(sampl > 0)
        [1
          pigment { pigm }
          finish { fin }
          normal
          {
            bumps amount
            rotate <rand(s1), rand(s1), rand(s1)>
            translate x*rand(s1)
            scale rand(s1)*.1
          }
        ]
        #declare sampl = sampl -1;
      #end
    }
  }
#end

#declare plane_pigment = pigment { Grey };
#declare plane_finish = finish { reflection .5 specular .2 };
plane
{
   y, 0
   blurred_reflection(plane_pigment,
     plane_finish,
     .4, 15)
   no_reflection
   photons
   {
     reflection off
     collect on
   }
}

plane
{
  y, 0
  pigment { plane_pigment }
  finish { plane_finish }
  no_image
  no_shadow
}


light_source
{
  <-8, .8, 3>
  color <1, 1, .8>
  fade_power 2
  fade_distance .8
}

sphere
{
  <-8, .8, 3>, .8
  pigment
  {
    rgbt <1, 1, 1, 1>
  }
  hollow
  interior
  {
    media
    {
      emission 1.4*<1, 1, .8>
    }
  }
}


//end changes by Lukas Winter

#macro rubber(col)
   texture {
     pigment {color col}
     finish {specular 1/4}
     normal {bumps 1/50 scale 1/100}
   }
#end

sphere {<0,3,0>, 3  rubber(rgb x)}
sphere {<4,2,-3>, 2 rubber(rgb x+y)}
sphere {<-2,1,-4>, 1  rubber(rgb z)}

// Box added by William
box {
   <0, 0, 0>
   <2, 2, 2>
   //Distorted by Alain
   rotate -21
   scale<1.3,1,0.8>
   rotate 21
   //end distortion
   rotate y * 45
   translate z * -5
   texture
   {
      pigment { color rgbt 0.75 }
      normal {bumps 0.5 scale 0.2}
      finish {
       brilliance 0.5
       diffuse 0.1
       reflection 0.5
       specular 0.75
       roughness 0.001
     }
     
   }
   interior
   {
     ior 1.35
   }
   photons {
     target
     refraction on
     reflection on
     collect off
   }
   }
// End of William's box

// Begin additions by Yadgar
#declare n=0;

#while (n<1800)
    #declare r1=rand(s1)*360;
    #declare r2=asin(rand(s1)*2-1);
    object { Silver_Ball translate <0, 3, 0>+3*<sin(r1*(pi/180))*cos(r2),
sin(r2), cos(r1*(pi/180))*cos(r2)> }
    #declare n=n+1;
#end

#declare n=0;

#while (n<800)
    #declare r1=rand(s1)*360;
    #declare r2=asin(rand(s1)*2-1);
    object { Silver_Ball translate <4, 2,
-3>+2*<sin(r1*(pi/180))*cos(r2), sin(r2), cos(r1*(pi/180))*cos(r2)> }
    #declare n=n+1;
#end

#declare n=0;

#while (n<200)
    #declare r1=rand(s1)*360;
    #declare r2=asin(rand(s1)*2-1);
    object { Silver_Ball translate <-2, 1, -4>+<sin(r1*(pi/180))*cos(r2),
sin(r2), cos(r1*(pi/180))*cos(r2)> }
    #declare n=n+1;
#end
// End additions by Yadgar

//Addition by Alain
union{
	plane{-z,-10 rotate -4*y}
	plane{z,-10 no_image no_shadow}
	pigment{rgb 0.9}
	hollow //to prevent the warning
	finish{reflection 0.97 }
	rotate 1*y
}
// End addition by Alain

// Addition by Tim Attwood
#macro RingOf(Obj StartPos IncRot Num)
  #local _COUNT = 0;
  #local _ROT = <0,0,0>;
  #while (_COUNT < Num)
    object {Obj translate StartPos
      rotate <_ROT.x,0,0>
      rotate <0,_ROT.y,0>
      rotate <0,0,_ROT.z>}
    #local _ROT = _ROT + IncRot;
    #local _COUNT = _COUNT + 1;
  #end
#end

#declare pin = union{
   union {
    sphere{0,0.0625}
    difference{ sphere{0,0.0625 scale 2*x}plane{x,0}} texture {
      pigment{Violet}
      finish {reflection 0.1
      specular 0.3
      roughness 0.001}
    }
    }
   cylinder{0,1.4*x,0.015}
   cone{<1.4,0,0>,0.015,<1.825,0,0>,0}
   rotate <0,0,-1.9>
   scale 1
   translate <0,-0.965,0>
   texture{Yadgar_Silver}
}
union { RingOf(pin, <-2,0,0>,<0,7,0>,12) rotate -75*y translate <-3,1,-5>}
// End addition by Tim Attwood


image found at http://www.geloescht.net/allerlei/pingpong2.png

Post a reply to this message