HexaCone/globals.inc

global_settings	{
	assumed_gamma  1.0
	ambient_light rgb <0.47, 0.47, 0.47>
	max_trace_level 15
	}

#include  "colors.inc"
#include  "metals.inc"
#include  "textures.inc"
#include  "stones.inc"
#include  "woods.inc"

#declare Rng1 = seed(1337);
#declare foo  = rand(Rng1);
#declare Rng2 = seed(now*24*60*60);
#declare bar  = rand(Rng2);

#declare  NormClock = clock / 360.0;

/* ------------------------------------------------------------ */
/*
 *	Some constants...
 */

#declare SzSol      = 34;
#declare SzBase     = 2.85;
#declare H_base     = 0.10;

#declare R_basecone = 0.117;
#declare H_cone     = 0.97;

#declare R_gyro     = 0.09;
#declare H_gyro     = 1.20;
#declare H_gylampe  = 0.20;

#declare H_QuadriLight = 20;
#declare E_QuadriLight = SzSol * 0.85;

/* ------------------------------------------------------------ */
/*
 *	Some textures...
 */

#declare WIP_color = texture
{
pigment { color Cyan*0.60 }
finish  { phong 0.01 }
}
/* ------------------------------------------------------------ */
/*
 *	Usefull macros
 */
#macro Cos_01( X )
  (0.5-0.5*cos( 3.141592654 * X))
#end
#macro Cos_010( X )
  (0.5-0.5*cos( 2 * 3.141592654 * X))
#end

/* Interpolate */
#macro Interpolate(A, B, pos)
  #local resultat = ( (B-A) * pos) +A;
  resultat
#end

/* ------------------------------------------------------------ */