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 /* ------------------------------------------------------------ */