HexaCone/survol.pov

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

#version 3.7;

#include  "globals.inc"

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

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

/*
 *	on fait passer un hexatruc
 */
#declare A = <-SzSol,   16,  8>;
#declare B = < SzSol+4, 18,  7>;
#declare P = Interpolate(A, B, NormClock);
object { HexaCone () rotate y*((12*NormClock)+80) translate P }


/*
 *  nouveau 11 fevrier 2025
 */
#declare A = <-21, -0.9, (SzSol/2)+1>;
#declare B = < 24,  0.7, (SzSol/2)+9>;
#declare P = Interpolate(B, A, NormClock);
object { HexaWood translate P }


object { Le_Decor }

// object { Repere translate y*2 }

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

#declare  Debut  = <-3, 47,  47>	;
#declare  Fin    = < 2, 43,  7>	;
#declare  Pos    = Cos_01(NormClock);
#declare  PosCam = Interpolate(Debut, Fin, Pos);

#declare LatCam = PosCam + <-1, -20, -(NormClock+9)>;

camera	{
	location	PosCam
	look_at		LatCam
	angle		54
	}