une couleur de plus

Makefile

@@ -37,7 +37,7 @@ bubblecut.png:		bubblecut.pov Makefile $(POVDEP)
 essai.png:		essai.pov Makefile $(POVDEP)
 	povray $(POVOPT) $(DIMS) -K$(CK) -i$< -o$@
 noise.png:		essai.png Makefile
-	convert -verbose -noise 5x15 $< $@
+	convert -verbose -noise 45x3 $< $@
 
 hexabenz.png:		hexabenz.pov Makefile $(POVDEP)
 	povray $(POVOPT) $(DIMS) +K$(CK) -i$< -o$@

README.md

@@ -48,7 +48,7 @@ de qualité (ce que fait je très empiriquement). Tout d'abord, on encode
 pour les mettre dans le grand Ternet mondial à partir de mon
 [ADSL](http://maison.tth.netlib.re/pov/hexacone.html) de campagne.
 Ensuite, un autre [script](./tools/linkfarmer.sh) assemble toute
-les sequence dans le produit final, en ajoutant générique et
+les sequences dans le produit final, en ajoutant générique et
 inter-titres.
 
 
@@ -57,8 +57,10 @@ inter-titres.
 ## Contact
 
 * La [mailing-list du tetalab](https://lists.tetalab.org/postorius/lists/tetalab.tetalab.org/) ;
-* IRC canal `#tetalab` sur le
-réseau de [Libera](https://libera.chat/). 
+* Par IRC, canal `#tetalab` sur le réseau de [Libera](https://libera.chat/).
+* Dans [Mastodon](https://mastodon.tetaneutral.net/@tth) et [Peertube](https://tube.interhacker.space/c/tth_channel/videos)
+
+
 
 
 

gadgets.inc

@@ -14,7 +14,7 @@
 
 merge {
 	cylinder { 0, y/2,   0.07 }
-	cylinder { 0, y/8, 0.37 }
+	cylinder { 0, y/8,   0.39 }
 	#local R = rand(Rng1);
 	#if ( R < 0.52)
 	  texture { T_Beton_1 }
@@ -44,9 +44,10 @@ merge {
 	  sphere { <C2X, H, C2Z>, R }
 	#end
 	#local R = rand(Rng1);
-	#if (R < 0.33)			texture { tPlasticOrange }
-	#elseif	(R < 0.66)		texture { tPlasticBlue }
-	#else 				texture { tPlasticGreen }
+	#if 	(R < 0.25)		texture { tPlasticOrange }
+	#elseif	(R < 0.50)		texture { tPlasticBlue   }
+	#elseif	(R < 0.75)		texture { tPlasticPrune  }
+	#else 				texture { tPlasticGreen  }
 	#end	// if
 
 	scale <0.62, 0.5, 0.61>
@@ -104,7 +105,7 @@ prism {
 
 #macro HexaPole_tubes ()
 #local R = 0.04;
-#local E = 0.58;
+#local E = 0.51;
 #local H = H_cone*1.5;
 union {
 	#for (A, 0, 359, 60)

globals.inc

@@ -88,6 +88,9 @@ normal { dents 0.25 scale 3 }
 finish { roughness 1.00 }
 }
 /* ------------------------------------------------------------ */
+/*
+ *	XXX	the finish need a refactoring
+ */
 #declare tPlasticOrange = texture
 {
     pigment{rgb <2.000, 0.50, 0.0>}
@@ -117,17 +120,27 @@ finish { roughness 1.00 }
       specular 0.3
       }
 }
+#declare tPlasticPrune = texture
+{
+    pigment{rgb <1.50, 0.30, 1.50>}
+    finish {
+      ambient 0.1
+      diffuse 0.6
+      specular 0.3
+      }
+}
 
+/* ------------------------------------------------------------ */
 /* this texture will be clock dependent XXX */
 #declare Flashy = texture {
 pigment {
 	onion
 	colour_map {
 		[0.00,  Red * 0.70	]
-		[0.33,  Gray50		]
+		[0.33,  Gray40		]
 		[1.00,  Blue * 0.70	]
 		}
-	turbulence 3.14159
+	turbulence 3.14159 + sin(NormClock*3.14159)
 	scale	0.50
 	}
 finish {
@@ -135,9 +148,20 @@ finish {
 	}
 }
 
+/*	new: 28 octobre 2025			*/
+#declare Ground_Texture = texture
+{
+pigment	{ rgb <0.51, 0.58, 0.23> }
+normal { dents 0.28 scale 1.5}
+finish	{
+	ambient 0 specular 0.5 metallic roughness 0.18
+	reflection { 0.5 metallic }
+	}
+}
+
 /* ------------------------------------------------------------ */
 /*
- *
+ *	Textures avec les six teintes "de base"
  */
 #declare R_Texture = texture {
 	pigment { rgb <1.0, 0.0, 0.0> } finish { ambient 0.33 } }
@@ -180,4 +204,7 @@ finish {
   resultat
 #end
 
-/* ------------------------------------------------------------ */
+/* ============================================================ */
+
+#debug "\n GLOBALS INCLUDED\n"
+

hexawood.inc

@@ -106,8 +106,18 @@ union	{
 
 #declare HW_Anneau0 = object 
 {
-torus { Hc_rad*0.31, 0.05 scale <1, 0.75, 1>
-		texture {  GoldDark } translate y*0.32 }
+merge	{
+	torus { Hc_rad*0.31, 0.06 scale <1, 0.55, 1> }
+	#for (Foo, 0, 359, 60)
+	  #local DX = Hc_rad*0.31 * sin(radians(Foo));
+	  #local DZ = Hc_rad*0.31 * cos(radians(Foo));
+	  #local HC = 0.30 + (0.03*rand(Rng2));
+	  cone { 0, 0.035, y*HC, 0.0001 translate <DX, 0, DZ> }
+	#end		// FOR
+	}
+texture {  GoldDark }
+rotate y * 45 * Cos_010(NormClock)
+translate y*0.32
 }
 
 #declare HexaWood = object

xperiment.inc

@@ -4,7 +4,25 @@
  *	A cosy place for experimental things (2025/10/27)
  *
  */
-#macro Wagonnet_0 (Longueur)
+/* =============================================================== */
+#macro Pointe_Wagonnet_0 ()
+merge	{
+	cone 	{	0, 0.06, y*0.33, 0.001	}
+	sphere  { 	0, 0.06			}
+	#local R = rand(Rng1);
+	#if	(R < 0.25)
+	  texture { T_Chrome_1A }
+	#elseif	(R < 0.50)
+	  texture { T_Chrome_2B }
+	#elseif	(R < 0.75)
+	  texture { T_Chrome_3C }
+	#else
+	  texture { T_Chrome_4D }
+	#end	// IF
+	}
+#end		// Macro
+/* --------------------------------------------------------------- */
+#macro Corps_Wagonnet_0 (Longueur)
 object {
 	/* le corps */
 	merge	{
@@ -19,7 +37,7 @@ object {
 
 	/* le kiosque (est-ce un sous-marin ?) */
 	merge	{
-		#local H2 = L2 * 0.60;
+		#local H2 = L2 * 0.50;
 		cylinder { <0, 0, 0>,	<0, H2, 0>, R/4		}
 		sphere   { <0, 0, 0>, R/4
 			   scale <1, 0.5, 1> translate y*H2
@@ -28,17 +46,32 @@ object {
 		}
 	#local R = rand(Rng1);
 	#if (R < 0.333)
-	  texture { Soft_Silver					}
-	#elseif (R < 0.666)
+	  texture { T_Brass_2C					}
+	#elseif (R < 0.25)
 	  texture { GoldDark					}
+	#elseif (R < 0.50)
+	  texture { T_Chrome_5A }
 	#else
-	  texture { Lightning1 rotate z*90 scale 0.11		}
+	  // texture { Lightning1 rotate z*90 scale 0.09		}
+	  texture { T_Gold_3C }
 	#end 
 	}
 }
 #end		// macro
-
-// =======================================================
+/* --------------------------------------------------------------- */
+#macro Wagonnet_0 (Longueur)
+union	{
+	object { Corps_Wagonnet_0 (Longueur) }
+	#for (Foo, 0, 5)
+	  #local DX = (-1.5+Foo*0.35);
+	  #local RP = -30 + (60 * rand(Rng1));
+	  object { Pointe_Wagonnet_0 ()
+		translate <DX, 0.28, 0> rotate x*RP }
+	#end
+	object { Repere scale 0.75 translate <0.6, 0.55, 0.25> }
+	}
+#end		// macro
+/* =============================================================== */
 /*
  *	nouveau du 25 octobre 2025
  */
@@ -157,18 +190,6 @@ scale 0.5
 // rotate -y * (clock*0.33)
 #end
 // =======================================================
-/*
- *	new: 28 octobre 2025
- */
-#declare Ground_Texture = texture
-{
-pigment	{ rgb <0.51, 0.58, 0.23> }
-normal { dents 0.28 scale 1.5}
-finish	{
-	ambient 0 specular 0.5 metallic roughness 0.18
-	reflection { 0.5 metallic }
-	}
-}
 
 
 // ==============================================================