// Persistence of Vision Ray Tracer Scene Description File
// File: Clipka_cached macros_test.pov
// Vers: 3.7.1 Cached Macros version
// Desc: Basic Scene Example
// Date: mm/dd/yy
// Auth: ?
//

#version 3.71;

#include "colors.inc"
#include "rand.inc"

global_settings {
  assumed_gamma 1.0
}

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

camera {
  location  <0.0, 5, -40.0>
  direction 1.5*z
  right     x*image_width/image_height
  look_at   <0.0, 0.0,  0.0>
}

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

light_source {
  <0, 0, 0>            // light's position (translated below)
  color rgb <1, 1, 1>  // light's color
  translate <-3, 3, -3>*1000
}

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

#declare Surface =
plane {
  y, 0
  pigment { color srgb <0.7, 0.5, 0.3> }
}

object {Surface}

#macro Rods()
#ifndef(Box)
#declare Box =
box {
  <-10, 0, -10>,<10, 0.2, 10>
  translate 10*y
}
#declare Rand = seed(1101);
#end

#declare Norm  = <0, 0, 0>;
#declare Start = VRand_In_Obj(Box, Rand);
#declare Pos   = trace (Surface, Start, -y, Norm);   

#declare Cyl =
cylinder {
  0, <0,1,0>, 0.05
  scale <1, RRand(0.5, 1.5, Rand), 1>
  translate Pos
  pigment {srgb <RRand(0.1, 0.9, Rand), RRand(0.1, 0.9, Rand), RRand(0.1, 0.9, Rand)>}
}
#end

//#include "Thomas de Groot/Rods.mcr"

#declare I=0;

#for (I, 0, 1000000)
Rods()
object {Cyl}

#if (mod(I,1000) = 0)    
  #debug concat("\nRods: ", str(I,4,0)) 
#end 
#end