add hexawood view

dynamic.inc

@@ -1,7 +1,11 @@
 /*
  */
 
-object { Les_Bibelots rotate y*clock translate <28, -1, -27> }
+#include  "gadgets.inc"
+
+// 
+object { Les_Bibelots rotate  y*clock translate UnderHoles[2] }
+object { Les_Machins rotate -y*clock translate UnderHoles[3] }
 
 /*
  *	on fait passer un hexatruc dans le ciel
@@ -17,21 +21,16 @@ object { HexaCone () rotate y*((12*NormClock)+80) translate P }
  *	trous de l'underground
  */
 
-#declare Truc = object
-{
-cylinder { -y, y, 0.8 }
-pigment { color Red }
-}
-
-#fopen Trid "WS/tridents.log" write
+// #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 }
+//  #write (Trid, Foo, "  ", NormClock, "  ", Dy, "  ",
+//		UnderHoles[Foo], "  ", Tr, "\n")
+  object { Trident_A () rotate y*((rand(Rng1)-NormClock)*77)
+		translate Tr }
 #end
-#fclose Trid
+// #fclose Trid
 
 /*
  *	echange hexacone et hexabenz
@@ -56,7 +55,29 @@ object { HexaBenz ()
 /*
  *	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 A = <-21, 0.4, (SzSol/2)+6>;
+#declare B = < 24, 0.5, (SzSol/2)+3>;
 #declare P = Interpolate(A, B, NormClock);
-object { HexaWood translate P }
+#local   K = NormClock*36;
+#local   R = 16.64 * cos(K);
+#local   H =  0.48 * pow(sin(K), 3);
+#declare P_hexawood = P + <0, 0.26+H, 0>;
+object { HexaWood rotate z*R translate P_hexawood }
+
+/*
+ *	survol par un trident
+ */
+#declare A = < 2, 49, -20>;
+#declare B = <-3, 47,  22>;
+#declare P = Interpolate(A, B, NormClock);
+object { Trident_A () rotate y*(clock*2.7)
+		rotate z*80
+		rotate <2, 94, 0>
+		translate P }
+
+
+
+
+
+
+