/*
 */

object { Les_Bibelots rotate y*clock translate <28, -1, -27> }

/*
 *	on fait passer un hexatruc dans le ciel
 */
#declare A = <-SzSol,   22,  -10>;
#declare B = < SzSol+4, 18,  -11>;
#declare P = Interpolate(A, B, NormClock);
object { HexaCone () rotate y*((12*NormClock)+80) translate P }


/*
 *	le vaisseau "trident" passe a travers les
 *	trous de l'underground
 */

#declare Truc = object
{
cylinder { -y, y, 0.8 }
pigment { color Red }
}

#fopen Trid "WS/tridents.log" write
#for (Foo, 0, 5)
  #declare Dy = -3+(11*NormClock);
  #declare Tr = UnderHoles[Foo] + <0, Dy, 0>;
  #write (Trid, Foo, "  ", NormClock, "  ", Dy, "  ",
		UnderHoles[Foo], "  ", Tr, "\n")
  object { Trident_A () translate Tr }
#end
#fclose Trid

/*
 *	echange hexacone et hexabenz
 */ 
#declare HC_A = <0.03,  2.18,  0.17>;
#declare HC_B = <3.00, 11.07, 11.09>;
#declare HC_P = Interpolate(HC_A, HC_B, Cos_01(NormClock));
#declare RX   = -9+(NormClock*11);
#declare RY   = 122 * (exp(NormClock) - 1.0);
object { HexaCone ()
		rotate <RX, RY, -4>
		translate HC_P
	}
#declare HB_A = <-5.00, 10.0,  6.33>;
#declare HB_B = < 0.03, 2.32, -0.37>;
#declare HB_P = Interpolate(HB_A, HB_B, Cos_01(NormClock));
#declare RY   = -75 * (exp(NormClock*1.8) - 1.0);
#declare RZ   = -7+(7*NormClock);
object { HexaBenz ()
		rotate <6, RY, RZ> translate HB_P }

/*
 *	passage d'un hexawood près de la base
 */
#declare A = <-21, 1.7, (SzSol/2)+8>;
#declare B = < 24, 1.6, (SzSol/2)+5>;
#declare P = Interpolate(A, B, NormClock);
object { HexaWood translate P }