Add ScriptStoryPageElementList to get the contents of a page

[openttd/fttd.git] / src / elrail.cpp

/* $Id$ */

/*
 * This file is part of OpenTTD.
 * OpenTTD is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, version 2.
 * OpenTTD is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 * See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with OpenTTD. If not, see <http://www.gnu.org/licenses/>.
 */

/**
 * @file elrail.cpp
 * This file deals with displaying wires and pylons for electric railways.
 * <h2>Basics</h2>
 *
 * <h3>Tile Types</h3>
 *
 * We have two different types of tiles in the drawing code:
 * Normal Railway Tiles (NRTs) which can have more than one track on it, and
 * Special Railways tiles (SRTs) which have only one track (like crossings, depots
 * stations, etc).
 *
 * <h3>Location Categories</h3>
 *
 * All tiles are categorized into three location groups (TLG):
 * Group 0: Tiles with both an even X coordinate and an even Y coordinate
 * Group 1: Tiles with an even X and an odd Y coordinate
 * Group 2: Tiles with an odd X and an even Y coordinate
 * Group 3: Tiles with both an odd X and Y coordinate.
 *
 * <h3>Pylon Points</h3>
 * <h4>Control Points</h4>
 * A Pylon Control Point (PCP) is a position where a wire (or rather two)
 * is mounted onto a pylon.
 * Each NRT does contain 4 PCPs which are bitmapped to a byte
 * variable and are represented by the DiagDirection enum
 *
 * Each track ends on two PCPs and thus requires one pylon on each end. However,
 * there is one exception: Straight-and-level tracks only have one pylon every
 * other tile.
 *
 * Now on each edge there are two PCPs: One from each adjacent tile. Both PCPs
 * are merged using an OR operation (i. e. if one tile needs a PCP at the position
 * in question, both tiles get it).
 *
 * <h4>Position Points</h4>
 * A Pylon Position Point (PPP) is a position where a pylon is located on the
 * ground.  Each PCP owns 8 in (45 degree steps) PPPs that are located around
 * it. PPPs are represented using the Direction enum. Each track bit has PPPs
 * that are impossible (because the pylon would be situated on the track) and
 * some that are preferred (because the pylon would be rectangular to the track).
 *
 * @image html elrail_tile.png
 * @image html elrail_track.png
 *
 */

#include "stdafx.h"
#include "map/rail.h"
#include "map/road.h"
#include "map/slope.h"
#include "map/bridge.h"
#include "map/tunnelbridge.h"
#include "viewport_func.h"
#include "train.h"
#include "rail_gui.h"
#include "bridge.h"
#include "elrail_func.h"
#include "company_base.h"
#include "newgrf_railtype.h"
#include "station_func.h"

#include "table/elrail_data.h"

/**
 * Check if a tile is on an odd X coordinate.
 * @param t The tile to check
 * @return Whether the tile is on an odd X coordinate
 */
static inline bool IsOddX (TileIndex t)
{
        return HasBit (TileX(t), 0);
}

/**
 * Check if a tile is on an odd Y coordinate.
 * @param t The tile to check
 * @return Whether the tile is on an odd Y coordinate
 */
static inline bool IsOddY (TileIndex t)
{
        return HasBit (TileY(t), 0);
}

/**
 * Finds which Electrified Rail Bits are present on a given tile.
 * @param t tile to check
 * @param dir direction this tile is from the home tile, or INVALID_TILE for the home tile itself
 * @param override pointer to PCP override, can be NULL
 * @return trackbits of tile if it is electrified
 */
