From 1e11d7316e01f470b1449901f3f9c5c767a10e7b Mon Sep 17 00:00:00 2001
From: Tonton Th <tth@linda.buvette.org>
Date: Mon, 29 Jun 2026 15:58:02 +0200
Subject: [PATCH] add a door to the station

---
 incs/gare.inc | 35 +++++++++++++++++++++--------------
 1 file changed, 21 insertions(+), 14 deletions(-)

diff --git a/incs/gare.inc b/incs/gare.inc
index 4b1dd33..0dcfa83 100644
--- a/incs/gare.inc
+++ b/incs/gare.inc
@@ -5,29 +5,38 @@
 
 */
 
+#local H_quai = 110;
+
+#local Decoupe_porte_gare = object
+{
+merge	{
+	box { <-120, -1, -20>, <120, 240, 20> }
+	cylinder { <0, 0, -20>, <0, 0, 20>, 51
+		scale <1, 0.8, 1> translate y*230 }
+	}
+}
+
 #declare Corps_Gare = object
 {
 difference
 	{
 	box { <-600, 0, -200>, <600, 400, 200> }
 	box { <-590, 0, -190>, <590, 390, 190> }
-
-	#declare foo = -3;
-	#while (foo <= 3)
+	#for (foo, -1, 3)
 		#declare px = foo * 165;
-		box { <px-42, 120, -222>, <px+42, 275, 222> }
-		#declare foo = foo + 1;
+		box { <px-42, 110, -222>, <px+42, 255, 222> }
 	#end
-	
+	object { Decoupe_porte_gare translate <-430, 0, -200> }
+	}
+texture {
+	pigment { color White }
+	finish { phong 0.5 }
 	}
-pigment { color White }
-finish { phong 0.5 }
-translate y*100
 }
 
 #declare Quai_Gare = object
 {
-box { <-700, 0, 220>, <700, 100, -420> }
+box { <-700, 0, 220>, <700, H_quai, -420> }
 
 pigment { color White }
 finish { phong 0.4 }
@@ -35,15 +44,13 @@ finish { phong 0.4 }
 
 #include "incs/enseigne.inc"
 
-
-
 #declare Gare = object
 {
 union	
 	{
-	object { Corps_Gare }
+	object { Corps_Gare translate y*H_quai }
 	object { Quai_Gare }
-	object { Enseigne_Hello scale 15 translate <0, 460, -210>  }
+	object { Enseigne_Hello scale 15 translate <0, 465, -210>  }
 	}
 }