From f338b1e9255f3ea855ee65bc734e67a5b7b5b53d Mon Sep 17 00:00:00 2001
From: Tonton Th <tth@linda.buvette.org>
Date: Tue, 25 Mar 2025 14:50:14 +0100
Subject: [PATCH] add hexawood view

---
 Makefile     |  5 ++++-
 dynamic.inc  | 51 ++++++++++++++++++++++++++++++++++++---------------
 hexawood.pov | 30 ++++++++++++++++++++++++++++++
 3 files changed, 70 insertions(+), 16 deletions(-)
 create mode 100644 hexawood.pov

diff --git a/Makefile b/Makefile
index 32e7793..c028cad 100644
--- a/Makefile
+++ b/Makefile
@@ -11,7 +11,7 @@ CK=180
 PNG:	essai.png scene.png topview.png passage.png	\
 	orbite.png hexabenz.png escadrille.png		\
 	hexacone.png remote.png survol.png cutoff.png	\
-	carto.png
+	carto.png hexawood.png
 	echo "make PNG ck=$(CK) done" >> WS/log
 
 
@@ -30,6 +30,9 @@ hexabenz.png:		hexabenz.pov Makefile $(POVDEP)
 hexacone.png:		hexacone.pov Makefile $(POVDEP)
 	povray $(POVOPT) $(DIMS) +K$(CK) -i$< -o$@
 
+hexawood.png:		hexawood.pov Makefile $(POVDEP)
+	povray $(POVOPT) $(DIMS) +K$(CK) -i$< -o$@
+
 passage.png:		passage.pov Makefile $(POVDEP)
 	povray $(POVOPT) $(DIMS) -K$(CK)  -i$< -o$@
 
diff --git a/dynamic.inc b/dynamic.inc
index b550528..e849cc0 100644
--- a/dynamic.inc
+++ b/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 }
+
+
+
+
+
+
+
diff --git a/hexawood.pov b/hexawood.pov
new file mode 100644
index 0000000..c7386c4
--- /dev/null
+++ b/hexawood.pov
@@ -0,0 +1,30 @@
+/*
+ *	H E X A C O N E   -   H E X A W O O D
+ *
+ *	
+ */
+
+#version 3.7;
+
+#include  "globals.inc"
+
+#include  "contexte.inc"
+#include  "hexacone.inc"
+#include  "hexabenz.inc"
+#include  "hexawood.inc"
+#include  "trident.inc"
+
+#include  "dynamic.inc"
+
+// =======================================================
+
+object { Le_Decor            }
+
+object { Repere translate <10, 1, 0> }
+
+camera	{
+	location	<40, 2, 15>
+	look_at		<-20, 1.7, 20>
+	angle		42
+	}
+