static TrackBits GetRailTrackBitsUniversal(TileIndex t, DiagDirection dir, DiagDirection *override = NULL)
{
        switch (GetTileType(t)) {
                case TT_RAILWAY: {
                        TrackBits present = GetTrackBits(t);
                        TrackBits result = TRACK_BIT_NONE;
                        if (HasCatenary(GetRailType(t, TRACK_UPPER))) result |= present & (TRACK_BIT_CROSS | TRACK_BIT_UPPER | TRACK_BIT_LEFT);
                        if (HasCatenary(GetRailType(t, TRACK_LOWER))) result |= present & (TRACK_BIT_LOWER | TRACK_BIT_RIGHT);

                        if (IsTileSubtype(t, TT_BRIDGE) && (override != NULL) && GetTunnelBridgeLength(t, GetOtherBridgeEnd(t)) > 0) {
                                *override = GetTunnelBridgeDirection(t);
                        }

                        return result;
                }

                case TT_MISC:
                        switch (GetTileSubtype(t)) {
                                default: return TRACK_BIT_NONE;

                                case TT_MISC_CROSSING:
                                        if (!HasCatenary(GetRailType(t))) return TRACK_BIT_NONE;
                                        return GetCrossingRailBits(t);

                                case TT_MISC_TUNNEL:
                                        if (GetTunnelTransportType(t) != TRANSPORT_RAIL) return TRACK_BIT_NONE;
                                        if (!HasCatenary(GetRailType(t))) return TRACK_BIT_NONE;
                                        /* ignore tunnels facing the wrong way for neighbouring tiles */
                                        if (dir != INVALID_DIAGDIR && dir != GetTunnelBridgeDirection(t)) return TRACK_BIT_NONE;
                                        if (override != NULL) {
                                                *override = GetTunnelBridgeDirection(t);
                                        }
                                        return DiagDirToDiagTrackBits(GetTunnelBridgeDirection(t));
                        }

                case TT_STATION:
                        if (!HasStationRail(t)) return TRACK_BIT_NONE;
                        if (!HasCatenary(GetRailType(t))) return TRACK_BIT_NONE;
                        /* Ignore neighbouring station tiles that allow neither wires nor pylons. */
                        if (dir != INVALID_DIAGDIR && !CanStationTileHavePylons(t) && !CanStationTileHaveWires(t)) return TRACK_BIT_NONE;
                        return TrackToTrackBits(GetRailStationTrack(t));

                default:
                        return TRACK_BIT_NONE;
        }
}

/**
 * Masks out track bits when neighbouring tiles are unelectrified.
 */
static TrackBits MaskWireBits(TileIndex t, TrackBits tracks)
{
        if (!IsNormalRailTile(t)) return tracks;

        TrackdirBits neighbour_tdb = TRACKDIR_BIT_NONE;
        for (DiagDirection d = DIAGDIR_BEGIN; d < DIAGDIR_END; d++) {
                /* If the neighbour tile is either not electrified or has no tracks that can be reached
                 * from this tile, mark all trackdirs that can be reached from the neighbour tile
                 * as needing no catenary. We make an exception for blocked station tiles with a matching
                 * axis that still display wires to preserve visual continuity. */
                TileIndex next_tile = TileAddByDiagDir(t, d);
                TrackBits reachable = TrackStatusToTrackBits(GetTileRailwayStatus(next_tile)) & DiagdirReachesTracks(d);
                RailType rt;
                if ((reachable != TRACK_BIT_NONE) ?
                                ((rt = GetRailType(next_tile, FindFirstTrack(reachable))) == INVALID_RAILTYPE || !HasCatenary(rt)) :
                                (!HasStationTileRail(next_tile) || GetRailStationAxis(next_tile) != DiagDirToAxis(d) || !CanStationTileHaveWires(next_tile))) {
                        neighbour_tdb |= DiagdirReachesTrackdirs(ReverseDiagDir(d));
                }
        }

        /* If the tracks from either a diagonal crossing or don't overlap, both
         * trackdirs have to be marked to mask the corresponding track bit. Else
         * one marked trackdir is enough the mask the track bit. */
        TrackBits mask;
        if (tracks == TRACK_BIT_CROSS || !TracksOverlap(tracks)) {
                /* If the tracks form either a diagonal crossing or don't overlap, both
                 * trackdirs have to be marked to mask the corresponding track bit. */
                mask = ~(TrackBits)((neighbour_tdb & (neighbour_tdb >> 8)) & TRACK_BIT_MASK);
                /* If that results in no masked tracks and it is not a diagonal crossing,
                 * require only one marked trackdir to mask. */
                if (tracks != TRACK_BIT_CROSS && (mask & TRACK_BIT_MASK) == TRACK_BIT_MASK) mask = ~TrackdirBitsToTrackBits(neighbour_tdb);
        } else {
                /* Require only one marked trackdir to mask the track. */
                mask = ~TrackdirBitsToTrackBits(neighbour_tdb);
                /* If that results in an empty set, require both trackdirs for diagonal track. */
                if ((tracks & mask) == TRACK_BIT_NONE) {
                        if ((neighbour_tdb & TRACKDIR_BIT_X_NE) == 0 || (neighbour_tdb & TRACKDIR_BIT_X_SW) == 0) mask |= TRACK_BIT_X;
                        if ((neighbour_tdb & TRACKDIR_BIT_Y_NW) == 0 || (neighbour_tdb & TRACKDIR_BIT_Y_SE) == 0) mask |= TRACK_BIT_Y;
                        /* If that still is not enough, require both trackdirs for any track. */
                        if ((tracks & mask) == TRACK_BIT_NONE) mask = ~(TrackBits)((neighbour_tdb & (neighbour_tdb >> 8)) & TRACK_BIT_MASK);
                }
        }

        /* Mask the tracks only if at least one track bit would remain. */
        return (tracks & mask) != TRACK_BIT_NONE ? tracks & mask : tracks;
}

