//Description:
// a cylindrical prism 
// utilizing internal reflections
// red, green, and blue light sources
// exploits a buggy (?) feature in the pigment assignment

//Author: Ben Scheele
//Date: 8-23-2003   

/* for the animation, use this as the .ini file,
   or simply insert the switches into the command line window

[400X300 no AA ]
+w400 +h300 +ki0 +kf1 +kfi1 +kff140 +kc 

*/

global_settings{ max_trace_level 50 }

camera{ 
  location y
  look_at -y  
  angle 65
}   

#declare a = .5;
#declare b = 500;

#declare set = 
union{
  light_source{ <b*sqrt(3),5000,-b> rgb x*a }
  light_source{ <-b*sqrt(3),5000,-b> rgb y*a }
  light_source{ <0,5000,b*(2*sqrt(3)-1)> rgb z*a }
}   

object{ set }

object{ set translate -10000*y }

cylinder{ -6*y, 6*y, 1.01 rotate 180*clock*x

#declare c = .1;
  
  texture{
    pigment{ rgb <c,c,c,7> }
    finish{ reflection 1 conserve_energy specular .5 roughness .01 }
  }
  interior{ ior 1.6 
    caustics 1.4
    fade_distance 3
    fade_power 1.5  
  }
}