enhanced hexapole

gadgets.inc

@@ -3,12 +3,29 @@
  *   nouveau projet du Thu Dec  5 11:37:05 AM UTC 2024
  */
 
-#version 3.7;
-
 // =======================================================
-#macro HexaPole ()
+
+#macro Base_hexapole ()
+prism {
+	linear_sweep
+	linear_spline
+	0, // sweep the following shape from here ...
+	1, // ... up through here
+	7, // the number of points making up the shape ...
+    <3,5>, <-3,5>, <-5,0>, <-3,-5>, <3, -5>, <5,0>, <3,5>
+	#if (rand(Rng1) < 0.5)
+	  texture { T_Beton_1 }
+	#else
+	  texture { T_Beton_2 }
+	#end  // if
+  }
+#end   // macro
+
+//  ------------------------------------------------------ ##
+
+#macro HexaPole_tubes ()
 #local R = 0.06;
-#local E = 0.61;
+#local E = 0.666666;
 #local H = H_cone*4;
 union {
 	#for (A, 0, 359, 60)
@@ -37,6 +54,17 @@ union {
 #undef H
 #undef R
 #end
+
+//  ------------------------------------------------------ ##
+
+#macro HexaPole ()
+union	{
+	object { Base_hexapole () scale <0.33, 0.2, 0.33> }
+	object { HexaPole_tubes () translate y*0.2 }
+	rotate y*(33*rand(Rng1))
+	}
+#end   // macro
+
 // =======================================================
 #declare OpenBox = object
 {