/**
 * Get the base wire sprite to use.
 */
static inline SpriteID GetWireBase(TileIndex tile, TileContext context = TCX_NORMAL, Track track = INVALID_TRACK)
{
        const RailtypeInfo *rti = GetRailTypeInfo(GetRailType(tile, track));
        SpriteID wires = GetCustomRailSprite(rti, tile, RTSG_WIRES, context);
        return wires == 0 ? SPR_WIRE_BASE : wires;
}

/**
 * Get the base pylon sprite to use.
 */
static inline SpriteID GetPylonBase(TileIndex tile, TileContext context = TCX_NORMAL, Track track = INVALID_TRACK)
{
        const RailtypeInfo *rti = GetRailTypeInfo(GetRailType(tile, track));
        SpriteID pylons = GetCustomRailSprite(rti, tile, RTSG_PYLONS, context);
        return pylons == 0 ? SPR_PYLON_BASE : pylons;
}

/**
 * Corrects the tileh for certain tile types. Returns an effective tileh for the track on the tile.
 * @param tile The tile to analyse
 * @param *tileh the tileh
 */
static void AdjustTileh(TileIndex tile, Slope *tileh)
{
        if (IsTunnelTile(tile)) {
                *tileh = SLOPE_STEEP; // XXX - Hack to make tunnel entrances to always have a pylon
        } else if (IsRailBridgeTile(tile) && !IsExtendedRailBridge(tile)) {
                if (*tileh != SLOPE_FLAT) {
                        *tileh = SLOPE_FLAT;
                } else {
                        *tileh = InclinedSlope(GetTunnelBridgeDirection(tile));
                }
        }
}

/**
 * Returns the Z position of a Pylon Control Point.
 *
 * @param tile The tile the pylon should stand on.
 * @param PCPpos The PCP of the tile.
 * @return The Z position of the PCP.
 */
static int GetPCPElevation(TileIndex tile, DiagDirection PCPpos)
{
        /* The elevation of the "pylon"-sprite should be the elevation at the PCP.
         * PCPs are always on a tile edge.
         *
         * This position can be outside of the tile, i.e. ?_pcp_offset == TILE_SIZE > TILE_SIZE - 1.
         * So we have to move it inside the tile, because if the neighboured tile has a foundation,
         * that does not smoothly connect to the current tile, we will get a wrong elevation from GetSlopePixelZ().
         *
         * When we move the position inside the tile, we will get a wrong elevation if we have a slope.
         * To catch all cases we round the Z position to the next (TILE_HEIGHT / 2).
         * This will return the correct elevation for slopes and will also detect non-continuous elevation on edges.
         *
         * Also note that the result of GetSlopePixelZ() is very special on bridge-ramps.
         */

        int z = GetSlopePixelZ(TileX(tile) * TILE_SIZE + min(x_pcp_offsets[PCPpos], TILE_SIZE - 1), TileY(tile) * TILE_SIZE + min(y_pcp_offsets[PCPpos], TILE_SIZE - 1));
        return (z + 2) & ~3; // this means z = (z + TILE_HEIGHT / 4) / (TILE_HEIGHT / 2) * (TILE_HEIGHT / 2);
}

/**
 * Draws wires on a tunnel tile
 *
 * DrawTile_TunnelBridge() calls this function to draw the wires as SpriteCombine with the tunnel roof.
 *
 * @param ti The Tileinfo to draw the tile for
 */
