From 55a174f4f2c81c49e7e07ba774be63cb664cc172 Mon Sep 17 00:00:00 2001
From: Tonton Th <tth@linda.buvette.org>
Date: Tue, 16 Sep 2025 14:21:20 +0200
Subject: [PATCH] adjustements MUST be tested

---
 dynamic.inc | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/dynamic.inc b/dynamic.inc
index c2526ef..75fcfb6 100644
--- a/dynamic.inc
+++ b/dynamic.inc
@@ -18,7 +18,7 @@ union	{
 	object { HexaBenz ()			translate < K, 1.71, 0> }
 	}
 }
-object { BiBenz rotate -y*(clock*0.19) translate Pos_RedB_0 }
+object { BiBenz rotate -y*(clock*0.21) translate Pos_RedB_0 }
 
 #declare BiCone = object
 {
@@ -47,7 +47,7 @@ object { HexaCone () rotate y*((12*NormClock)+80) translate P }
 #for (Foo, 0, 5)
   #declare Dy = rand(Rng1)-3+(11*NormClock);
   #declare Tr = UnderHoles[Foo] + <0, Dy, 0>;
-  #declare Ry = ((rand(Rng1)-NormClock)*77);
+  #declare Ry = ((rand(Rng1)-NormClock)*87);
   #write (Trid, Foo, "  ", NormClock, "  ", Dy, "  ",
 		Ry, "  ", Tr, "\n")
   object { Trident_A () rotate y*Ry translate Tr }
@@ -55,6 +55,7 @@ object { HexaCone () rotate y*((12*NormClock)+80) translate P }
 #fclose Trid
 
 /*
+ *	----------------------------
  *	echange hexacone et hexabenz
  */ 
 #declare HC_A = <0.03,  2.18,  0.17>;
@@ -62,17 +63,19 @@ object { HexaCone () rotate y*((12*NormClock)+80) translate P }
 #declare HC_P = Interpolate(HC_A, HC_B, Cos_01(NormClock));
 #declare RX   = -9+(NormClock*11);
 #declare RY   = 122 * (exp(NormClock) - 1.0);
+#declare RZ   = 33  * cos(NormClock*7.65);
 object { HexaCone ()
-		rotate <RX, RY, -4>
+		rotate <RX, RY, RZ>
 		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 RX = Cos_01(NormClock);
 #declare RY   = -75 * (exp(NormClock*1.8) - 1.0);
-#declare RZ   = -7+(7*NormClock);
+#declare RZ   = abs(33  * sin(NormClock*7.65));
 object { HexaBenz ()
-		rotate <6, RY, RZ> translate HB_P }
+		rotate <RX, RY, RZ> translate HB_P }
 
 /*
  *	passage d'un hexawood près de la base
@@ -80,7 +83,7 @@ object { HexaBenz ()
 #declare A = <-25, 0.4, (SzSol/2)+4>;
 #declare B = < 29, 0.5, (SzSol/2)+1>;
 #declare P = Interpolate(A, B, NormClock);
-#local   K = NormClock*36;
+#local   K = NormClock*31;
 #local   R = 16.64 * cos(K);
 #local   H =  0.52 * pow(sin(K), 3);
 #declare P_hexawood = P + <0, 0.26+H, 0>;