HexaCone/essai.pov

/*
 *	H E X A C O N E   -   E S S A I
 *   nouveau projet du Thu Dec  5 11:37:05 AM UTC 2024
 */

#version 3.7;

#include  "globals.inc"

#include  "contexte.inc"
#include  "gadgets.inc"
#include  "elements.inc"
#include  "hexabenz.inc"

// =======================================================

#macro GGG_Un_Cone ()	
merge	{
	#local RA = R_basecone;
	cone { 0, RA, y*0.89, 0.000001 }
	sphere { 0, RA	}
	}
#end

#macro GGG_Cones ()
union	{
	#for (foo, 0, 360, 60)
	#local E = 0.50;
	#local Tx = 1.333 * E * sin(radians(foo));
	#local Tz =         E * cos(radians(foo));
	object {
		GGG_Un_Cone ()
		#if ( rand(Rng1) < 0.5001 )
		  texture { T_Wood32 rotate 17  scale  1.50 }
		#else
		  texture { T_Wood23   scale  2.50 }
		#end
		// rotate -z*foo
		translate <Tx, 0, Tz>
		}
	#end   // end for
	}
#end

object { GGG_Cones () translate y*0.5 }

// =======================================================

object { OpenBox translate y*1.2 }
object { Le_Decor }

// object { Repere   translate y*2 }

// =======================================================

#local CamX = -2.7 + (3.8*Cos_010(NormClock));
#local CamY = 1.81  + (4*sqrt(NormClock));
#local CamZ = 1.7 + (3.8*Cos_010(NormClock));
camera	{
	// fisheye
	location	<CamX, CamY, 9.99>
	look_at		<0, 0.5, 0>
	angle		32 + 4*Cos_01(NormClock)
	}