void DrawCatenaryOnTunnel(const TileInfo *ti)
{
        /* xmin, ymin, xmax + 1, ymax + 1 of BB */
        static const int _tunnel_wire_BB[4][4] = {
                { 0, 1, 16, 15 }, // NE
                { 1, 0, 15, 16 }, // SE
                { 0, 1, 16, 15 }, // SW
                { 1, 0, 15, 16 }, // NW
        };

        DiagDirection dir = GetTunnelBridgeDirection(ti->tile);

        SpriteID wire_base = GetWireBase(ti->tile);

        const SortableSpriteStruct *sss = &CatenarySpriteData_TunnelDepot[dir];
        const int *BB_data = _tunnel_wire_BB[dir];
        AddSortableSpriteToDraw(
                wire_base + sss->image_offset, PAL_NONE, ti->x + sss->x_offset, ti->y + sss->y_offset,
                BB_data[2] - sss->x_offset, BB_data[3] - sss->y_offset, BB_Z_SEPARATOR - sss->z_offset + 1,
                GetTilePixelZ(ti->tile) + sss->z_offset,
                IsTransparencySet(TO_CATENARY),
                BB_data[0] - sss->x_offset, BB_data[1] - sss->y_offset, BB_Z_SEPARATOR - sss->z_offset
        );
}

struct CatenaryConfig {
        TrackBits tracks;
        TrackBits wires;
        bool isflat;
        Slope tileh;
};

/**
 * Draws wires and, if required, pylons on a given tile
 * @param ti The Tileinfo to draw the tile for
 */
