From c8a4d122c58519b594837f1b9a21283817a38ce3 Mon Sep 17 00:00:00 2001
From: rubidium <rubidium@openttd.org>
Date: Sun, 9 Jan 2011 12:17:52 +0000
Subject: [PATCH] (svn r21743) -Fix [FS#4386]: coast tiles weren't drawn under
 bridges

---
 src/tunnelbridge_cmd.cpp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/tunnelbridge_cmd.cpp b/src/tunnelbridge_cmd.cpp
index f47708ce75..9b6bb83501 100644
--- a/src/tunnelbridge_cmd.cpp
+++ b/src/tunnelbridge_cmd.cpp
@@ -39,6 +39,7 @@
 #include "company_base.h"
 #include "newgrf_railtype.h"
 #include "object_base.h"
+#include "water.h"
 
 #include "table/sprites.h"
 #include "table/strings.h"
@@ -1104,7 +1105,12 @@ static void DrawTile_TunnelBridge(TileInfo *ti)
 		}
 
 		if (!ice) {
-			DrawClearLandTile(ti, 3);
+			TileIndex next = ti->tile + TileOffsByDiagDir(tunnelbridge_direction);
+			if (ti->tileh != SLOPE_FLAT && ti->z == 0 && HasTileWaterClass(next) && GetWaterClass(next) == WATER_CLASS_SEA) {
+				DrawShoreTile(ti->tileh);
+			} else {
+				DrawClearLandTile(ti, 3);
+			}
 		} else {
 			DrawGroundSprite(SPR_FLAT_SNOW_DESERT_TILE + SlopeToSpriteOffset(ti->tileh), PAL_NONE);
 		}