diff --git a/Makefile b/Makefile
index d10c226..5e56ded 100644
--- a/Makefile
+++ b/Makefile
@@ -5,6 +5,7 @@ POVOPT = +q9 +A0.05 -WT2   Declare=NbFrames=450  -d
 
 POVDEP = contexte.inc hexacone.inc hexabenz.inc		\
 		all.inc	hexastar.inc			\
+		architecture.inc			\
 		globals.inc hexawood.inc datas/hf.png	\
 		dynamic.inc trident.inc groundbase.inc	\
 		gadgets.inc xperiment.inc
diff --git a/architecture.inc b/architecture.inc
new file mode 100644
index 0000000..7bdf380
--- /dev/null
+++ b/architecture.inc
@@ -0,0 +1,38 @@
+/*
+ *	H E X A C O N E   -   A R C H I T E C T U R E
+ *   nouveau projet du Thu Dec  5 11:37:05 AM UTC 2024
+ *
+ *   file created on   Sat Jan 31 07:07:28 AM UTC 2026
+ */
+
+// ===========================================================
+#local Sz = 0.3;
+#macro Base_Col_A ()
+merge {
+	box { <-Sz, 0, -Sz>,     <Sz, 0.222, Sz>	}
+	#local B = Sz * 0.7;
+	box { <-B, 0, -B>, <B, 0.333, B>	}
+	}
+#end
+// -----------------------------------------------------------
+#macro Haut_Col_A ()
+object {
+	box { <-1, 0, -1>, <1, 0.333, 1> }
+	}
+#end
+// -----------------------------------------------------------
+#macro Fut_Col_A (H)
+object {
+cylinder { 0, H*y, 0.42 }
+}
+#end
+// -----------------------------------------------------------
+#macro Colonne_A (H)
+union	{
+	object { Haut_Col_A () translate y*H	}
+	object { Fut_Col_A  (H)			}
+	object { Base_Col_A ()			}
+	}
+#end
+// ===========================================================
+// ===========================================================
diff --git a/essai.pov b/essai.pov
index 80a14f5..56258a4 100644
--- a/essai.pov
+++ b/essai.pov
@@ -11,6 +11,9 @@
 #declare NO_DYNAMIC = 1;
 #include  "all.inc"
 
+// =======================================================
+#include  "architecture.inc"
+
 // =======================================================
 #declare LeGris = texture 
 {
@@ -253,7 +256,7 @@ union	{
 	object { Chose () translate < 2.2, 0,  2.32>		}
 	object { Chose () translate <-2.9, 0,  3.91>		}
 	object { Chose () translate < 2.9, 0, -4.07>		}
-	object { Chose () translate <-3.1, 0, -(3+NormClock)>	}
+	object { Colonne_A (2) translate <-3.1, 0, -3>		}
 	object { Chose () translate <-4.5, 0, -4>		}
 	object { Repere   translate 0.05*y }
 	}
@@ -268,7 +271,8 @@ union	{
 	  #declare E = 12 + (3*rand(Rng1));
 	  #declare Dx = E * sin(radians(I));
 	  #declare Dz = E * cos(radians(I));
-	  object { GyroPhare () translate <Dx, 0, Dz> }
+	  // XXX object { GyroPhare () translate <Dx, 0, Dz> }
+	  object { Colonne_A (3.2) translate <Dx, 0, Dz> }
 	#end
 	}
 }
@@ -308,7 +312,7 @@ union	{
 
 //  ------------------------------------------------------ ##
 
-#declare Selector = mod(int(clock/80)+20, 8);
+#declare Selector = mod(int(clock/80), 8);
 #debug concat("Selector = ", str(Selector, 6, 0), "\n")
 
 #declare AngleCam = 17 - 3*Cos_01(NormClock);