static void DrawCatenaryRailway(const TileInfo *ti)
{
        /* Pylons are placed on a tile edge, so we need to take into account
         * the track configuration of 2 adjacent tiles. home stores the
         * current tile */
        CatenaryConfig home;
        /* Note that ti->tileh has already been adjusted for Foundations */
        home.tileh = ti->tileh;

        bool odd[AXIS_END];
        odd[AXIS_X] = IsOddX(ti->tile);
        odd[AXIS_Y] = IsOddY(ti->tile);
        byte PCPstatus = 0;
        DiagDirection overridePCP = INVALID_DIAGDIR;

        /* Find which rail bits are present, and select the override points.
         * We don't draw a pylon:
         * 1) INSIDE a tunnel (we wouldn't see it anyway)
         * 2) on the "far" end of a bridge head (the one that connects to bridge middle),
         *    because that one is drawn on the bridge. Exception is for length 0 bridges
         *    which have no middle tiles */
        home.tracks = GetRailTrackBitsUniversal(ti->tile, INVALID_DIAGDIR, &overridePCP);
        home.wires = MaskWireBits(ti->tile, home.tracks);
        /* If a track bit is present that is not in the main direction, the track is level */
        home.isflat = ((home.tracks & (TRACK_BIT_HORZ | TRACK_BIT_VERT)) != 0);

        /* Half tile slopes coincide only with horizontal/vertical track.
         * Faking a flat slope results in the correct sprites on positions. */
        Track halftile_track;
        TileContext halftile_context;
        if (IsHalftileSlope(home.tileh)) {
                switch (GetHalftileSlopeCorner(home.tileh)) {
                        default: NOT_REACHED();
                        case CORNER_W: halftile_track = TRACK_LEFT;  break;
                        case CORNER_S: halftile_track = TRACK_LOWER; break;
                        case CORNER_E: halftile_track = TRACK_RIGHT; break;
                        case CORNER_N: halftile_track = TRACK_UPPER; break;
                }
                halftile_context = TCX_UPPER_HALFTILE;
                home.tileh = SLOPE_FLAT;
        } else {
                switch (home.tracks) {
                        case TRACK_BIT_LOWER:
                        case TRACK_BIT_HORZ:
                                halftile_track = GetRailType(ti->tile, TRACK_UPPER) == GetRailType(ti->tile, TRACK_LOWER) ? INVALID_TRACK : TRACK_LOWER;
                                break;
                        case TRACK_BIT_RIGHT:
                        case TRACK_BIT_VERT:
                                halftile_track = GetRailType(ti->tile, TRACK_LEFT) == GetRailType(ti->tile, TRACK_RIGHT) ? INVALID_TRACK : TRACK_RIGHT;
                                break;
                        default:
                                halftile_track = INVALID_TRACK;
                                break;
                }
                halftile_context = TCX_NORMAL;
        }

        AdjustTileh(ti->tile, &home.tileh);

        SpriteID sprite_normal, sprite_halftile;

        if (halftile_track == INVALID_TRACK) {
                sprite_normal = GetPylonBase(ti->tile, TCX_NORMAL);
        } else {
                sprite_halftile = GetPylonBase(ti->tile, halftile_context, halftile_track);
                sprite_normal = GetPylonBase(ti->tile, TCX_NORMAL,
                        HasBit(home.tracks, TrackToOppositeTrack(halftile_track)) ? TrackToOppositeTrack(halftile_track) : halftile_track);
        }

        for (DiagDirection i = DIAGDIR_BEGIN; i < DIAGDIR_END; i++) {
                static const TrackBits edge_tracks[] = {
                        TRACK_BIT_UPPER | TRACK_BIT_RIGHT, // DIAGDIR_NE
                        TRACK_BIT_LOWER | TRACK_BIT_RIGHT, // DIAGDIR_SE
                        TRACK_BIT_LOWER | TRACK_BIT_LEFT,  // DIAGDIR_SW
                        TRACK_BIT_UPPER | TRACK_BIT_LEFT,  // DIAGDIR_NW
                };
                SpriteID pylon_base = (halftile_track != INVALID_TRACK && HasBit(edge_tracks[i], halftile_track)) ? sprite_halftile : sprite_normal;
                TileIndex neighbour = ti->tile + TileOffsByDiagDir(i);
                int elevation = GetPCPElevation(ti->tile, i);
                CatenaryConfig nbconfig;

                /* Here's one of the main headaches. GetTileSlope does not correct for possibly
                 * existing foundataions, so we do have to do that manually later on.*/
                nbconfig.tileh = GetTileSlope(neighbour);
                nbconfig.tracks = GetRailTrackBitsUniversal(neighbour, i);

                /* If the neighboured tile does not smoothly connect to the current tile (because of a foundation),
                 * we have to draw all pillars on the current tile. */
                if (nbconfig.tracks == TRACK_BIT_NONE || elevation != GetPCPElevation(neighbour, ReverseDiagDir(i))) {
                        nbconfig.tracks = TRACK_BIT_NONE;
                        nbconfig.wires  = TRACK_BIT_NONE;
                        nbconfig.isflat = false;
                } else {
                        nbconfig.wires  = MaskWireBits(neighbour, nbconfig.tracks);
                        nbconfig.isflat = ((nbconfig.tracks & (TRACK_BIT_HORZ | TRACK_BIT_VERT)) != 0);
                }

                byte PPPpreferred = 0xFF; // We start with preferring everything (end-of-line in any direction)
                byte PPPallowed = AllowedPPPonPCP[i];

                /* We cycle through all the existing tracks at a PCP and see what
                 * PPPs we want to have, or may not have at all */

                /* Tracks inciding from the home tile */
                for (uint k = 0; k < NUM_TRACKS_PER_SIDE; k++) {
                        /* We check whether the track in question (k) is present in the tile */
                        Track track = TracksAtTileSide[i][k];
                        if (HasBit(home.wires, track)) {
                                /* track found */
                                SetBit(PCPstatus, i); // This PCP is in use
                                PPPpreferred &= PreferredPPPofTrackAtPCP[track][i];
                        }
                        if (HasBit(home.tracks, track)) {
                                PPPallowed &= AllowedPPPofTrackAtPCP[track];
                        }
                }

                /* Tracks inciding from the neighbour tile */
                for (uint k = 0; k < NUM_TRACKS_PER_SIDE; k++) {
                        DiagDirection PCPpos = ReverseDiagDir(i);
                        /* Next to us, we have a bridge head, don't worry about that one, if it shows away from us */
                        if (IsRailBridgeTile(neighbour) && GetTunnelBridgeDirection(neighbour) == PCPpos) {
                                continue;
                        }

                        /* We check whether the track in question (k) is present in the tile */
                        Track track = TracksAtTileSide[PCPpos][k];
                        if (HasBit(nbconfig.wires, track)) {
                                /* track found, adjust the number
                                 * of the PCP for preferred/allowed determination*/
                                SetBit(PCPstatus, i); // This PCP is in use
                                PPPpreferred &= PreferredPPPofTrackAtPCP[track][PCPpos];
                        }

                        if (HasBit(nbconfig.tracks, track)) {
                                PPPallowed &= AllowedPPPofTrackAtPCP[track];
                        }
                }

                /* Deactivate all PPPs if PCP is not used */
                if (!HasBit(PCPstatus, i)) continue;

                Foundation foundation = FOUNDATION_NONE;

                /* Station and road crossings are always "flat", so adjust the tileh accordingly */
                if (IsStationTile(neighbour) || IsLevelCrossingTile(neighbour)) nbconfig.tileh = SLOPE_FLAT;

                /* Read the foundations if they are present, and adjust the tileh */
                if (nbconfig.tracks != TRACK_BIT_NONE && (IsNormalRailTile(neighbour) || IsRailDepotTile(neighbour))) {
                        foundation = GetRailFoundation(nbconfig.tileh, nbconfig.tracks);
                }
                if (IsRailBridgeTile(neighbour)) {
                        foundation = GetBridgeFoundation(nbconfig.tileh, DiagDirToAxis(GetTunnelBridgeDirection(neighbour)));
                }

                ApplyFoundationToSlope(foundation, &nbconfig.tileh);

                /* Half tile slopes coincide only with horizontal/vertical track.
                 * Faking a flat slope results in the correct sprites on positions. */
                if (IsHalftileSlope(nbconfig.tileh)) nbconfig.tileh = SLOPE_FLAT;

                AdjustTileh(neighbour, &nbconfig.tileh);

                /* If we have a straight (and level) track, we want a pylon only every 2 tiles
                 * Delete the PCP if this is the case.
                 * Level means that the slope is the same, or the track is flat */
                if (home.tileh == nbconfig.tileh || (home.isflat && nbconfig.isflat)) {
                        Axis axis = DiagDirToAxis(i);
                        for (uint k = 0; k < NUM_IGNORE_GROUPS; k++) {
                                if (PPPpreferred == IgnoredPCPconfigs[axis][k] ) {
                                        /* This configuration may be subject to pylon elision. */
                                        bool ignore = HasBit (IgnoredPCP[axis][odd[OtherAxis(axis)]], k);
                                        /* Toggle ignore if we are in an odd row, or heading the other way. */
                                        if (ignore ^ odd[axis] ^ HasBit(i, 1)) ClrBit(PCPstatus, i);
                                        break;
                                }
                        }
                        if (!HasBit(PCPstatus, i)) continue;
                }

                if (overridePCP == i) continue;

                /* Now decide where we draw our pylons. First try the preferred PPPs, but they may not exist.
                 * In that case, we try the any of the allowed ones. if they don't exist either, don't draw
                 * anything. Note that the preferred PPPs still contain the end-of-line markers.
                 * Remove those (simply by ANDing with allowed, since these markers are never allowed) */
                if (PPPallowed == 0) continue;
                if ((PPPallowed & PPPpreferred) != 0) PPPallowed &= PPPpreferred;

                if (IsRailStationTile(ti->tile) && !CanStationTileHavePylons(ti->tile)) continue;

                if (HasBridgeAbove(ti->tile)) {
                        Track bridgetrack = GetBridgeAxis(ti->tile) == AXIS_X ? TRACK_X : TRACK_Y;
                        int height = GetBridgeHeight(GetNorthernBridgeEnd(ti->tile));

                        if ((height <= GetTileMaxZ(ti->tile) + 1) &&
                                        (i == PCPpositions[bridgetrack][0] || i == PCPpositions[bridgetrack][1])) {
                                continue;
                        }
                }

                for (Direction k = DIR_BEGIN; k < DIR_END; k++) {
                        byte temp = PPPorder[odd[AXIS_X]][odd[AXIS_Y]][i][k];

                        if (!HasBit(PPPallowed, temp)) continue;

                        /* Don't build the pylon if it would be outside the tile */
                        if (HasBit(OwnedPPPonPCP[i], temp)) {
                                uint x  = ti->x + x_pcp_offsets[i] + x_ppp_offsets[temp];
                                uint y  = ti->y + y_pcp_offsets[i] + y_ppp_offsets[temp];

                                AddSortableSpriteToDraw(pylon_base + pylon_sprites[temp], PAL_NONE, x, y, 1, 1, BB_HEIGHT_UNDER_BRIDGE,
                                        elevation, IsTransparencySet(TO_CATENARY), -1, -1);
                                break; // We already have drawn a pylon, bail out
                        }

                        /* We have a neighbour that will draw it, bail out */
                        if (nbconfig.tracks != TRACK_BIT_NONE) break;
                }
        }

        /* The wire above the tunnel is drawn together with the tunnel-roof (see DrawCatenaryOnTunnel()) */
        if (IsTunnelTile(ti->tile)) return;

        /* Don't draw a wire under a low bridge */
        if (HasBridgeAbove(ti->tile) && !IsTransparencySet(TO_BRIDGES)) {
                int height = GetBridgeHeight(GetNorthernBridgeEnd(ti->tile));

                if (height <= GetTileMaxZ(ti->tile) + 1) return;
        }

        /* Don't draw a wire if the station tile does not want any */
        if (IsRailStationTile(ti->tile) && !CanStationTileHaveWires(ti->tile)) return;

        if (halftile_track == INVALID_TRACK) {
                sprite_normal = GetWireBase(ti->tile, TCX_NORMAL);
        } else {
                sprite_halftile = GetWireBase(ti->tile, halftile_context, halftile_track);
                sprite_normal = GetWireBase(ti->tile, TCX_NORMAL,
                        HasBit(home.tracks, TrackToOppositeTrack(halftile_track)) ? TrackToOppositeTrack(halftile_track) : halftile_track);
        }

        /* Drawing of pylons is finished, now draw the wires */
        Track t;
        FOR_EACH_SET_TRACK(t, home.wires) {
                byte PCPconfig = HasBit(PCPstatus, PCPpositions[t][0]) +
                        (HasBit(PCPstatus, PCPpositions[t][1]) << 1);

                assert(PCPconfig != 0); // We have a pylon on neither end of the wire, that doesn't work (since we have no sprites for that)
                assert(!IsSteepSlope(home.tileh));

                const SortableSpriteStructM *sss;
                switch (home.tileh) {
                        case SLOPE_SW: sss = &CatenarySpriteDataSW;  break;
                        case SLOPE_SE: sss = &CatenarySpriteDataSE;  break;
                        case SLOPE_NW: sss = &CatenarySpriteDataNW;  break;
                        case SLOPE_NE: sss = &CatenarySpriteDataNE;  break;
                        default:       sss = &CatenarySpriteData[t]; break;
                }

                /*
                 * The "wire"-sprite position is inside the tile, i.e. 0 <= sss->?_offset < TILE_SIZE.
                 * Therefore it is safe to use GetSlopePixelZ() for the elevation.
                 * Also note that the result of GetSlopePixelZ() is very special for bridge-ramps.
                 */
                SpriteID wire_base = (t == halftile_track) ? sprite_halftile : sprite_normal;
                AddSortableSpriteToDraw(wire_base + sss->image_offset[PCPconfig], PAL_NONE, ti->x + sss->x_offset, ti->y + sss->y_offset,
                        sss->x_size, sss->y_size, sss->z_size, GetSlopePixelZ(ti->x + sss->x_offset, ti->y + sss->y_offset) + sss->z_offset,
                        IsTransparencySet(TO_CATENARY));
        }
}

