adjustements MUST be tested

This commit is contained in:
Tonton Th 2025-09-16 14:21:20 +02:00
parent 7d6e50cb7d
commit 55a174f4f2

View File

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