/**
 * Draws wires on a tunnel tile
 *
 * DrawTile_TunnelBridge() calls this function to draw the wires on the bridge.
 *
 * @param ti The Tileinfo to draw the tile for
 */
void DrawCatenaryOnBridge(const TileInfo *ti)
{
        TileIndex start = GetNorthernBridgeEnd(ti->tile);
        TileIndex end = GetSouthernBridgeEnd(ti->tile);

        uint length = GetTunnelBridgeLength(start, end);
        uint num = GetTunnelBridgeLength(ti->tile, start) + 1;

        Axis axis = GetBridgeAxis(ti->tile);

        const SortableSpriteStructM *sss = &CatenarySpriteData[AxisToTrack(axis)];

        uint config;
        if ((length % 2) && num == length) {
                /* Draw the "short" wire on the southern end of the bridge
                 * only needed if the length of the bridge is odd */
                config = 3;
        } else {
                /* Draw "long" wires on all other tiles of the bridge (one pylon every two tiles) */
                config = 2 - (num % 2);
        }

        uint height = GetBridgePixelHeight(end);

        SpriteID wire_base = GetWireBase(end, TCX_ON_BRIDGE);

        AddSortableSpriteToDraw(wire_base + sss->image_offset[config], PAL_NONE, ti->x + sss->x_offset, ti->y + sss->y_offset,
                sss->x_size, sss->y_size, sss->z_size, height + sss->z_offset,
                IsTransparencySet(TO_CATENARY)
        );

        /* Finished with wires, draw pylons */
        if ((num % 2) == 0 && num != length) return; /* no pylons to draw */

        DiagDirection PCPpos;
        Direction PPPpos;
        if (axis == AXIS_X) {
                PCPpos = DIAGDIR_NE;
                PPPpos = IsOddY(ti->tile) ? DIR_SE : DIR_NW;
        } else {
                PCPpos = DIAGDIR_NW;
                PPPpos = IsOddX(ti->tile) ? DIR_SW : DIR_NE;
        }

        SpriteID pylon = GetPylonBase(end, TCX_ON_BRIDGE) + pylon_sprites[PPPpos];
        uint x = ti->x + x_ppp_offsets[PPPpos];
        uint y = ti->y + y_ppp_offsets[PPPpos];

        /* every other tile needs a pylon on the northern end */
        if (num % 2) {
                AddSortableSpriteToDraw(pylon, PAL_NONE, x + x_pcp_offsets[PCPpos], y + y_pcp_offsets[PCPpos],
                        1, 1, BB_HEIGHT_UNDER_BRIDGE, height, IsTransparencySet(TO_CATENARY), -1, -1);
        }

        /* need a pylon on the southern end of the bridge */
        if (num == length) {
                PCPpos = ReverseDiagDir(PCPpos);
                AddSortableSpriteToDraw(pylon, PAL_NONE, x + x_pcp_offsets[PCPpos], y + y_pcp_offsets[PCPpos],
                        1, 1, BB_HEIGHT_UNDER_BRIDGE, height, IsTransparencySet(TO_CATENARY), -1, -1);
        }
}

/**
 * Draws overhead wires and pylons for electric railways.
 * @param ti The TileInfo struct of the tile being drawn
 * @see DrawCatenaryRailway
 */
void DrawCatenary(const TileInfo *ti)
{
        switch (GetTileType(ti->tile)) {
                case TT_MISC:
                        switch (GetTileSubtype(ti->tile)) {
                                default: return;

                                case TT_MISC_DEPOT: {
                                        if (!IsRailDepot(ti->tile)) return;
                                        const SortableSpriteStruct *sss = &CatenarySpriteData_TunnelDepot[GetGroundDepotDirection(ti->tile)];
                                        SpriteID wire_base = GetWireBase(ti->tile);

                                        /* This wire is not visible with the default depot sprites */
                                        AddSortableSpriteToDraw(
                                                wire_base + sss->image_offset, PAL_NONE, ti->x + sss->x_offset, ti->y + sss->y_offset,
                                                sss->x_size, sss->y_size, sss->z_size,
                                                GetTileMaxPixelZ(ti->tile) + sss->z_offset,
                                                IsTransparencySet(TO_CATENARY)
                                        );
                                        return;
                                }

                                case TT_MISC_CROSSING:
                                case TT_MISC_TUNNEL:
                                        break;
                        }
                        break;

                case TT_RAILWAY:
                case TT_STATION:
                        break;

                default: return;
        }
        DrawCatenaryRailway(ti);
}

bool SettingsDisableElrail(int32 p1)
{
        Company *c;
        Train *t;
        bool disable = (p1 != 0);

        /* we will now walk through all electric train engines and change their railtypes if it is the wrong one*/
        const RailType old_railtype = disable ? RAILTYPE_ELECTRIC : RAILTYPE_RAIL;
        const RailType new_railtype = disable ? RAILTYPE_RAIL : RAILTYPE_ELECTRIC;

        /* walk through all train engines */
        Engine *e;
        FOR_ALL_ENGINES_OF_TYPE(e, VEH_TRAIN) {
                RailVehicleInfo *rv_info = &e->u.rail;
                /* if it is an electric rail engine and its railtype is the wrong one */
                if (rv_info->engclass == 2 && rv_info->railtype == old_railtype) {
                        /* change it to the proper one */
                        rv_info->railtype = new_railtype;
                }
        }

        /* when disabling elrails, make sure that all existing trains can run on
         *  normal rail too */
        if (disable) {
                FOR_ALL_TRAINS(t) {
                        if (t->railtype == RAILTYPE_ELECTRIC) {
                                /* this railroad vehicle is now compatible only with elrail,
                                 *  so add there also normal rail compatibility */
                                t->compatible_railtypes |= RAILTYPES_RAIL;
                                t->railtype = RAILTYPE_RAIL;
                                SetBit(t->flags, VRF_EL_ENGINE_ALLOWED_NORMAL_RAIL);
                        }
                }
        }

        /* Fix the total power and acceleration for trains */
        FOR_ALL_TRAINS(t) {
                /* power and acceleration is cached only for front engines */
                if (t->IsFrontEngine()) {
                        t->ConsistChanged(true);
                }
        }

        FOR_ALL_COMPANIES(c) c->avail_railtypes = GetCompanyRailtypes(c->index);

        /* This resets the _last_built_railtype, which will be invalid for electric
         * rails. It may have unintended consequences if that function is ever
         * extended, though. */
        ReinitGuiAfterToggleElrail(disable);
        return true;
}