Application Areas

London Underground

The 10 most-traversed stations—along the shortest paths—of the London Underground.

In[1]:=

g = \!\(\*

GraphicsBox[

NamespaceBox["NetworkGraphics",

DynamicModuleBox[{Typeset`graph = HoldComplete[

Graph[{"Acton Central", "Acton Town", "Aldgate", "Aldgate East",

"All Saints", "Alperton", "Amersham", "Anerley", "Angel",

"Archway", "Arnos Grove", "Arsenal", "Baker Street",

"Balham", "Bank", "Barbican", "Barking", "Barkingside",

"Barons Court", "Bayswater", "Beckton", "Beckton Park",

"Becontree", "Belsize Park", "Bermondsey", "Bethnal Green",

"Blackfriars", "Blackhorse Road", "Blackwall",

"Bond Street", "Borough", "Boston Manor", "Bounds Green",

"Bow Church", "Bow Road", "Brent Cross", "Brixton",

"Brockley", "Bromley-by-Bow", "Brondesbury",

"Brondesbury Park", "Buckhurst Hill", "Burnt Oak", "Bushey",

"Caledonian Road", "Caledonian Road & Barnsbury",

"Camden Road", "Camden Town", "Canada Water",

"Canary Wharf", "Canning Town", "Cannon Street",

"Canonbury", "Canons Park", "Carpenders Park",

"Chaifont & Latimer", "Chalk Farm", "Chancery Lane",

"Charing Cross", "Chesham", "Chigwell", "Chiswick Park",

"Chorleywood", "Clapham Common", "Clapham Junction",

"Clapham North", "Clapham South", "Cockfosters",

"Colindale", "Colliers Wood", "Covent Garden",

"Crossharbour", "Crouch Hill", "Croxley", "Crystal Palace",

"Custom House for ExCeL",

"Cutty Sark for Maritime Greenwich", "Cyprus",

"Dagenham East", "Dagenham Heathway", "Dalston Junction",

"Dalston Kingsland", "Debden", "Deptford Bridge",

"Devons Road", "Dollis Hill", "Ealing Broadway",

"Ealing Common", "Earl's Court", "East Acton", "Eastcote",

"East Finchley", "East Ham", "East India", "East Putney",

"Edgware", "Edgware Road", "Elephant & Castle", "Elm Park",

"Elverson Road", "Embankment", "Epping", "Euston",

"Euston Square", "Fairlop", "Farringdon",

"Finchley Central", "Finchley Road",

"Finchley Road & Frognal", "Finsbury Park", "Forest Hill",

"Fulham Broadway", "Gallions Reach", "Gants Hill",

"Gloucester Road", "Golders Green", "Goldhawk Road",

"Goodge Street", "Gospel Oak", "Grange Hill",

"Great Portland Street", "Greenford", "Green Park",

"Greenwich", "Gunnesbury", "Hackney Central",

"Hackney Wick", "Haggerston", "Hainault", "Hammersmith",

"Hampstead", "Hamstead Heath", "Hanger Lane", "Harlesden",

"Harringay Green Lanes", "Harrow-on-the-Hill",

"Harrow & Wealdstone", "Hatch End", "Hatton Cross",

"Headstone Lane", "Heathrow Terminals 1,2,3",

"Hendon Central", "Heron Quays", "High Barnet",

"Highbury & Islington", "Highgate",

"High Street Kensington", "Hillingdon", "Holborn",

"Holland Park", "Holloway Road", "Homerton",

"Honor Oak Park", "Hornchurch", "Hounslow Central",

"Hounslow East", "Hounslow West", "Hoxton",

"Hyde Park Corner", "Ickenham", "Imperial Wharf",

"Island Gardens", "Kennington", "Kensal Green",

"Kensal Rise", "Kensington (Olympia)", "Kentish Town",

"Kentish Town West", "Kenton", "Kew Gardens", "Kilburn",

"Kilburn High Road", "Kilburn Park", "King George V",

"Kingsbury", "King's Cross St. Pancras", "Knightsbridge",

"Ladbroke Grove", "Lambeth North", "Lancaster Gate",

"Langdon Park", "Latimer Road", "Leicester Square",

"Lewisham", "Leyton", "Leyton Midland Road", "Leytonstone",

"Leytonstone High Road", "Limehouse", "Liverpool Street",

"London Bridge", "London City Airport", "Loughton",

"Maida Vale", "Manor House", "Mansion House", "Marble Arch",

"Marylebone", "Mile End", "Mill Hill East", "Monument",

"Moorgate", "Moor Park", "Morden", "Mornington Crescent",

"Mudchute", "Neasden", "Newbury Park", "New Cross",

"New Cross Gate", "North Acton", "North Ealing",

"Northfields", "North Greenwich", "North Harrow",

"Northolt", "North Wembley", "Northwick Park", "Northwood",

"Northwood Hills", "Norwood Junction", "Notting Hill Gate",

"Oakwood", "Old Street", "Osterley", "Oval",

"Oxford Circus", "Paddington", "Park Royal",

"Parsons Green", "Penge West", "Perivale",

"Piccadilly Circus", "Pimlico", "Pinner", "Plaistow",

"Pontoon Dock", "Poplar", "Preston Road", "Prince Regent",

"Pudding Mill Lane", "Putney Bridge", "Queensbury",

"Queen's Park", "Queensway", "Ravenscourt Park",

"Rayners Lane", "Redbridge", "Regent's Park", "Richmond",

"Rickmansworth", "Roding Valley", "Rotherhithe",

"Royal Albert", "Royal Oak", "Royal Victoria", "Ruislip",

"Ruislip Gardens", "Ruislip Manor", "Russell Square",

"Schreditch High Street", "Seven Sisters", "Shadwell",

"Sheperd's Bush", "Shepherd's Bush", "Sloane Square",

"Snaresbrook", "South Acton", "South Ealing", "Southfields",

"Southgate", "South Hampstead", "South Harrow",

"South Kensington", "South Kenton", "South Quay",

"South Ruislip", "South Tottenham", "Southwark",

"South Wimbeldon", "South Woodford", "Stamford Brook",

"Stanmore", "Stepney Green", "St. James's Park",

"St. John's Wood", "Stockwell", "Stonebridge Park",

"St. Paul's", "Stratford", "Sudbury Hill", "Sudbury Town",

"Surrey Quays", "Swiss Cottage", "Sydenham", "Temple",

"Theydon Bois", "Tooting Bec", "Tooting Broadway",

"Tottenham Court Road", "Tottenham Hale",

"Totteridge & Whetstone", "Tower Gateway", "Tower Hill",

"Tufnell Park", "Turnham Green", "Turnpike Lane",

"Upminster", "Upminster Bridge", "Upney", "Upper Holloway",

"Upton Park", "Uxbridge", "Vauxhall", "Victoria",

"Walthamstow Central", "Walthamstow Queen's Road",

"Wanstead", "Wanstead Park", "Wapping", "Warren Street",

"Warwick Avenue", "Waterloo", "Watford",

"Watford High Street", "Watford Junction",

"Wembley Central", "Wembley Park", "West Acton",

"Westbourne Park", "West Brompton", "West Croydon",

"Westferry", "West Finchley", "West Ham", "West Hampstead",

"West Harrow", "West India Quay", "West Kensington",

"Westminster", "West Ruislip", "West Silvertown",

"Whitechapel", "White City", "Willesden Green",

"Willesden Junction", "Wimbeldon", "Wimbeldon Park",

"Woodford", "Wood Green", "Woodrange Park", "Woodside Park",

"Woolwich Arsenal"}, {Null, CompressedData["

1:eJxN1nV4llUYBvDnwOhJIzWUUYKMkNEgDAaM3GhGDrCwmC0mFjahWKjYTOxh

ze5WRLEbnIUxxAT7vq/79rr447l+33ve+N5z3uc852QvLJ28uFpErEkRFERm

krPcNiRksd3D7b1gdfhEyJ44zvBxxm7HM2AN+EDIKkRNxJe2A87Xgv0RtRGf

2K8RdRDldguiLuJSux/uqwezQzbAcSZcHPJKvitiL7vAHmFPsi/YXf9fj+fU

h/kh98VxA/eLPmlfsbV8Ptvmw4bwsJC8rhFiru2bZAlsDA8N+QaiCWKmPctO

wXVN4achv0A0QxyN2BNRaP9BNEdMtPyfFnBAyLMRLTlulv1o5X7RFxGtEc/Z

zrg/i8+23exguz9sA+eFrPJYn2Kft5WIvRELLf+3LeIdu9XfcB6e1w5OC7kD

0R6xj+X7dUAcZ1cgOvKZuK8TXBNys+8pQntn2CXkxKTf6/hNEU/blmjvCkeG

nI/IQfSzI3G+WyifKPOxO6KHvcS/1yN6erzpIfZWu9Fj38v+bTsmta30uXft

ZLTnenxz3U7D7UV2Ouzt70ZfRvTh/Zbv1xfxs22d1LcLQ3NusB2KGIi43DKf

B8GDQlbYbfz2iCX2r1CNYD3gM/5E5CGGW86jYYgb3cbvNQJ+5jHndxyFaJFk

V1jg9yjw/45GvG6b4vwYeF7IfjgeC18NOQLH45gDcDz8MSTHbQI4NeRNobnD

eVQUmjf0AMQkjx89w79PR0wJ5Q3tgudNhQeG5HOZu6xz0xGb7ExcNyNUP+mY

pN9vh+b6sXa1LbPjkuT8nwXfClmM49nw95DVcTwHHh6S9ZG1pj/aS+BPIesn

1UDWO8o6wjl5s73Pfb/afXrI3551gObbqfBg9585zvlAN9qGbh8GF4Xq7CJf

x1p3Zqg2lvudX7KFSbW5kx1tOW+PhOeE5DFrPPOaPmtror00VAdK/f2Pgl+F

5HgeE6qzdKfHfrVtnFRbWCePD9VfWhvtJ8Acy36d6Peh6y3zcIn7dzLifftN

qCZebyvtNjsoSY7rafD2kJk+5rxi7l2FWLqb7ZJy8zq/62+W1y9zvizz/5+L

aJsk13XOHdb18+F7IT+0k9B+Abw45G2hWsHjixDL7dpQzeJ8XAW7J32Tco8p

16vLEDfYAUlzOsNyPK/wdbROUu71gdfAa0Ou9e+t7muNpLHc4GenpNrC78s5

zTrBnP7cMm9vgb+EZP/X2TL/b5nvZ63mvoJ9bpL0Lf5A3OG8o5zPd/p5lPl+

F3wmJNvvRjxlF+D8PaH6S5nX5R6HDc67e+GDIccmzUW+9/2hdZT+6muYjxXO

nwqP48Pw0ZDMi0fgYyG5TvNcPTsk6dxQ+Hho/0InJO0FuF/hGt08qQ8/uG/D

k+ZabtJanGX5f1xzuN/jvVtCtfgjy/XgtVB93+T+vxla9zZb5irrImsi94Xc

G3Cfydz8LjSXmuH4A38XWpCUs9v9Xx87eD33kOOTcovjxrWG+0PmBNefSo8f

3WVz3M75zdr4b0j2mzWEdZR7UtaVb+FAy/n7fajeUq7LHDOuy1UeV8r1fLv7

zzWJ+7UdHj/O3VZJNb2R5Tzc6e/FNXZu0p4hL+ndmCfMfdb/aknjQ6clzRHu

u1kTuW/jN+5h8yzPM/eLLedD3aR8pOwXc4b7I64dc5LerX1SbjA/+c6sN1l+

XhvfR1nPuJdmPeeYc7xYg/jd2OciP4v7f+6xue6zhsxPyjHuB3sn1QPmaon/

k8/lnmxU0thyXAt932y/538ukFRX

"]}, {Properties -> {

UndirectedEdge["Embankment", "Waterloo"] -> {

"Lines" -> {"Bakerloo", "Northern"}},

UndirectedEdge["Brondesbury", "Brondesbury Park"] -> {

"Lines" -> {"Overground"}},

"Highgate" -> {"Zone" -> 3, Tooltip -> "Highgate"},

UndirectedEdge["Euston Square", "Great Portland Street"] -> {

"Lines" -> {

"Circle", "Hammersmith & City", "Metropolitan"}},

"Gunnesbury" -> {"Zone" -> 3, Tooltip -> "Gunnesbury"},

UndirectedEdge["Eastcote", "Ruislip Manor"] -> {

"Lines" -> {"Metropolitan", "Piccadilly"}},

UndirectedEdge["London City Airport", "Pontoon Dock"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["Crouch Hill", "Upper Holloway"] -> {

"Lines" -> {"Overground"}},

"Harrow-on-the-Hill" -> {

"Zone" -> 5, Tooltip -> "Harrow-on-the-Hill"},

"Parsons Green" -> {

"Zone" -> 2, Tooltip -> "Parsons Green"},

UndirectedEdge[

"Caledonian Road & Barnsbury", "Highbury & Islington"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Plaistow", "West Ham"] -> {

"Lines" -> {"District", "Hammersmith & City"}},

"Whitechapel" -> {"Zone" -> 2, Tooltip -> "Whitechapel"},

UndirectedEdge["Baker Street", "Edgware Road"] -> {

"Lines" -> {"Circle", "Hammersmith & City"}},

UndirectedEdge["Oxford Circus", "Regent's Park"] -> {

"Lines" -> {"Bakerloo"}},

"Boston Manor" -> {

"Zone" -> 4, Tooltip -> "Boston Manor"},

UndirectedEdge["Finsbury Park", "Seven Sisters"] -> {

"Lines" -> {"Victoria"}},

UndirectedEdge["Bank", "London Bridge"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Cannon Street", "Monument"] -> {

"Lines" -> {"Circle", "District"}},

UndirectedEdge["Bushey", "Carpenders Park"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["North Harrow", "Pinner"] -> {

"Lines" -> {"Metropolitan"}},

UndirectedEdge["Acton Town", "Ealing Common"] -> {

"Lines" -> {"District", "Piccadilly"}},

UndirectedEdge["Mile End", "Stratford"] -> {

"Lines" -> {"Central"}},

"Uxbridge" -> {"Zone" -> 6, Tooltip -> "Uxbridge"},

UndirectedEdge[

"Finchley Road & Frognal", "Hamstead Heath"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Gants Hill", "Newbury Park"] -> {

"Lines" -> {"Central"}},

"Barking" -> {"Zone" -> 4, Tooltip -> "Barking"},

"Chancery Lane" -> {

"Zone" -> 1, Tooltip -> "Chancery Lane"},

UndirectedEdge["Canning Town", "East India"] -> {

"Lines" -> {"Docklands Light Rail"}},

"Gants Hill" -> {"Zone" -> 4, Tooltip -> "Gants Hill"},

"Chiswick Park" -> {

"Zone" -> 3, Tooltip -> "Chiswick Park"},

UndirectedEdge["Parsons Green", "Putney Bridge"] -> {

"Lines" -> {"District"}},

"Brixton" -> {"Zone" -> 2, Tooltip -> "Brixton"},

UndirectedEdge["Buckhurst Hill", "Loughton"] -> {

"Lines" -> {"Central"}},

"King's Cross St. Pancras" -> {

"Zone" -> 1, Tooltip -> "King's Cross St. Pancras"},

UndirectedEdge["Aldgate East", "Tower Hill"] -> {

"Lines" -> {"District"}},

UndirectedEdge["Cockfosters", "Oakwood"] -> {

"Lines" -> {"Piccadilly"}},

UndirectedEdge["Baker Street", "St. John's Wood"] -> {

"Lines" -> {"Jubilee"}},

UndirectedEdge["Beckton", "Gallions Reach"] -> {

"Lines" -> {"Docklands Light Rail"}},

"Charing Cross" -> {

"Zone" -> 1, Tooltip -> "Charing Cross"},

UndirectedEdge["Latimer Road", "Sheperd's Bush"] -> {

"Lines" -> {"Hammersmith & City"}},

UndirectedEdge["Canonbury", "Dalston Kingsland"] -> {

"Lines" -> {"Overground"}},

"Brondesbury" -> {"Zone" -> 2, Tooltip -> "Brondesbury"},

UndirectedEdge["Elm Park", "Hornchurch"] -> {

"Lines" -> {"District"}},

UndirectedEdge["Hammersmith", "Turnham Green"] -> {

"Lines" -> {"Piccadilly"}},

"West Ham" -> {"Zone" -> 3, Tooltip -> "West Ham"},

UndirectedEdge["Edgware Road", "Paddington"] -> {

"Lines" -> {

"Bakerloo", "Circle", "District",

"Hammersmith & City"}},

"Shepherd's Bush" -> {

"Zone" -> 2, Tooltip -> "Shepherd's Bush"},

UndirectedEdge["Stamford Brook", "Turnham Green"] -> {

"Lines" -> {"District"}},

UndirectedEdge["Euston", "Mornington Crescent"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Bank", "Moorgate"] -> {

"Lines" -> {"Northern"}},

"Mudchute" -> {"Zone" -> 2, Tooltip -> "Mudchute"},

UndirectedEdge["Fulham Broadway", "Parsons Green"] -> {

"Lines" -> {"District"}},

"Grange Hill" -> {"Zone" -> 5, Tooltip -> "Grange Hill"},

UndirectedEdge["Aldgate East", "Whitechapel"] -> {

"Lines" -> {"District", "Hammersmith & City"}},

"Bushey" -> {"Zone" -> 8, Tooltip -> "Bushey"},

"Wood Green" -> {"Zone" -> 3, Tooltip -> "Wood Green"},

"South Ruislip" -> {

"Zone" -> 5, Tooltip -> "South Ruislip"},

UndirectedEdge["Epping", "Theydon Bois"] -> {

"Lines" -> {"Central"}},

"Holborn" -> {"Zone" -> 1, Tooltip -> "Holborn"},

UndirectedEdge["Barking", "East Ham"] -> {

"Lines" -> {"District", "Hammersmith & City"}},

UndirectedEdge["Kenton", "South Kenton"] -> {

"Lines" -> {"Bakerloo", "Overground"}},

"Leytonstone" -> {

"Zone" -> {3, 4}, Tooltip -> "Leytonstone"},

UndirectedEdge["Hounslow Central", "Hounslow West"] -> {

"Lines" -> {"Piccadilly"}},

"Wanstead Park" -> {

"Zone" -> 3, Tooltip -> "Wanstead Park"},

UndirectedEdge["Oxford Circus", "Warren Street"] -> {

"Lines" -> {"Victoria"}},

"Queensbury" -> {"Zone" -> 4, Tooltip -> "Queensbury"},

UndirectedEdge[

"Cutty Sark for Maritime Greenwich", "Greenwich"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["Gospel Oak", "Upper Holloway"] -> {

"Lines" -> {"Overground"}},

"Caledonian Road" -> {

"Zone" -> 2, Tooltip -> "Caledonian Road"},

"Royal Victoria" -> {

"Zone" -> 3, Tooltip -> "Royal Victoria"},

UndirectedEdge["Forest Hill", "Honor Oak Park"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Boston Manor", "Northfields"] -> {

"Lines" -> {"Piccadilly"}},

"Wanstead" -> {"Zone" -> 4, Tooltip -> "Wanstead"},

"West Finchley" -> {

"Zone" -> 4, Tooltip -> "West Finchley"},

UndirectedEdge["Green Park", "Oxford Circus"] -> {

"Lines" -> {"Victoria"}},

"Turnpike Lane" -> {

"Zone" -> 3, Tooltip -> "Turnpike Lane"},

"Upton Park" -> {"Zone" -> 3, Tooltip -> "Upton Park"},

UndirectedEdge["Fairlop", "Hainault"] -> {

"Lines" -> {"Central"}},

"Clapham Junction" -> {

"Zone" -> 2, Tooltip -> "Clapham Junction"},

UndirectedEdge["Arnos Grove", "Bounds Green"] -> {

"Lines" -> {"Piccadilly"}},

UndirectedEdge["Canning Town", "West Ham"] -> {

"Lines" -> {"Jubilee"}},

"Willesden Green" -> {

"Zone" -> {2, 3}, Tooltip -> "Willesden Green"},

UndirectedEdge["West Finchley", "Woodside Park"] -> {

"Lines" -> {"Northern"}},

"Kensal Rise" -> {"Zone" -> 2, Tooltip -> "Kensal Rise"},

UndirectedEdge["Aldgate", "Liverpool Street"] -> {

"Lines" -> {"Circle", "Metropolitan"}},

UndirectedEdge["Manor House", "Turnpike Lane"] -> {

"Lines" -> {"Piccadilly"}},

"Tower Gateway" -> {

"Zone" -> 1, Tooltip -> "Tower Gateway"},

UndirectedEdge["Kilburn Park", "Maida Vale"] -> {

"Lines" -> {"Bakerloo"}},

"Westminster" -> {"Zone" -> 1, Tooltip -> "Westminster"},

UndirectedEdge["Limehouse", "Westferry"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["Canonbury", "Highbury & Islington"] -> {

"Lines" -> {"Overground"}},

"Hatch End" -> {"Zone" -> 6, Tooltip -> "Hatch End"},

"Richmond" -> {"Zone" -> 4, Tooltip -> "Richmond"},

UndirectedEdge["Edgware Road", "Marylebone"] -> {

"Lines" -> {"Bakerloo"}},

UndirectedEdge["Ruislip", "Ruislip Manor"] -> {

"Lines" -> {"Metropolitan", "Piccadilly"}},

"London Bridge" -> {

"Zone" -> 1, Tooltip -> "London Bridge"},

"Epping" -> {"Zone" -> 6, Tooltip -> "Epping"},

"Monument" -> {"Zone" -> 1, Tooltip -> "Monument"},

UndirectedEdge["Crouch Hill", "Harringay Green Lanes"] -> {

"Lines" -> {"Overground"}},

"Westferry" -> {"Zone" -> 2, Tooltip -> "Westferry"},

"Hammersmith" -> {"Zone" -> 2, Tooltip -> "Hammersmith"},

"Theydon Bois" -> {

"Zone" -> 6, Tooltip -> "Theydon Bois"},

UndirectedEdge["Harlesden", "Willesden Junction"] -> {

"Lines" -> {"Bakerloo", "Overground"}},

"Mansion House" -> {

"Zone" -> 1, Tooltip -> "Mansion House"},

UndirectedEdge["Shepherd's Bush", "Willesden Junction"] -> {

"Lines" -> {"Overground"}},

"Limehouse" -> {"Zone" -> 2, Tooltip -> "Limehouse"},

UndirectedEdge["Rotherhithe", "Wapping"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Barons Court", "Hammersmith"] -> {

"Lines" -> {"District", "Piccadilly"}},

"Kenton" -> {"Zone" -> 4, Tooltip -> "Kenton"},

UndirectedEdge["Baker Street", "Regent's Park"] -> {

"Lines" -> {"Bakerloo"}},

"Hounslow West" -> {

"Zone" -> 5, Tooltip -> "Hounslow West"},

"Bromley-by-Bow" -> {

"Zone" -> {2, 3}, Tooltip -> "Bromley-by-Bow"},

"Acton Town" -> {"Zone" -> 3, Tooltip -> "Acton Town"},

"Kilburn High Road" -> {

"Zone" -> 2, Tooltip -> "Kilburn High Road"},

"West Kensington" -> {

"Zone" -> 2, Tooltip -> "West Kensington"},

UndirectedEdge["Poplar", "West India Quay"] -> {

"Lines" -> {"Docklands Light Rail"}},

"Chalk Farm" -> {"Zone" -> 2, Tooltip -> "Chalk Farm"},

"Notting Hill Gate" -> {

"Zone" -> {1, 2}, Tooltip -> "Notting Hill Gate"},

UndirectedEdge["Tooting Bec", "Tooting Broadway"] -> {

"Lines" -> {"Northern"}},

"Putney Bridge" -> {

"Zone" -> 2, Tooltip -> "Putney Bridge"},

UndirectedEdge["Gospel Oak", "Hamstead Heath"] -> {

"Lines" -> {"Overground"}},

"Woodford" -> {"Zone" -> 4, Tooltip -> "Woodford"},

UndirectedEdge["Hounslow Central", "Hounslow East"] -> {

"Lines" -> {"Piccadilly"}},

"West India Quay" -> {

"Zone" -> 2, Tooltip -> "West India Quay"},

UndirectedEdge["Pimlico", "Victoria"] -> {

"Lines" -> {"Victoria"}},

UndirectedEdge["Crossharbour", "South Quay"] -> {

"Lines" -> {"Docklands Light Rail"}},

"Camden Road" -> {"Zone" -> 2, Tooltip -> "Camden Road"},

UndirectedEdge["Elephant & Castle", "Kennington"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Brixton", "Stockwell"] -> {

"Lines" -> {"Victoria"}},

"Paddington" -> {"Zone" -> 1, Tooltip -> "Paddington"},

UndirectedEdge["Camden Road", "Kentish Town West"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Leicester Square", "Piccadilly Circus"] -> {

"Lines" -> {"Piccadilly"}},

"Piccadilly Circus" -> {

"Zone" -> 1, Tooltip -> "Piccadilly Circus"},

"Bethnal Green" -> {

"Zone" -> 2, Tooltip -> "Bethnal Green"},

UndirectedEdge["Barkingside", "Fairlop"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Kensal Green", "Willesden Junction"] -> {

"Lines" -> {"Bakerloo", "Overground"}},

UndirectedEdge["Becontree", "Upney"] -> {

"Lines" -> {"District"}},

"Upminster" -> {"Zone" -> 6, Tooltip -> "Upminster"},

UndirectedEdge["Amersham", "Chaifont & Latimer"] -> {

"Lines" -> {"Metropolitan"}},

UndirectedEdge["Heron Quays", "South Quay"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["Preston Road", "Wembley Park"] -> {

"Lines" -> {"Metropolitan"}},

"Clapham North" -> {

"Zone" -> 2, Tooltip -> "Clapham North"},

"Hampstead" -> {"Zone" -> {2, 3}, Tooltip -> "Hampstead"},

UndirectedEdge["Bow Church", "Pudding Mill Lane"] -> {

"Lines" -> {"Docklands Light Rail"}},

"Lancaster Gate" -> {

"Zone" -> 1, Tooltip -> "Lancaster Gate"},

UndirectedEdge["Kentish Town", "Tufnell Park"] -> {

"Lines" -> {"Northern"}},

"Schreditch High Street" -> {

"Zone" -> 1, Tooltip -> "Schreditch High Street"},

"Wembley Park" -> {

"Zone" -> 4, Tooltip -> "Wembley Park"},

UndirectedEdge["Arnos Grove", "Southgate"] -> {

"Lines" -> {"Piccadilly"}},

UndirectedEdge["Leytonstone", "Wanstead"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Maida Vale", "Warwick Avenue"] -> {

"Lines" -> {"Bakerloo"}},

UndirectedEdge["Brondesbury", "West Hampstead"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["St. James's Park", "Victoria"] -> {

"Lines" -> {"Circle", "District"}},

"Rickmansworth" -> {

"Zone" -> 7, Tooltip -> "Rickmansworth"},

UndirectedEdge["Balham", "Clapham South"] -> {

"Lines" -> {"Northern"}},

"Farringdon" -> {"Zone" -> 1, Tooltip -> "Farringdon"},

UndirectedEdge[

"Highbury & Islington", "King's Cross St. Pancras"] -> {

"Lines" -> {"Victoria"}},

UndirectedEdge["Stonebridge Park", "Wembley Central"] -> {

"Lines" -> {"Bakerloo", "Overground"}},

"Plaistow" -> {"Zone" -> 3, Tooltip -> "Plaistow"},

UndirectedEdge["Oxford Circus", "Tottenham Court Road"] -> {

"Lines" -> {"Central"}},

"Hoxton" -> {"Zone" -> {1, 2}, Tooltip -> "Hoxton"},

"Baker Street" -> {

"Zone" -> 1, Tooltip -> "Baker Street"},

"Bounds Green" -> {

"Zone" -> {3, 4}, Tooltip -> "Bounds Green"},

UndirectedEdge["Schreditch High Street", "Whitechapel"] -> {

"Lines" -> {"Overground"}},

"East Ham" -> {"Zone" -> {3, 4}, Tooltip -> "East Ham"},

"Regent's Park" -> {

"Zone" -> 1, Tooltip -> "Regent's Park"},

UndirectedEdge["Canada Water", "Rotherhithe"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Anerley", "Penge West"] -> {

"Lines" -> {"Overground"}},

"Walthamstow Queen's Road" -> {

"Zone" -> 3, Tooltip -> "Walthamstow Queen's Road"},

UndirectedEdge["Leyton", "Stratford"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["North Wembley", "Wembley Central"] -> {

"Lines" -> {"Bakerloo", "Overground"}},

"Colliers Wood" -> {

"Zone" -> 3, Tooltip -> "Colliers Wood"},

UndirectedEdge["Farringdon", "King's Cross St. Pancras"] -> {

"Lines" -> {

"Circle", "Hammersmith & City", "Metropolitan"}},

"Camden Town" -> {"Zone" -> 2, Tooltip -> "Camden Town"},

UndirectedEdge["Croxley", "Moor Park"] -> {

"Lines" -> {"Metropolitan"}},

"Bayswater" -> {"Zone" -> 1, Tooltip -> "Bayswater"},

"Vauxhall" -> {"Zone" -> {1, 2}, Tooltip -> "Vauxhall"},

UndirectedEdge["All Saints", "Langdon Park"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["St. James's Park", "Westminster"] -> {

"Lines" -> {"Circle", "District"}},

UndirectedEdge["Bromley-by-Bow", "West Ham"] -> {

"Lines" -> {"District", "Hammersmith & City"}},

UndirectedEdge["Balham", "Tooting Bec"] -> {

"Lines" -> {"Northern"}},

"Mile End" -> {"Zone" -> 2, Tooltip -> "Mile End"},

"Bond Street" -> {"Zone" -> 1, Tooltip -> "Bond Street"},

UndirectedEdge["Sudbury Hill", "Sudbury Town"] -> {

"Lines" -> {"Piccadilly"}},

"Ravenscourt Park" -> {

"Zone" -> 2, Tooltip -> "Ravenscourt Park"},

UndirectedEdge["Crystal Palace", "Sydenham"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Harrow-on-the-Hill", "Northwick Park"] -> {

"Lines" -> {"Metropolitan"}},

"Hounslow Central" -> {

"Zone" -> 4, Tooltip -> "Hounslow Central"},

"Upper Holloway" -> {

"Zone" -> 2, Tooltip -> "Upper Holloway"},

"Roding Valley" -> {

"Zone" -> 5, Tooltip -> "Roding Valley"},

UndirectedEdge["Arsenal", "Holloway Road"] -> {

"Lines" -> {"Piccadilly"}},

UndirectedEdge["Kew Gardens", "Richmond"] -> {

"Lines" -> {"District", "Overground"}},

"Hillingdon" -> {"Zone" -> 6, Tooltip -> "Hillingdon"},

"Fulham Broadway" -> {

"Zone" -> 2, Tooltip -> "Fulham Broadway"},

UndirectedEdge["Acton Central", "Willesden Junction"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Chorleywood", "Rickmansworth"] -> {

"Lines" -> {"Metropolitan"}},

UndirectedEdge["Ealing Broadway", "Ealing Common"] -> {

"Lines" -> {"District"}},

UndirectedEdge["Dollis Hill", "Willesden Green"] -> {

"Lines" -> {"Jubilee"}},

"Green Park" -> {"Zone" -> 1, Tooltip -> "Green Park"},

UndirectedEdge["Charing Cross", "Leicester Square"] -> {

"Lines" -> {"Northern"}},

"Amersham" -> {"Zone" -> 10, Tooltip -> "Amersham"},

"Greenford" -> {"Zone" -> 4, Tooltip -> "Greenford"},

UndirectedEdge["Holborn", "Russell Square"] -> {

"Lines" -> {"Piccadilly"}},

"Newbury Park" -> {

"Zone" -> 4, Tooltip -> "Newbury Park"},

UndirectedEdge["Ruislip Gardens", "West Ruislip"] -> {

"Lines" -> {"Central"}},

"Clapham South" -> {

"Zone" -> {2, 3}, Tooltip -> "Clapham South"},

"West Ruislip" -> {

"Zone" -> 6, Tooltip -> "West Ruislip"},

"Brondesbury Park" -> {

"Zone" -> 2, Tooltip -> "Brondesbury Park"},

"Devons Road" -> {"Zone" -> 2, Tooltip -> "Devons Road"},

UndirectedEdge["Lancaster Gate", "Marble Arch"] -> {

"Lines" -> {"Central"}},

"Finchley Road & Frognal" -> {

"Zone" -> 2, Tooltip -> "Finchley Road & Frognal"},

"Canning Town" -> {

"Zone" -> 3, Tooltip -> "Canning Town"},

UndirectedEdge["Blackwall", "Poplar"] -> {

"Lines" -> {"Docklands Light Rail"}},

"Walthamstow Central" -> {

"Zone" -> 3, Tooltip -> "Walthamstow Central"},

UndirectedEdge["London Bridge", "Southwark"] -> {

"Lines" -> {"Jubilee"}},

UndirectedEdge[

"Custom House for ExCeL", "Royal Victoria"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["Kennington", "Oval"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Forest Hill", "Sydenham"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Brent Cross", "Golders Green"] -> {

"Lines" -> {"Northern"}},

"Hornchurch" -> {"Zone" -> 6, Tooltip -> "Hornchurch"},

"Blackfriars" -> {"Zone" -> 1, Tooltip -> "Blackfriars"},

UndirectedEdge["Hornchurch", "Upminster Bridge"] -> {

"Lines" -> {"District"}},

UndirectedEdge["Bermondsey", "Canada Water"] -> {

"Lines" -> {"Jubilee"}},

"Homerton" -> {"Zone" -> 2, Tooltip -> "Homerton"},

"Ladbroke Grove" -> {

"Zone" -> 2, Tooltip -> "Ladbroke Grove"},

UndirectedEdge["Archway", "Tufnell Park"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Bond Street", "Marble Arch"] -> {

"Lines" -> {"Central"}},

"Penge West" -> {"Zone" -> 4, Tooltip -> "Penge West"},

"Cannon Street" -> {

"Zone" -> 1, Tooltip -> "Cannon Street"},

"Queen's Park" -> {

"Zone" -> 2, Tooltip -> "Queen's Park"},

UndirectedEdge["East Finchley", "Highgate"] -> {

"Lines" -> {"Northern"}},

"Moorgate" -> {"Zone" -> 1, Tooltip -> "Moorgate"},

UndirectedEdge["Blackhorse Road", "Tottenham Hale"] -> {

"Lines" -> {"Victoria"}},

"Hainault" -> {"Zone" -> 5, Tooltip -> "Hainault"},

"Northwick Park" -> {

"Zone" -> 4, Tooltip -> "Northwick Park"},

UndirectedEdge["Northwick Park", "Preston Road"] -> {

"Lines" -> {"Metropolitan"}},

"Woodside Park" -> {

"Zone" -> 4, Tooltip -> "Woodside Park"},

"Southgate" -> {"Zone" -> 4, Tooltip -> "Southgate"},

UndirectedEdge["Wanstead Park", "Woodrange Park"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Charing Cross", "Piccadilly Circus"] -> {

"Lines" -> {"Bakerloo"}},

UndirectedEdge["Earl's Court", "Gloucester Road"] -> {

"Lines" -> {"District", "Piccadilly"}},

"East India" -> {

"Zone" -> {2, 3}, Tooltip -> "East India"},

"Sheperd's Bush" -> {

"Zone" -> 2, Tooltip -> "Sheperd's Bush"},

"West Brompton" -> {

"Zone" -> 2, Tooltip -> "West Brompton"},

UndirectedEdge["Deptford Bridge", "Elverson Road"] -> {

"Lines" -> {"Docklands Light Rail"}},

"Dalston Junction" -> {

"Zone" -> 2, Tooltip -> "Dalston Junction"},

"North Harrow" -> {

"Zone" -> 5, Tooltip -> "North Harrow"},

"Sydenham" -> {"Zone" -> 3, Tooltip -> "Sydenham"},

"Alperton" -> {"Zone" -> 4, Tooltip -> "Alperton"},

UndirectedEdge["Dalston Kingsland", "Hackney Central"] -> {

"Lines" -> {"Overground"}},

"East Acton" -> {"Zone" -> 2, Tooltip -> "East Acton"},

"North Ealing" -> {

"Zone" -> 3, Tooltip -> "North Ealing"},

UndirectedEdge["Barking", "Woodrange Park"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Oxford Circus", "Piccadilly Circus"] -> {

"Lines" -> {"Bakerloo"}},

"Balham" -> {"Zone" -> 3, Tooltip -> "Balham"},

UndirectedEdge["Acton Town", "South Ealing"] -> {

"Lines" -> {"Piccadilly"}},

UndirectedEdge["Angel", "Old Street"] -> {

"Lines" -> {"Northern"}},

"Dollis Hill" -> {"Zone" -> 3, Tooltip -> "Dollis Hill"},

UndirectedEdge["Southfields", "Wimbeldon Park"] -> {

"Lines" -> {"District"}},

UndirectedEdge["Belsize Park", "Hampstead"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["East Acton", "White City"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Brockley", "Honor Oak Park"] -> {

"Lines" -> {"Overground"}},

"Loughton" -> {"Zone" -> 6, Tooltip -> "Loughton"},

"Perivale" -> {"Zone" -> 4, Tooltip -> "Perivale"},

UndirectedEdge["Plaistow", "Upton Park"] -> {

"Lines" -> {"District", "Hammersmith & City"}},

"Chaifont & Latimer" -> {

"Zone" -> 9, Tooltip -> "Chaifont & Latimer"},

UndirectedEdge["Rayners Lane", "South Harrow"] -> {

"Lines" -> {"Piccadilly"}},

"Goodge Street" -> {

"Zone" -> 1, Tooltip -> "Goodge Street"},

UndirectedEdge["Brockley", "New Cross Gate"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Elephant & Castle", "Lambeth North"] -> {

"Lines" -> {"Bakerloo"}},

"Tottenham Court Road" -> {

"Zone" -> 1, Tooltip -> "Tottenham Court Road"},

UndirectedEdge["Kilburn", "Willesden Green"] -> {

"Lines" -> {"Jubilee"}},

UndirectedEdge["Canons Park", "Stanmore"] -> {

"Lines" -> {"Jubilee"}},

"Ruislip Gardens" -> {

"Zone" -> 5, Tooltip -> "Ruislip Gardens"},

"Manor House" -> {

"Zone" -> {2, 3}, Tooltip -> "Manor House"},

"Swiss Cottage" -> {

"Zone" -> 2, Tooltip -> "Swiss Cottage"},

UndirectedEdge["Burnt Oak", "Edgware"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge[

"Hatton Cross", "Heathrow Terminals 1,2,3"] -> {

"Lines" -> {"Piccadilly"}},

UndirectedEdge["Redbridge", "Wanstead"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Bayswater", "Notting Hill Gate"] -> {

"Lines" -> {"Circle", "District"}},

UndirectedEdge["Canning Town", "Royal Victoria"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["Embankment", "Temple"] -> {

"Lines" -> {"Circle", "District"}},

"Moor Park" -> {"Zone" -> {6, 7}, Tooltip -> "Moor Park"},

UndirectedEdge["Canary Wharf", "Heron Quays"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["Bow Road", "Bromley-by-Bow"] -> {

"Lines" -> {"District", "Hammersmith & City"}},

UndirectedEdge["South Harrow", "Sudbury Hill"] -> {

"Lines" -> {"Piccadilly"}},

"New Cross Gate" -> {

"Zone" -> 2, Tooltip -> "New Cross Gate"},

UndirectedEdge["Kilburn Park", "Queen's Park"] -> {

"Lines" -> {"Bakerloo"}},

"Hackney Wick" -> {

"Zone" -> 2, Tooltip -> "Hackney Wick"},

"New Cross" -> {"Zone" -> 2, Tooltip -> "New Cross"},

UndirectedEdge["Custom House for ExCeL", "Prince Regent"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["Liverpool Street", "Moorgate"] -> {

"Lines" -> {

"Circle", "Hammersmith & City", "Metropolitan"}},

"Kensal Green" -> {

"Zone" -> {2, 3}, Tooltip -> "Kensal Green"},

"Russell Square" -> {

"Zone" -> 1, Tooltip -> "Russell Square"},

"Surrey Quays" -> {

"Zone" -> 2, Tooltip -> "Surrey Quays"},

"Watford Junction" -> {

"Zone" -> 1000, Tooltip -> "Watford Junction"},

"Willesden Junction" -> {

"Zone" -> 3, Tooltip -> "Willesden Junction"},

"Dalston Kingsland" -> {

"Zone" -> 2, Tooltip -> "Dalston Kingsland"},

UndirectedEdge["Shepherd's Bush", "White City"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Canada Water", "Surrey Quays"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Prince Regent", "Royal Albert"] -> {

"Lines" -> {"Docklands Light Rail"}},

"Kennington" -> {"Zone" -> 2, Tooltip -> "Kennington"},

UndirectedEdge["Shadwell", "Wapping"] -> {

"Lines" -> {"Overground"}},

"Leytonstone High Road" -> {

"Zone" -> 3, Tooltip -> "Leytonstone High Road"},

UndirectedEdge["Blackhorse Road", "South Tottenham"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Bayswater", "Paddington"] -> {

"Lines" -> {"Circle", "District"}},

"Beckton Park" -> {

"Zone" -> 3, Tooltip -> "Beckton Park"},

"West Silvertown" -> {

"Zone" -> 3, Tooltip -> "West Silvertown"},

"Kentish Town" -> {

"Zone" -> 2, Tooltip -> "Kentish Town"},

UndirectedEdge["Caledonian Road", "Holloway Road"] -> {

"Lines" -> {"Piccadilly"}},

"West Acton" -> {"Zone" -> 3, Tooltip -> "West Acton"},

UndirectedEdge["Bethnal Green", "Liverpool Street"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Bow Church", "Devons Road"] -> {

"Lines" -> {"Docklands Light Rail"}},

"Elm Park" -> {"Zone" -> 6, Tooltip -> "Elm Park"},

"Carpenders Park" -> {

"Zone" -> 7, Tooltip -> "Carpenders Park"},

UndirectedEdge["Dollis Hill", "Neasden"] -> {

"Lines" -> {"Jubilee"}},

"Watford" -> {"Zone" -> 7, Tooltip -> "Watford"},

UndirectedEdge["Archway", "Highgate"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge[

"High Street Kensington", "Notting Hill Gate"] -> {

"Lines" -> {"Circle", "District"}},

UndirectedEdge["Canons Park", "Queensbury"] -> {

"Lines" -> {"Jubilee"}},

"Sudbury Town" -> {

"Zone" -> 4, Tooltip -> "Sudbury Town"},

"West Croydon" -> {

"Zone" -> 5, Tooltip -> "West Croydon"},

UndirectedEdge["Finchley Road", "Wembley Park"] -> {

"Lines" -> {"Metropolitan"}},

"Island Gardens" -> {

"Zone" -> 2, Tooltip -> "Island Gardens"},

UndirectedEdge["Moorgate", "Old Street"] -> {

"Lines" -> {"Northern"}},

"Mill Hill East" -> {

"Zone" -> 4, Tooltip -> "Mill Hill East"},

UndirectedEdge["Finchley Road", "Swiss Cottage"] -> {

"Lines" -> {"Jubilee"}},

UndirectedEdge["Cyprus", "Gallions Reach"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["North Ealing", "Park Royal"] -> {

"Lines" -> {"Piccadilly"}},

"Victoria" -> {"Zone" -> 1, Tooltip -> "Victoria"},

"Osterley" -> {"Zone" -> 4, Tooltip -> "Osterley"},

UndirectedEdge["Pontoon Dock", "West Silvertown"] -> {

"Lines" -> {"Docklands Light Rail"}},

"Clapham Common" -> {

"Zone" -> 2, Tooltip -> "Clapham Common"},

UndirectedEdge["Harlesden", "Stonebridge Park"] -> {

"Lines" -> {"Bakerloo", "Overground"}},

UndirectedEdge["Baker Street", "Marylebone"] -> {

"Lines" -> {"Bakerloo"}},

UndirectedEdge["Ickenham", "Ruislip"] -> {

"Lines" -> {"Metropolitan", "Piccadilly"}},

UndirectedEdge["Notting Hill Gate", "Queensway"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Moor Park", "Rickmansworth"] -> {

"Lines" -> {"Metropolitan"}},

UndirectedEdge["Monument", "Tower Hill"] -> {

"Lines" -> {"Circle", "District"}},

UndirectedEdge["Southwark", "Waterloo"] -> {

"Lines" -> {"Jubilee"}},

"White City" -> {"Zone" -> 2, Tooltip -> "White City"},

UndirectedEdge["Kensington (Olympia)", "Shepherd's Bush"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Goodge Street", "Tottenham Court Road"] -> {

"Lines" -> {"Northern"}},

"Marble Arch" -> {"Zone" -> 1, Tooltip -> "Marble Arch"},

"Hendon Central" -> {

"Zone" -> {3, 4}, Tooltip -> "Hendon Central"},

"Finsbury Park" -> {

"Zone" -> 2, Tooltip -> "Finsbury Park"},

UndirectedEdge["Goodge Street", "Warren Street"] -> {

"Lines" -> {"Northern"}},

"Stepney Green" -> {

"Zone" -> 2, Tooltip -> "Stepney Green"},

"Euston" -> {"Zone" -> 1, Tooltip -> "Euston"},

UndirectedEdge["Bank", "Waterloo"] -> {

"Lines" -> {"Waterloo & City"}},

"Tufnell Park" -> {

"Zone" -> 2, Tooltip -> "Tufnell Park"},

UndirectedEdge["Blackhorse Road", "Walthamstow Central"] -> {

"Lines" -> {"Victoria"}},

UndirectedEdge["Aldgate", "Tower Hill"] -> {

"Lines" -> {"Circle"}},

UndirectedEdge["Blackfriars", "Mansion House"] -> {

"Lines" -> {"Circle", "District"}},

UndirectedEdge[

"Gloucester Road", "High Street Kensington"] -> {

"Lines" -> {"Circle"}},

"Goldhawk Road" -> {

"Zone" -> 2, Tooltip -> "Goldhawk Road"},

"Eastcote" -> {"Zone" -> 5, Tooltip -> "Eastcote"},

"Chigwell" -> {"Zone" -> 5, Tooltip -> "Chigwell"},

"Kingsbury" -> {"Zone" -> 4, Tooltip -> "Kingsbury"},

UndirectedEdge["Goldhawk Road", "Sheperd's Bush"] -> {

"Lines" -> {"Hammersmith & City"}},

UndirectedEdge["Penge West", "Sydenham"] -> {

"Lines" -> {"Overground"}},

"Covent Garden" -> {

"Zone" -> 1, Tooltip -> "Covent Garden"},

UndirectedEdge["Bounds Green", "Wood Green"] -> {

"Lines" -> {"Piccadilly"}},

"Euston Square" -> {

"Zone" -> 1, Tooltip -> "Euston Square"},

"North Wembley" -> {

"Zone" -> 4, Tooltip -> "North Wembley"},

UndirectedEdge["North Wembley", "South Kenton"] -> {

"Lines" -> {"Bakerloo", "Overground"}},

"Borough" -> {"Zone" -> 1, Tooltip -> "Borough"},

UndirectedEdge["Bank", "Liverpool Street"] -> {

"Lines" -> {"Central"}},

"Finchley Central" -> {

"Zone" -> 4, Tooltip -> "Finchley Central"},

"Leicester Square" -> {

"Zone" -> 1, Tooltip -> "Leicester Square"},

"Old Street" -> {"Zone" -> 1, Tooltip -> "Old Street"},

"Lewisham" -> {"Zone" -> 2, Tooltip -> "Lewisham"},

"Upminster Bridge" -> {

"Zone" -> 6, Tooltip -> "Upminster Bridge"},

"Chorleywood" -> {"Zone" -> 8, Tooltip -> "Chorleywood"},

"Beckton" -> {"Zone" -> 3, Tooltip -> "Beckton"},

"Hanger Lane" -> {"Zone" -> 3, Tooltip -> "Hanger Lane"},

"Fairlop" -> {"Zone" -> 5, Tooltip -> "Fairlop"},

UndirectedEdge["Kilburn High Road", "South Hampstead"] -> {

"Lines" -> {"Overground"}},

"Acton Central" -> {

"Zone" -> 3, Tooltip -> "Acton Central"},

"Wapping" -> {"Zone" -> 2, Tooltip -> "Wapping"},

"Edgware" -> {"Zone" -> 5, Tooltip -> "Edgware"},

"Poplar" -> {"Zone" -> 2, Tooltip -> "Poplar"},

UndirectedEdge["Hyde Park Corner", "Knightsbridge"] -> {

"Lines" -> {"Piccadilly"}},

UndirectedEdge["Acton Town", "Turnham Green"] -> {

"Lines" -> {"Piccadilly"}},

UndirectedEdge["Hatch End", "Headstone Lane"] -> {

"Lines" -> {"Overground"}},

"St. John's Wood" -> {

"Zone" -> 2, Tooltip -> "St. John's Wood"},

UndirectedEdge["Ravenscourt Park", "Stamford Brook"] -> {

"Lines" -> {"District"}},

"South Ealing" -> {

"Zone" -> 3, Tooltip -> "South Ealing"},

UndirectedEdge["King George V", "Woolwich Arsenal"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["Northwood", "Northwood Hills"] -> {

"Lines" -> {"Metropolitan"}},

UndirectedEdge["Borough", "Elephant & Castle"] -> {

"Lines" -> {"Northern"}},

"South Acton" -> {"Zone" -> 3, Tooltip -> "South Acton"},

"Hackney Central" -> {

"Zone" -> 2, Tooltip -> "Hackney Central"},

UndirectedEdge["Covent Garden", "Leicester Square"] -> {

"Lines" -> {"Piccadilly"}},

UndirectedEdge["Aldgate East", "Liverpool Street"] -> {

"Lines" -> {"Hammersmith & City"}},

"Stamford Brook" -> {

"Zone" -> 2, Tooltip -> "Stamford Brook"},

UndirectedEdge["Hanger Lane", "North Acton"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Clapham Common", "Clapham South"] -> {

"Lines" -> {"Northern"}},

"Preston Road" -> {

"Zone" -> 4, Tooltip -> "Preston Road"},

UndirectedEdge["Colliers Wood", "South Wimbeldon"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Harrow-on-the-Hill", "West Harrow"] -> {

"Lines" -> {"Metropolitan"}},

UndirectedEdge[

"Leicester Square", "Tottenham Court Road"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Gloucester Road", "South Kensington"] -> {

"Lines" -> {"Circle", "District", "Piccadilly"}},

UndirectedEdge["Roding Valley", "Woodford"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Hanger Lane", "Perivale"] -> {

"Lines" -> {"Central"}},

UndirectedEdge[

"King's Cross St. Pancras", "Russell Square"] -> {

"Lines" -> {"Piccadilly"}},

"Pinner" -> {"Zone" -> 5, Tooltip -> "Pinner"},

"Oxford Circus" -> {

"Zone" -> 1, Tooltip -> "Oxford Circus"},

UndirectedEdge["Kensal Green", "Queen's Park"] -> {

"Lines" -> {"Bakerloo", "Overground"}},

UndirectedEdge["Neasden", "Wembley Park"] -> {

"Lines" -> {"Jubilee"}},

UndirectedEdge["Green Park", "Westminster"] -> {

"Lines" -> {"Jubilee"}},

"Southwark" -> {"Zone" -> 1, Tooltip -> "Southwark"},

UndirectedEdge["Oakwood", "Southgate"] -> {

"Lines" -> {"Piccadilly"}},

"Seven Sisters" -> {

"Zone" -> 3, Tooltip -> "Seven Sisters"},

UndirectedEdge["Bow Road", "Mile End"] -> {

"Lines" -> {"District", "Hammersmith & City"}},

UndirectedEdge["Green Park", "Piccadilly Circus"] -> {

"Lines" -> {"Piccadilly"}},

"Upney" -> {"Zone" -> 4, Tooltip -> "Upney"},

UndirectedEdge["Leytonstone High Road", "Wanstead Park"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Bank", "St. Paul's"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Haggerston", "Hoxton"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Baker Street", "Finchley Road"] -> {

"Lines" -> {"Metropolitan"}},

UndirectedEdge["Moor Park", "Northwood"] -> {

"Lines" -> {"Metropolitan"}},

UndirectedEdge[

"Finchley Road & Frognal", "West Hampstead"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Angel", "King's Cross St. Pancras"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Northwood Hills", "Pinner"] -> {

"Lines" -> {"Metropolitan"}},

"Caledonian Road & Barnsbury" -> {

"Zone" -> 2, Tooltip -> "Caledonian Road & Barnsbury"},

"Wimbeldon" -> {"Zone" -> 3, Tooltip -> "Wimbeldon"},

UndirectedEdge["Northolt", "South Ruislip"] -> {

"Lines" -> {"Central"}},

"Bank" -> {"Zone" -> 1, Tooltip -> "Bank"},

UndirectedEdge["East Putney", "Putney Bridge"] -> {

"Lines" -> {"District"}},

"Burnt Oak" -> {"Zone" -> 4, Tooltip -> "Burnt Oak"},

UndirectedEdge["Finchley Central", "Mill Hill East"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Colliers Wood", "Tooting Broadway"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Greenford", "Northolt"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Ealing Broadway", "West Acton"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Finsbury Park", "Manor House"] -> {

"Lines" -> {"Piccadilly"}},

"Embankment" -> {"Zone" -> 1, Tooltip -> "Embankment"},

UndirectedEdge["Royal Oak", "Westbourne Park"] -> {

"Lines" -> {"Hammersmith & City"}},

UndirectedEdge["Alperton", "Park Royal"] -> {

"Lines" -> {"Piccadilly"}},

"Blackwall" -> {"Zone" -> 2, Tooltip -> "Blackwall"},

"West Hampstead" -> {

"Zone" -> 2, Tooltip -> "West Hampstead"},

"Haggerston" -> {"Zone" -> 2, Tooltip -> "Haggerston"},

"Wembley Central" -> {

"Zone" -> 4, Tooltip -> "Wembley Central"},

UndirectedEdge["Northfields", "South Ealing"] -> {

"Lines" -> {"Piccadilly"}},

"Canada Water" -> {

"Zone" -> 2, Tooltip -> "Canada Water"},

UndirectedEdge["Baker Street", "Bond Street"] -> {

"Lines" -> {"Jubilee"}},

"Pudding Mill Lane" -> {

"Zone" -> {2, 3}, Tooltip -> "Pudding Mill Lane"},

UndirectedEdge["Acton Central", "South Acton"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Golders Green", "Hampstead"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Canary Wharf", "North Greenwich"] -> {

"Lines" -> {"Jubilee"}},

"Neasden" -> {"Zone" -> 3, Tooltip -> "Neasden"},

UndirectedEdge["Becontree", "Dagenham Heathway"] -> {

"Lines" -> {"District"}},

UndirectedEdge["Gunnesbury", "South Acton"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Goldhawk Road", "Hammersmith"] -> {

"Lines" -> {"Hammersmith & City"}},

"Hyde Park Corner" -> {

"Zone" -> 1, Tooltip -> "Hyde Park Corner"},

UndirectedEdge["Arsenal", "Finsbury Park"] -> {

"Lines" -> {"Piccadilly"}},

UndirectedEdge["Debden", "Theydon Bois"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Chigwell", "Grange Hill"] -> {

"Lines" -> {"Central"}},

"Brent Cross" -> {"Zone" -> 3, Tooltip -> "Brent Cross"},

"Royal Oak" -> {"Zone" -> 2, Tooltip -> "Royal Oak"},

"Custom House for ExCeL" -> {

"Zone" -> 3, Tooltip -> "Custom House for ExCeL"},

"Stratford" -> {"Zone" -> 3, Tooltip -> "Stratford"},

UndirectedEdge["Beckton Park", "Cyprus"] -> {

"Lines" -> {"Docklands Light Rail"}},

"Prince Regent" -> {

"Zone" -> 3, Tooltip -> "Prince Regent"},

UndirectedEdge["Barons Court", "Earl's Court"] -> {

"Lines" -> {"Piccadilly"}},

"Crouch Hill" -> {"Zone" -> 3, Tooltip -> "Crouch Hill"},

"South Woodford" -> {

"Zone" -> 4, Tooltip -> "South Woodford"},

UndirectedEdge["Paddington", "Warwick Avenue"] -> {

"Lines" -> {"Bakerloo"}},

UndirectedEdge["Bank", "Shadwell"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge[

"Harringay Green Lanes", "South Tottenham"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Chigwell", "Roding Valley"] -> {

"Lines" -> {"Central"}},

"Tower Hill" -> {"Zone" -> 1, Tooltip -> "Tower Hill"},

UndirectedEdge["Gunnesbury", "Turnham Green"] -> {

"Lines" -> {"District"}},

UndirectedEdge["Covent Garden", "Holborn"] -> {

"Lines" -> {"Piccadilly"}},

UndirectedEdge["Alperton", "Sudbury Town"] -> {

"Lines" -> {"Piccadilly"}},

"Barbican" -> {"Zone" -> 1, Tooltip -> "Barbican"},

"Westbourne Park" -> {

"Zone" -> 2, Tooltip -> "Westbourne Park"},

"Belsize Park" -> {

"Zone" -> 2, Tooltip -> "Belsize Park"},

UndirectedEdge["Leytonstone", "Snaresbrook"] -> {

"Lines" -> {"Central"}},

"Becontree" -> {"Zone" -> 5, Tooltip -> "Becontree"},

UndirectedEdge["Kennington", "Waterloo"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Ladbroke Grove", "Westbourne Park"] -> {

"Lines" -> {"Hammersmith & City"}},

"Aldgate" -> {"Zone" -> 1, Tooltip -> "Aldgate"},

"Shadwell" -> {"Zone" -> 2, Tooltip -> "Shadwell"},

"Holland Park" -> {

"Zone" -> 2, Tooltip -> "Holland Park"},

UndirectedEdge["Euston", "South Hampstead"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Holland Park", "Shepherd's Bush"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Chaifont & Latimer", "Chesham"] -> {

"Lines" -> {"Metropolitan"}},

"Snaresbrook" -> {"Zone" -> 4, Tooltip -> "Snaresbrook"},

UndirectedEdge["Canning Town", "North Greenwich"] -> {

"Lines" -> {"Jubilee"}},

"Gloucester Road" -> {

"Zone" -> 1, Tooltip -> "Gloucester Road"},

UndirectedEdge["Bond Street", "Green Park"] -> {

"Lines" -> {"Jubilee"}},

"Watford High Street" -> {

"Zone" -> 8, Tooltip -> "Watford High Street"},

"Kilburn Park" -> {

"Zone" -> 2, Tooltip -> "Kilburn Park"},

"Stonebridge Park" -> {

"Zone" -> 3, Tooltip -> "Stonebridge Park"},

UndirectedEdge["Fulham Broadway", "West Brompton"] -> {

"Lines" -> {"District"}},

"Harringay Green Lanes" -> {

"Zone" -> 3, Tooltip -> "Harringay Green Lanes"},

UndirectedEdge["Kingsbury", "Wembley Park"] -> {

"Lines" -> {"Jubilee"}},

UndirectedEdge[

"Cutty Sark for Maritime Greenwich", "Island Gardens"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["Hounslow East", "Osterley"] -> {

"Lines" -> {"Piccadilly"}},

UndirectedEdge["Camden Town", "Mornington Crescent"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Shadwell", "Tower Gateway"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["Earl's Court", "West Brompton"] -> {

"Lines" -> {"District"}},

"Barkingside" -> {"Zone" -> 5, Tooltip -> "Barkingside"},

UndirectedEdge["Chiswick Park", "Turnham Green"] -> {

"Lines" -> {"District"}},

UndirectedEdge["Snaresbrook", "South Woodford"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["King George V", "London City Airport"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["Canary Wharf", "West India Quay"] -> {

"Lines" -> {"Docklands Light Rail"}},

"Heron Quays" -> {"Zone" -> 2, Tooltip -> "Heron Quays"},

"Holloway Road" -> {

"Zone" -> 2, Tooltip -> "Holloway Road"},

UndirectedEdge["Beckton Park", "Royal Albert"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["Anerley", "Norwood Junction"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge[

"Leyton Midland Road", "Walthamstow Queen's Road"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["New Cross", "Surrey Quays"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["East Ham", "Upton Park"] -> {

"Lines" -> {"District", "Hammersmith & City"}},

UndirectedEdge["Green Park", "Victoria"] -> {

"Lines" -> {"Victoria"}},

UndirectedEdge[

"Caledonian Road", "King's Cross St. Pancras"] -> {

"Lines" -> {"Piccadilly"}},

UndirectedEdge["Debden", "Loughton"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Hatton Cross", "Hounslow West"] -> {

"Lines" -> {"Piccadilly"}},

"Hamstead Heath" -> {

"Zone" -> 2, Tooltip -> "Hamstead Heath"},

UndirectedEdge["Brondesbury Park", "Kensal Rise"] -> {

"Lines" -> {"Overground"}},

"Canary Wharf" -> {

"Zone" -> {2, 3}, Tooltip -> "Canary Wharf"},

UndirectedEdge["Oval", "Stockwell"] -> {

"Lines" -> {"Northern"}},

"Sloane Square" -> {

"Zone" -> 1, Tooltip -> "Sloane Square"},

"Gallions Reach" -> {

"Zone" -> 3, Tooltip -> "Gallions Reach"},

UndirectedEdge["Morden", "South Wimbeldon"] -> {

"Lines" -> {"Northern"}},

"Imperial Wharf" -> {

"Zone" -> 2, Tooltip -> "Imperial Wharf"},

UndirectedEdge["Canada Water", "Canary Wharf"] -> {

"Lines" -> {"Jubilee"}},

"Warren Street" -> {

"Zone" -> 1, Tooltip -> "Warren Street"},

"Kensington (Olympia)" -> {

"Zone" -> 2, Tooltip -> "Kensington (Olympia)"},

UndirectedEdge["Euston", "King's Cross St. Pancras"] -> {

"Lines" -> {"Northern", "Victoria"}},

UndirectedEdge["Lancaster Gate", "Queensway"] -> {

"Lines" -> {"Central"}},

"Kilburn" -> {"Zone" -> 2, Tooltip -> "Kilburn"},

"High Barnet" -> {"Zone" -> 5, Tooltip -> "High Barnet"},

UndirectedEdge["Burnt Oak", "Colindale"] -> {

"Lines" -> {"Northern"}},

"Chesham" -> {"Zone" -> 10, Tooltip -> "Chesham"},

"Royal Albert" -> {

"Zone" -> 3, Tooltip -> "Royal Albert"},

"Tooting Broadway" -> {

"Zone" -> 3, Tooltip -> "Tooting Broadway"},

UndirectedEdge["Harrow & Wealdstone", "Kenton"] -> {

"Lines" -> {"Bakerloo", "Overground"}},

"Harlesden" -> {"Zone" -> 3, Tooltip -> "Harlesden"},

"Redbridge" -> {"Zone" -> 4, Tooltip -> "Redbridge"},

UndirectedEdge["St. John's Wood", "Swiss Cottage"] -> {

"Lines" -> {"Jubilee"}},

UndirectedEdge["Limehouse", "Shadwell"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge[

"Blackhorse Road", "Walthamstow Queen's Road"] -> {

"Lines" -> {"Overground"}},

"Park Royal" -> {"Zone" -> 3, Tooltip -> "Park Royal"},

UndirectedEdge["New Cross Gate", "Surrey Quays"] -> {

"Lines" -> {"Overground"}},

"Barons Court" -> {

"Zone" -> 2, Tooltip -> "Barons Court"},

"Dagenham East" -> {

"Zone" -> 5, Tooltip -> "Dagenham East"},

UndirectedEdge["Barons Court", "West Kensington"] -> {

"Lines" -> {"District"}},

UndirectedEdge["Imperial Wharf", "West Brompton"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Paddington", "Royal Oak"] -> {

"Lines" -> {"Hammersmith & City"}},

UndirectedEdge["Watford High Street", "Watford Junction"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Hoxton", "Schreditch High Street"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Clapham Junction", "Imperial Wharf"] -> {

"Lines" -> {"Overground"}},

"Gospel Oak" -> {"Zone" -> 2, Tooltip -> "Gospel Oak"},

UndirectedEdge["Chancery Lane", "Holborn"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Bethnal Green", "Mile End"] -> {

"Lines" -> {"Central"}},

"Kentish Town West" -> {

"Zone" -> 2, Tooltip -> "Kentish Town West"},

UndirectedEdge["Dagenham East", "Dagenham Heathway"] -> {

"Lines" -> {"District"}},

UndirectedEdge["Camden Town", "Kentish Town"] -> {

"Lines" -> {"Northern"}},

"Morden" -> {"Zone" -> 4, Tooltip -> "Morden"},

UndirectedEdge["Ruislip Gardens", "South Ruislip"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Pimlico", "Vauxhall"] -> {

"Lines" -> {"Victoria"}},

"London City Airport" -> {

"Zone" -> 3, Tooltip -> "London City Airport"},

"Stanmore" -> {"Zone" -> 5, Tooltip -> "Stanmore"},

"Temple" -> {"Zone" -> 1, Tooltip -> "Temple"},

"Woodrange Park" -> {

"Zone" -> {3, 4}, Tooltip -> "Woodrange Park"},

UndirectedEdge["Barking", "Upney"] -> {

"Lines" -> {"District"}},

UndirectedEdge["Poplar", "Westferry"] -> {

"Lines" -> {"Docklands Light Rail"}},

"Honor Oak Park" -> {

"Zone" -> 3, Tooltip -> "Honor Oak Park"},

"Kew Gardens" -> {

"Zone" -> {3, 4}, Tooltip -> "Kew Gardens"},

"Lambeth North" -> {

"Zone" -> 1, Tooltip -> "Lambeth North"},

"Oval" -> {"Zone" -> 2, Tooltip -> "Oval"},

"St. James's Park" -> {

"Zone" -> 1, Tooltip -> "St. James's Park"},

"Headstone Lane" -> {

"Zone" -> 5, Tooltip -> "Headstone Lane"},

"West Harrow" -> {"Zone" -> 5, Tooltip -> "West Harrow"},

UndirectedEdge["Boston Manor", "Osterley"] -> {

"Lines" -> {"Piccadilly"}},

"Earl's Court" -> {

"Zone" -> {1, 2}, Tooltip -> "Earl's Court"},

UndirectedEdge["Deptford Bridge", "Greenwich"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["Kilburn", "West Hampstead"] -> {

"Lines" -> {"Jubilee"}},

UndirectedEdge["Barbican", "Farringdon"] -> {

"Lines" -> {

"Circle", "Hammersmith & City", "Metropolitan"}},

UndirectedEdge["Waterloo", "Westminster"] -> {

"Lines" -> {"Jubilee"}},

"Croxley" -> {"Zone" -> 7, Tooltip -> "Croxley"},

UndirectedEdge["Devons Road", "Langdon Park"] -> {

"Lines" -> {"Docklands Light Rail"}},

"Deptford Bridge" -> {

"Zone" -> 2, Tooltip -> "Deptford Bridge"},

UndirectedEdge["Blackfriars", "Temple"] -> {

"Lines" -> {"Circle", "District"}},

UndirectedEdge["Greenford", "Perivale"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Buckhurst Hill", "South Woodford"] -> {

"Lines" -> {"Central"}},

"Bermondsey" -> {"Zone" -> 2, Tooltip -> "Bermondsey"},

"All Saints" -> {"Zone" -> 2, Tooltip -> "All Saints"},

"St. Paul's" -> {"Zone" -> 1, Tooltip -> "St. Paul's"},

"Bow Church" -> {"Zone" -> 2, Tooltip -> "Bow Church"},

UndirectedEdge["Dalston Junction", "Haggerston"] -> {

"Lines" -> {"Overground"}},

"King George V" -> {

"Zone" -> 3, Tooltip -> "King George V"},

"Edgware Road" -> {

"Zone" -> 1, Tooltip -> "Edgware Road"},

"Forest Hill" -> {"Zone" -> 3, Tooltip -> "Forest Hill"},

"Hatton Cross" -> {

"Zone" -> {5, 6}, Tooltip -> "Hatton Cross"},

"Totteridge & Whetstone" -> {

"Zone" -> 4, Tooltip -> "Totteridge & Whetstone"},

"Anerley" -> {"Zone" -> 4, Tooltip -> "Anerley"},

"Great Portland Street" -> {

"Zone" -> 1, Tooltip -> "Great Portland Street"},

"Northwood Hills" -> {

"Zone" -> 6, Tooltip -> "Northwood Hills"},

"Leyton" -> {"Zone" -> 3, Tooltip -> "Leyton"},

UndirectedEdge["Canning Town", "West Silvertown"] -> {

"Lines" -> {"Docklands Light Rail"}},

"Greenwich" -> {"Zone" -> 2, Tooltip -> "Greenwich"},

UndirectedEdge["Gospel Oak", "Kentish Town West"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge[

"Euston Square", "King's Cross St. Pancras"] -> {

"Lines" -> {

"Circle", "Hammersmith & City", "Metropolitan"}},

UndirectedEdge["Hackney Wick", "Homerton"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Bond Street", "Oxford Circus"] -> {

"Lines" -> {"Central"}},

"Golders Green" -> {

"Zone" -> 3, Tooltip -> "Golders Green"},

UndirectedEdge["North Acton", "West Acton"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Kingsbury", "Queensbury"] -> {

"Lines" -> {"Jubilee"}},

"Dagenham Heathway" -> {

"Zone" -> 5, Tooltip -> "Dagenham Heathway"},

UndirectedEdge["Rayners Lane", "West Harrow"] -> {

"Lines" -> {"Metropolitan"}},

"Pimlico" -> {"Zone" -> 1, Tooltip -> "Pimlico"},

UndirectedEdge["Knightsbridge", "South Kensington"] -> {

"Lines" -> {"Piccadilly"}},

UndirectedEdge["Bermondsey", "London Bridge"] -> {

"Lines" -> {"Jubilee"}},

UndirectedEdge["Hillingdon", "Uxbridge"] -> {

"Lines" -> {"Metropolitan", "Piccadilly"}},

"Ealing Broadway" -> {

"Zone" -> 3, Tooltip -> "Ealing Broadway"},

UndirectedEdge["Clapham North", "Stockwell"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Stockwell", "Vauxhall"] -> {

"Lines" -> {"Victoria"}},

UndirectedEdge["Kilburn High Road", "Queen's Park"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Charing Cross", "Embankment"] -> {

"Lines" -> {"Bakerloo", "Northern"}},

"Sudbury Hill" -> {

"Zone" -> 4, Tooltip -> "Sudbury Hill"},

UndirectedEdge["Stratford", "West Ham"] -> {

"Lines" -> {"Jubilee"}},

UndirectedEdge["Grange Hill", "Hainault"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Barbican", "Moorgate"] -> {

"Lines" -> {

"Circle", "Hammersmith & City", "Metropolitan"}},

UndirectedEdge["Carpenders Park", "Hatch End"] -> {

"Lines" -> {"Overground"}},

"Wimbeldon Park" -> {

"Zone" -> 3, Tooltip -> "Wimbeldon Park"},

UndirectedEdge["Eastcote", "Rayners Lane"] -> {

"Lines" -> {"Metropolitan", "Piccadilly"}},

UndirectedEdge["High Barnet", "Totteridge & Whetstone"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Ladbroke Grove", "Latimer Road"] -> {

"Lines" -> {"Hammersmith & City"}},

UndirectedEdge["Blackwall", "East India"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["Leyton", "Leytonstone"] -> {

"Lines" -> {"Central"}},

"South Hampstead" -> {

"Zone" -> 2, Tooltip -> "South Hampstead"},

UndirectedEdge["Ealing Common", "North Ealing"] -> {

"Lines" -> {"Piccadilly"}},

"Northolt" -> {"Zone" -> 5, Tooltip -> "Northolt"},

"Pontoon Dock" -> {

"Zone" -> 3, Tooltip -> "Pontoon Dock"},

UndirectedEdge["Island Gardens", "Mudchute"] -> {

"Lines" -> {"Docklands Light Rail"}},

"Aldgate East" -> {

"Zone" -> 1, Tooltip -> "Aldgate East"},

UndirectedEdge["Upminster", "Upminster Bridge"] -> {

"Lines" -> {"District"}},

"Southfields" -> {"Zone" -> 3, Tooltip -> "Southfields"},

UndirectedEdge["Embankment", "Westminster"] -> {

"Lines" -> {"Circle", "District"}},

"Elephant & Castle" -> {

"Zone" -> {1, 2}, Tooltip -> "Elephant & Castle"},

"Northfields" -> {"Zone" -> 3, Tooltip -> "Northfields"},

UndirectedEdge["Barkingside", "Newbury Park"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["All Saints", "Poplar"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["Harrow-on-the-Hill", "North Harrow"] -> {

"Lines" -> {"Metropolitan"}},

"Rayners Lane" -> {

"Zone" -> 5, Tooltip -> "Rayners Lane"},

"Debden" -> {"Zone" -> 6, Tooltip -> "Debden"},

"Warwick Avenue" -> {

"Zone" -> 2, Tooltip -> "Warwick Avenue"},

UndirectedEdge["Lambeth North", "Waterloo"] -> {

"Lines" -> {"Bakerloo"}},

UndirectedEdge["Westferry", "West India Quay"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["Harrow & Wealdstone", "Headstone Lane"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Dalston Junction", "Dalston Kingsland"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Camden Town", "Chalk Farm"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Bushey", "Watford High Street"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Acton Town", "Chiswick Park"] -> {

"Lines" -> {"District"}},

UndirectedEdge["Dagenham East", "Elm Park"] -> {

"Lines" -> {"District"}},

"Archway" -> {"Zone" -> {2, 3}, Tooltip -> "Archway"},

"Maida Vale" -> {"Zone" -> 2, Tooltip -> "Maida Vale"},

"Crossharbour" -> {

"Zone" -> 2, Tooltip -> "Crossharbour"},

"Heathrow Terminals 1,2,3" -> {

"Zone" -> 6, Tooltip -> "Heathrow Terminals 1,2,3"},

UndirectedEdge["Seven Sisters", "Tottenham Hale"] -> {

"Lines" -> {"Victoria"}},

"North Acton" -> {

"Zone" -> {2, 3}, Tooltip -> "North Acton"},

"East Putney" -> {

"Zone" -> {2, 3}, Tooltip -> "East Putney"},

"Liverpool Street" -> {

"Zone" -> 1, Tooltip -> "Liverpool Street"},

"Langdon Park" -> {

"Zone" -> 2, Tooltip -> "Langdon Park"},

UndirectedEdge["Sloane Square", "Victoria"] -> {

"Lines" -> {"Circle", "District"}},

UndirectedEdge["Elverson Road", "Lewisham"] -> {

"Lines" -> {"Docklands Light Rail"}},

"Tooting Bec" -> {"Zone" -> 3, Tooltip -> "Tooting Bec"},

"East Finchley" -> {

"Zone" -> 3, Tooltip -> "East Finchley"},

UndirectedEdge["Croxley", "Watford"] -> {

"Lines" -> {"Metropolitan"}},

"Arsenal" -> {"Zone" -> 2, Tooltip -> "Arsenal"},

"Northwood" -> {"Zone" -> 6, Tooltip -> "Northwood"},

UndirectedEdge["Hackney Central", "Homerton"] -> {

"Lines" -> {"Overground"}},

"Queensway" -> {"Zone" -> 1, Tooltip -> "Queensway"},

UndirectedEdge["Baker Street", "Great Portland Street"] -> {

"Lines" -> {

"Circle", "Hammersmith & City", "Metropolitan"}},

UndirectedEdge["Norwood Junction", "West Croydon"] -> {

"Lines" -> {"Overground"}},

"Bow Road" -> {"Zone" -> 2, Tooltip -> "Bow Road"},

"Norwood Junction" -> {

"Zone" -> 4, Tooltip -> "Norwood Junction"},

"Ruislip Manor" -> {

"Zone" -> 6, Tooltip -> "Ruislip Manor"},

"Tottenham Hale" -> {

"Zone" -> 3, Tooltip -> "Tottenham Hale"},

"Cockfosters" -> {"Zone" -> 5, Tooltip -> "Cockfosters"},

"Finchley Road" -> {

"Zone" -> 2, Tooltip -> "Finchley Road"},

"High Street Kensington" -> {

"Zone" -> 1, Tooltip -> "High Street Kensington"},

"South Quay" -> {"Zone" -> 2, Tooltip -> "South Quay"},

UndirectedEdge["Euston", "Warren Street"] -> {

"Lines" -> {"Northern", "Victoria"}},

UndirectedEdge["Holland Park", "Notting Hill Gate"] -> {

"Lines" -> {"Central"}},

"Mornington Crescent" -> {

"Zone" -> 2, Tooltip -> "Mornington Crescent"},

UndirectedEdge[

"Leyton Midland Road", "Leytonstone High Road"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Kensal Rise", "Willesden Junction"] -> {

"Lines" -> {"Overground"}},

"Ickenham" -> {"Zone" -> 6, Tooltip -> "Ickenham"},

UndirectedEdge["Earl's Court", "Kensington (Olympia)"] -> {

"Lines" -> {"District"}},

"Leyton Midland Road" -> {

"Zone" -> 3, Tooltip -> "Leyton Midland Road"},

UndirectedEdge["Belsize Park", "Chalk Farm"] -> {

"Lines" -> {"Northern"}},

"Hounslow East" -> {

"Zone" -> 4, Tooltip -> "Hounslow East"},

"Turnham Green" -> {

"Zone" -> {2, 3}, Tooltip -> "Turnham Green"},

"Arnos Grove" -> {"Zone" -> 4, Tooltip -> "Arnos Grove"},

UndirectedEdge["East Putney", "Southfields"] -> {

"Lines" -> {"District"}},

UndirectedEdge["Finsbury Park", "Highbury & Islington"] -> {

"Lines" -> {"Victoria"}},

"South Kenton" -> {

"Zone" -> 4, Tooltip -> "South Kenton"},

UndirectedEdge["Shadwell", "Whitechapel"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Pudding Mill Lane", "Stratford"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["Holborn", "Tottenham Court Road"] -> {

"Lines" -> {"Central"}},

"Latimer Road" -> {

"Zone" -> 2, Tooltip -> "Latimer Road"},

"Stockwell" -> {"Zone" -> 2, Tooltip -> "Stockwell"},

"North Greenwich" -> {

"Zone" -> 3, Tooltip -> "North Greenwich"},

"Waterloo" -> {"Zone" -> 1, Tooltip -> "Waterloo"},

"Ruislip" -> {"Zone" -> 6, Tooltip -> "Ruislip"},

"Colindale" -> {"Zone" -> 4, Tooltip -> "Colindale"},

UndirectedEdge["Gants Hill", "Redbridge"] -> {

"Lines" -> {"Central"}},

"South Kensington" -> {

"Zone" -> 1, Tooltip -> "South Kensington"},

"Woolwich Arsenal" -> {

"Zone" -> 4, Tooltip -> "Woolwich Arsenal"},

UndirectedEdge["Hillingdon", "Ickenham"] -> {

"Lines" -> {"Metropolitan", "Piccadilly"}},

"Ealing Common" -> {

"Zone" -> 3, Tooltip -> "Ealing Common"},

"Rotherhithe" -> {"Zone" -> 2, Tooltip -> "Rotherhithe"},

UndirectedEdge["Colindale", "Hendon Central"] -> {

"Lines" -> {"Northern"}},

"South Wimbeldon" -> {

"Zone" -> {3, 4}, Tooltip -> "South Wimbeldon"},

UndirectedEdge["Mile End", "Stepney Green"] -> {

"Lines" -> {"District", "Hammersmith & City"}},

UndirectedEdge["Turnpike Lane", "Wood Green"] -> {

"Lines" -> {"Piccadilly"}},

UndirectedEdge["East Finchley", "Finchley Central"] -> {

"Lines" -> {"Northern"}},

"Blackhorse Road" -> {

"Zone" -> 3, Tooltip -> "Blackhorse Road"},

UndirectedEdge["Earl's Court", "West Kensington"] -> {

"Lines" -> {"District"}},

UndirectedEdge["Crossharbour", "Mudchute"] -> {

"Lines" -> {"Docklands Light Rail"}},

UndirectedEdge["Kensington (Olympia)", "West Brompton"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["East Acton", "North Acton"] -> {

"Lines" -> {"Central"}},

"Harrow & Wealdstone" -> {

"Zone" -> 5, Tooltip -> "Harrow & Wealdstone"},

"Canonbury" -> {"Zone" -> 2, Tooltip -> "Canonbury"},

UndirectedEdge["Hammersmith", "Ravenscourt Park"] -> {

"Lines" -> {"District"}},

UndirectedEdge[

"Caledonian Road & Barnsbury", "Camden Road"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Borough", "London Bridge"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Earl's Court", "High Street Kensington"] -> {

"Lines" -> {"District"}},

"Brockley" -> {"Zone" -> 2, Tooltip -> "Brockley"},

"Crystal Palace" -> {

"Zone" -> {3, 4}, Tooltip -> "Crystal Palace"},

UndirectedEdge["Gunnesbury", "Kew Gardens"] -> {

"Lines" -> {"District", "Overground"}},

"Buckhurst Hill" -> {

"Zone" -> 5, Tooltip -> "Buckhurst Hill"},

"South Tottenham" -> {

"Zone" -> 3, Tooltip -> "South Tottenham"},

"Elverson Road" -> {

"Zone" -> 2, Tooltip -> "Elverson Road"},

"Cyprus" -> {"Zone" -> 3, Tooltip -> "Cyprus"},

"Cutty Sark for Maritime Greenwich" -> {

"Zone" -> 2,

Tooltip -> "Cutty Sark for Maritime Greenwich"},

UndirectedEdge["Totteridge & Whetstone", "Woodside Park"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Stepney Green", "Whitechapel"] -> {

"Lines" -> {"District", "Hammersmith & City"}},

UndirectedEdge["Finchley Road", "West Hampstead"] -> {

"Lines" -> {"Jubilee"}},

UndirectedEdge["Camden Town", "Euston"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Finchley Central", "West Finchley"] -> {

"Lines" -> {"Northern"}},

UndirectedEdge["Hackney Wick", "Stratford"] -> {

"Lines" -> {"Overground"}},

UndirectedEdge["Chaifont & Latimer", "Chorleywood"] -> {

"Lines" -> {"Metropolitan"}},

"Highbury & Islington" -> {

"Zone" -> 2, Tooltip -> "Highbury & Islington"},

UndirectedEdge["Cannon Street", "Mansion House"] -> {

"Lines" -> {"Circle", "District"}},

UndirectedEdge["Green Park", "Hyde Park Corner"] -> {

"Lines" -> {"Piccadilly"}},

UndirectedEdge["Sloane Square", "South Kensington"] -> {

"Lines" -> {"Circle", "District"}},

"Knightsbridge" -> {

"Zone" -> 1, Tooltip -> "Knightsbridge"},

"Oakwood" -> {"Zone" -> 5, Tooltip -> "Oakwood"},

"Marylebone" -> {"Zone" -> 1, Tooltip -> "Marylebone"},

UndirectedEdge["Chancery Lane", "St. Paul's"] -> {

"Lines" -> {"Central"}},

UndirectedEdge["Wimbeldon", "Wimbeldon Park"] -> {

"Lines" -> {"District"}},

"Angel" -> {"Zone" -> 1, Tooltip -> "Angel"},

UndirectedEdge["Clapham Common", "Clapham North"] -> {

"Lines" -> {"Northern"}},

"Canons Park" -> {"Zone" -> 5, Tooltip -> "Canons Park"},

UndirectedEdge["Brent Cross", "Hendon Central"] -> {

"Lines" -> {"Northern"}},

"South Harrow" -> {

"Zone" -> 5, Tooltip -> "South Harrow"}},

EdgeShapeFunction -> {

UndirectedEdge[

"Northwood Hills",

"Pinner"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Pinner"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Amersham",

"Chaifont & \

Latimer"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Chaifont & Latimer"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Colindale",

"Hendon Central"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Colindale"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Crossharbour",

"South Quay"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "South Quay"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Canons Park",

"Queensbury"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Canons Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"North Harrow",

"Pinner"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "North Harrow"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Kew Gardens",

"Richmond"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Kew Gardens"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}], {

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"East Acton",

"White City"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "White City"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Moorgate",

"Old Street"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Old Street"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Hatton Cross",

"Hounslow West"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Hounslow West"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Canada Water",

"Rotherhithe"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Rotherhithe"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"East Ham",

"Upton Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "East Ham"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}],

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Finchley Central",

"West Finchley"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Finchley Central"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bethnal Green",

"Liverpool Street"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Bethnal Green"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bounds Green",

"Wood Green"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Bounds Green"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"St. James's Park",

"Westminster"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "St. James's Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Harrow-on-the-Hill",

"West Harrow"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Harrow-on-the-Hill"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Deptford Bridge",

"Greenwich"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Greenwich"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Hoxton",

"Schreditch High \

Street"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Hoxton"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"North Ealing",

"Park Royal"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "North Ealing"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Acton Town",

"Ealing Common"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Acton Town"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}],

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Hounslow East",

"Osterley"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Osterley"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"West Finchley",

"Woodside Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "West Finchley"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Chancery Lane",

"Holborn"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Chancery Lane"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bayswater",

"Notting Hill Gate"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Bayswater"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Hackney Central",

"Homerton"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Hackney Central"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Sloane Square",

"South Kensington"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "South Kensington"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Preston Road",

"Wembley Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Wembley Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Elephant & Castle",

"Lambeth North"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Elephant & Castle"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bushey",

"Watford High \

Street"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Bushey"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Highbury & Islington",

"King's Cross St. \

Pancras"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Highbury & Islington"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Pimlico",

"Vauxhall"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Pimlico"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Balham",

"Tooting Bec"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Balham"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Latimer Road",

"Sheperd's Bush"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Latimer Road"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Kingsbury",

"Queensbury"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Queensbury"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Holland Park",

"Shepherd's Bush"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Holland Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Tooting Bec",

"Tooting Broadway"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Tooting Bec"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Morden",

"South Wimbeldon"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "South Wimbeldon"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"St. James's Park",

"Victoria"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Victoria"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"King George V",

"London City \

Airport"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "London City Airport"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Prince Regent",

"Royal Albert"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Prince Regent"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bank",

"Waterloo"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Bank"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.475, 0.796, 0.745}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Belsize Park",

"Hampstead"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Hampstead"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Aldgate",

"Tower Hill"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Tower Hill"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Greenford",

"Perivale"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Perivale"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Beckton",

"Gallions Reach"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Gallions Reach"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Leytonstone",

"Wanstead"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Wanstead"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Gospel Oak",

"Kentish Town West"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Gospel Oak"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Kilburn High Road",

"South Hampstead"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Kilburn High Road"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bank",

"London Bridge"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Bank"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Earl's Court",

"Kensington \

(Olympia)"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Earl's Court"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Brent Cross",

"Hendon Central"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Hendon Central"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Crossharbour",

"Mudchute"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Crossharbour"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Green Park",

"Oxford Circus"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Oxford Circus"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Goldhawk Road",

"Hammersmith"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Goldhawk Road"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Sudbury Hill",

"Sudbury Town"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Sudbury Town"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Rayners Lane",

"West Harrow"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "West Harrow"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Goodge Street",

"Warren Street"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Goodge Street"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bond Street",

"Green Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Bond Street"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Chiswick Park",

"Turnham Green"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Turnham Green"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Watford High Street",

"Watford Junction"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Watford High Street"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Harrow-on-the-Hill",

"North Harrow"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Harrow-on-the-Hill"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Kensal Green",

"Queen's Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Queen's Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}], {

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Caledonian Road & Barnsbury",

"Camden Road"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Camden Road"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Ealing Broadway",

"Ealing Common"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Ealing Common"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bank",

"Shadwell"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Shadwell"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bow Church",

"Pudding Mill Lane"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Pudding Mill Lane"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Finchley Road",

"Wembley Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Finchley Road"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Baker Street",

"Regent's Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Regent's Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Stamford Brook",

"Turnham Green"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Stamford Brook"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Hillingdon",

"Uxbridge"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Hillingdon"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}],

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Earl's Court",

"High Street \

Kensington"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Earl's Court"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Sloane Square",

"Victoria"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Sloane Square"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Shadwell",

"Tower Gateway"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Shadwell"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Alperton",

"Sudbury Town"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Alperton"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Elephant & Castle",

"Kennington"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Elephant & Castle"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Eastcote",

"Ruislip Manor"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Eastcote"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}],

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Harrow & Wealdstone",

"Headstone Lane"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Harrow & Wealdstone"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Kilburn Park",

"Queen's Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Kilburn Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Dalston Junction",

"Dalston Kingsland"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Dalston Kingsland"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Chaifont & Latimer",

"Chesham"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Chaifont & Latimer"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Barkingside",

"Fairlop"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Fairlop"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Canning Town",

"West Silvertown"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Canning Town"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Island Gardens",

"Mudchute"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Mudchute"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Ruislip Gardens",

"West Ruislip"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Ruislip Gardens"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"East Finchley",

"Highgate"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Highgate"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Burnt Oak",

"Colindale"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Burnt Oak"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Finsbury Park",

"Highbury & \

Islington"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Finsbury Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Hatch End",

"Headstone Lane"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Headstone Lane"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Canada Water",

"Canary Wharf"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Canada Water"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Knightsbridge",

"South Kensington"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Knightsbridge"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"East Finchley",

"Finchley Central"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "East Finchley"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bank",

"St. Paul's"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Bank"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Acton Town",

"Chiswick Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Chiswick Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bermondsey",

"London Bridge"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "London Bridge"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Kensal Rise",

"Willesden \

Junction"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Kensal Rise"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Harlesden",

"Willesden \

Junction"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Willesden Junction"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}], {

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Debden",

"Theydon Bois"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Debden"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Rotherhithe",

"Wapping"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Wapping"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Forest Hill",

"Sydenham"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Forest Hill"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Ealing Common",

"North Ealing"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Ealing Common"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Croxley",

"Watford"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Croxley"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bethnal Green",

"Mile End"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Mile End"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Shadwell",

"Whitechapel"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Whitechapel"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Euston",

"King's Cross St. \

Pancras"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Euston"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}],

RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Holborn",

"Russell Square"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Russell Square"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Paddington",

"Royal Oak"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Paddington"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Green Park",

"Westminster"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Green Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Deptford Bridge",

"Elverson Road"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Deptford Bridge"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Earl's Court",

"West Kensington"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Earl's Court"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Aldgate East",

"Tower Hill"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Aldgate East"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Dalston Junction",

"Haggerston"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Dalston Junction"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bushey",

"Carpenders Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Carpenders Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Finchley Road & Frognal",

"West Hampstead"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Finchley Road & Frognal"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Brondesbury",

"Brondesbury Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Brondesbury"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Dagenham East",

"Elm Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Elm Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bow Road",

"Bromley-by-Bow"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Bromley-by-Bow"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}],

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Blackhorse Road",

"South Tottenham"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "South Tottenham"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Edgware Road",

"Marylebone"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Marylebone"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"North Acton",

"West Acton"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "North Acton"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Euston",

"Warren Street"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Euston"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}],

RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Belsize Park",

"Chalk Farm"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Belsize Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Buckhurst Hill",

"South Woodford"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "South Woodford"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Harrow-on-the-Hill",

"Northwick Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Northwick Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Barons Court",

"Hammersmith"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Barons Court"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}],

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Heron Quays",

"South Quay"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Heron Quays"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Camden Town",

"Chalk Farm"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Chalk Farm"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Ickenham",

"Ruislip"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Ruislip"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}],

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Stockwell",

"Vauxhall"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Vauxhall"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Finchley Central",

"Mill Hill East"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Finchley Central"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Oxford Circus",

"Tottenham Court \

Road"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Tottenham Court Road"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Gants Hill",

"Newbury Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Newbury Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Eastcote",

"Rayners Lane"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Rayners Lane"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}],

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bayswater",

"Paddington"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Paddington"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Barons Court",

"Earl's Court"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Earl's Court"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Dollis Hill",

"Neasden"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Neasden"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Farringdon",

"King's Cross St. \

Pancras"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Farringdon"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 3, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0.953, 0.525, 0.631}],

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Hounslow Central",

"Hounslow West"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Hounslow Central"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Ladbroke Grove",

"Westbourne Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Westbourne Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Camden Town",

"Kentish Town"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Camden Town"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Borough",

"London Bridge"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "London Bridge"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Leytonstone High Road",

"Wanstead Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Leytonstone High Road"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Crouch Hill",

"Upper Holloway"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Upper Holloway"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Gospel Oak",

"Upper Holloway"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Gospel Oak"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Ruislip",

"Ruislip Manor"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Ruislip Manor"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}],

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Blackwall",

"Poplar"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Poplar"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Oxford Circus",

"Warren Street"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Warren Street"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Euston Square",

"Great Portland \

Street"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Euston Square"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 3, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0.953, 0.525, 0.631}],

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Redbridge",

"Wanstead"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Redbridge"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Holland Park",

"Notting Hill Gate"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Notting Hill Gate"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Boston Manor",

"Northfields"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Northfields"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Baker Street",

"Great Portland \

Street"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Great Portland Street"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 3, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0.953, 0.525, 0.631}],

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Caledonian Road",

"King's Cross St. \

Pancras"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Caledonian Road"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Blackhorse Road",

"Tottenham Hale"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Blackhorse Road"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Covent Garden",

"Leicester Square"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Covent Garden"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Barking",

"Upney"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Upney"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"St. John's Wood",

"Swiss Cottage"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Swiss Cottage"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Colliers Wood",

"South Wimbeldon"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Colliers Wood"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Parsons Green",

"Putney Bridge"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Parsons Green"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Holborn",

"Tottenham Court \

Road"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Holborn"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Clapham North",

"Stockwell"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Stockwell"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Barbican",

"Farringdon"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Barbican"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 3, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0.953, 0.525, 0.631}],

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Boston Manor",

"Osterley"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Boston Manor"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Canning Town",

"East India"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "East India"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Greenford",

"Northolt"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Greenford"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Hackney Wick",

"Stratford"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Hackney Wick"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Becontree",

"Dagenham Heathway"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Dagenham Heathway"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Edgware Road",

"Paddington"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Edgware Road"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 4, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}],

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0., 0.604, 0.353}],

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Kentish Town",

"Tufnell Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Kentish Town"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Buckhurst Hill",

"Loughton"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Buckhurst Hill"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Kilburn Park",

"Maida Vale"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Maida Vale"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Brent Cross",

"Golders Green"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Brent Cross"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Blackwall",

"East India"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Blackwall"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Northfields",

"South Ealing"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "South Ealing"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Baker Street",

"Bond Street"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Baker Street"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Lambeth North",

"Waterloo"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Lambeth North"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Acton Central",

"Willesden \

Junction"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Willesden Junction"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Mile End",

"Stepney Green"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Mile End"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}],

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Canary Wharf",

"North Greenwich"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Canary Wharf"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Green Park",

"Hyde Park Corner"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Green Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Golders Green",

"Hampstead"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Golders Green"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bank",

"Moorgate"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Moorgate"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"King's Cross St. Pancras",

"Russell Square"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "King's Cross St. Pancras"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Hornchurch",

"Upminster Bridge"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Upminster Bridge"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Cutty Sark for Maritime Greenwich",

"Island Gardens"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Island Gardens"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Beckton Park",

"Cyprus"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Beckton Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Finchley Road",

"Swiss Cottage"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Finchley Road"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Gospel Oak",

"Hamstead Heath"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Gospel Oak"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Ladbroke Grove",

"Latimer Road"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Ladbroke Grove"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Leyton Midland Road",

"Leytonstone High \

Road"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Leyton Midland Road"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"East Putney",

"Putney Bridge"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Putney Bridge"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Burnt Oak",

"Edgware"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Edgware"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Pimlico",

"Victoria"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Victoria"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Kennington",

"Oval"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Kennington"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Aldgate East",

"Liverpool Street"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Aldgate East"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Arnos Grove",

"Bounds Green"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Arnos Grove"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"East Acton",

"North Acton"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "East Acton"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Chancery Lane",

"St. Paul's"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "St. Paul's"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Limehouse",

"Westferry"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Westferry"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Euston Square",

"King's Cross St. \

Pancras"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "King's Cross St. Pancras"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 3, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0.953, 0.525, 0.631}],

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Imperial Wharf",

"West Brompton"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "West Brompton"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Becontree",

"Upney"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Becontree"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Earl's Court",

"West Brompton"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Earl's Court"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Carpenders Park",

"Hatch End"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Hatch End"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Harringay Green Lanes",

"South Tottenham"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Harringay Green Lanes"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Pontoon Dock",

"West Silvertown"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "West Silvertown"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Chaifont & Latimer",

"Chorleywood"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Chorleywood"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Camden Town",

"Euston"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Camden Town"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"High Street Kensington",

"Notting Hill Gate"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Notting Hill Gate"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Brixton",

"Stockwell"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Stockwell"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Euston",

"Mornington \

Crescent"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Euston"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Charing Cross",

"Leicester Square"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Charing Cross"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"North Wembley",

"Wembley Central"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Wembley Central"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}], {

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Kenton",

"South Kenton"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "South Kenton"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}], {

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Custom House for ExCeL",

"Royal Victoria"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Royal Victoria"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Ruislip Gardens",

"South Ruislip"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "South Ruislip"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Seven Sisters",

"Tottenham Hale"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Tottenham Hale"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Hatton Cross",

"Heathrow Terminals \

1,2,3"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Hatton Cross"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Alperton",

"Park Royal"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Park Royal"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Blackhorse Road",

"Walthamstow \

Central"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Walthamstow Central"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Debden",

"Loughton"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Loughton"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Barons Court",

"West Kensington"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "West Kensington"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Canning Town",

"North Greenwich"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "North Greenwich"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Goodge Street",

"Tottenham Court \

Road"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Tottenham Court Road"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Covent Garden",

"Holborn"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Holborn"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Waterloo",

"Westminster"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Westminster"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Canary Wharf",

"West India Quay"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "West India Quay"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Ravenscourt Park",

"Stamford Brook"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Ravenscourt Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Chigwell",

"Grange Hill"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Chigwell"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Harrow & Wealdstone",

"Kenton"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Kenton"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}], {

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Chorleywood",

"Rickmansworth"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Rickmansworth"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bow Road",

"Mile End"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Bow Road"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}],

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Camden Town",

"Mornington \

Crescent"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Camden Town"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Gloucester Road",

"South Kensington"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "South Kensington"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 3, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0., 0.604, 0.353}],

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Shepherd's Bush",

"White City"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Shepherd's Bush"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Custom House for ExCeL",

"Prince Regent"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Custom House for ExCeL"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Green Park",

"Piccadilly Circus"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Piccadilly Circus"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Schreditch High Street",

"Whitechapel"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Schreditch High Street"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Embankment",

"Waterloo"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Waterloo"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}],

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Finsbury Park",

"Seven Sisters"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Seven Sisters"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Baker Street",

"St. John's Wood"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "St. John's Wood"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"New Cross Gate",

"Surrey Quays"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Surrey Quays"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"North Wembley",

"South Kenton"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "North Wembley"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}], {

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Royal Oak",

"Westbourne Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Royal Oak"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Blackfriars",

"Mansion House"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Blackfriars"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Euston",

"South Hampstead"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "South Hampstead"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Barbican",

"Moorgate"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Moorgate"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 3, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0.953, 0.525, 0.631}],

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Anerley",

"Norwood Junction"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Anerley"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Ealing Broadway",

"West Acton"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "West Acton"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Turnpike Lane",

"Wood Green"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Wood Green"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Dollis Hill",

"Willesden Green"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Dollis Hill"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Earl's Court",

"Gloucester Road"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Gloucester Road"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}],

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Canonbury",

"Dalston Kingsland"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Canonbury"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Stratford",

"West Ham"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "West Ham"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Embankment",

"Temple"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Embankment"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Southfields",

"Wimbeldon Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Southfields"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Liverpool Street",

"Moorgate"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Liverpool Street"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 3, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0.953, 0.525, 0.631}],

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Embankment",

"Westminster"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Westminster"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Aldgate",

"Liverpool Street"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Aldgate"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Archway",

"Highgate"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Archway"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Grange Hill",

"Hainault"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Grange Hill"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Poplar",

"Westferry"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Poplar"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Leicester Square",

"Piccadilly Circus"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Leicester Square"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Shepherd's Bush",

"Willesden \

Junction"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Willesden Junction"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Limehouse",

"Shadwell"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Limehouse"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Finsbury Park",

"Manor House"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Manor House"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Westferry",

"West India Quay"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Westferry"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Green Park",

"Victoria"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Green Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.086, 0.584, 0.827}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Kingsbury",

"Wembley Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Kingsbury"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bow Church",

"Devons Road"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Bow Church"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Canons Park",

"Stanmore"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Stanmore"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Barkingside",

"Newbury Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Barkingside"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Fulham Broadway",

"Parsons Green"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Fulham Broadway"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Roding Valley",

"Woodford"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Woodford"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Dalston Kingsland",

"Hackney Central"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Dalston Kingsland"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Haggerston",

"Hoxton"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Haggerston"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Brockley",

"Honor Oak Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Brockley"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Hammersmith",

"Turnham Green"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Hammersmith"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Notting Hill Gate",

"Queensway"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Queensway"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bond Street",

"Marble Arch"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Bond Street"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Shadwell",

"Wapping"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Shadwell"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Kensington (Olympia)",

"Shepherd's Bush"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Shepherd's Bush"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Crystal Palace",

"Sydenham"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Sydenham"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Charing Cross",

"Piccadilly Circus"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Charing Cross"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"All Saints",

"Poplar"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "All Saints"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Northwood",

"Northwood Hills"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Northwood Hills"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"King George V",

"Woolwich Arsenal"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "King George V"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Canada Water",

"Surrey Quays"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Canada Water"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Clapham Common",

"Clapham South"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Clapham Common"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Dagenham East",

"Dagenham Heathway"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Dagenham East"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Leyton",

"Leytonstone"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Leytonstone"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Arsenal",

"Finsbury Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Finsbury Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Kennington",

"Waterloo"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Kennington"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"London City Airport",

"Pontoon Dock"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Pontoon Dock"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Stepney Green",

"Whitechapel"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Stepney Green"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}],

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Pudding Mill Lane",

"Stratford"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Stratford"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Fulham Broadway",

"West Brompton"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "West Brompton"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Moor Park",

"Rickmansworth"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Moor Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Maida Vale",

"Warwick Avenue"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Warwick Avenue"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Acton Central",

"South Acton"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Acton Central"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"High Barnet",

"Totteridge & \

Whetstone"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Totteridge & Whetstone"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Epping",

"Theydon Bois"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Theydon Bois"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Harlesden",

"Stonebridge Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Harlesden"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}], {

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Brondesbury",

"West Hampstead"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "West Hampstead"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Kilburn",

"West Hampstead"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Kilburn"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Cannon Street",

"Monument"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Cannon Street"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Kensal Green",

"Willesden \

Junction"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Kensal Green"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}], {

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Norwood Junction",

"West Croydon"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Norwood Junction"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Canary Wharf",

"Heron Quays"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Canary Wharf"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Plaistow",

"Upton Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Upton Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}],

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bromley-by-Bow",

"West Ham"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "West Ham"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}],

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Arsenal",

"Holloway Road"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Arsenal"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Goldhawk Road",

"Sheperd's Bush"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Sheperd's Bush"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Lancaster Gate",

"Marble Arch"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Marble Arch"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Caledonian Road",

"Holloway Road"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Holloway Road"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Arnos Grove",

"Southgate"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Southgate"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Mile End",

"Stratford"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Stratford"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Hackney Wick",

"Homerton"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Homerton"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Finchley Road & Frognal",

"Hamstead Heath"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Hamstead Heath"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Brockley",

"New Cross Gate"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "New Cross Gate"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Elverson Road",

"Lewisham"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Elverson Road"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Gunnesbury",

"Kew Gardens"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Gunnesbury"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}], {

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bank",

"Liverpool Street"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Liverpool Street"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Leyton",

"Stratford"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Leyton"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Gunnesbury",

"Turnham Green"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Turnham Green"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Paddington",

"Warwick Avenue"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Paddington"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Hyde Park Corner",

"Knightsbridge"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Hyde Park Corner"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Manor House",

"Turnpike Lane"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Turnpike Lane"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Charing Cross",

"Embankment"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Embankment"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}],

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Stonebridge Park",

"Wembley Central"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Stonebridge Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}], {

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Forest Hill",

"Honor Oak Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Honor Oak Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Monument",

"Tower Hill"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Monument"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Blackhorse Road",

"Walthamstow Queen's \

Road"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Blackhorse Road"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Lancaster Gate",

"Queensway"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Lancaster Gate"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Aldgate East",

"Whitechapel"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Whitechapel"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}],

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Gants Hill",

"Redbridge"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Gants Hill"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Angel",

"Old Street"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Angel"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"South Harrow",

"Sudbury Hill"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Sudbury Hill"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Hounslow Central",

"Hounslow East"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Hounslow East"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Clapham Junction",

"Imperial Wharf"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Imperial Wharf"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Southwark",

"Waterloo"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Waterloo"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Poplar",

"West India Quay"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Poplar"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bermondsey",

"Canada Water"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Bermondsey"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Kilburn High Road",

"Queen's Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Queen's Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Moor Park",

"Northwood"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Northwood"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Hanger Lane",

"Perivale"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Hanger Lane"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Canning Town",

"Royal Victoria"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Canning Town"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Balham",

"Clapham South"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Clapham South"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Baker Street",

"Finchley Road"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Baker Street"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Hammersmith",

"Ravenscourt Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Hammersmith"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Oval",

"Stockwell"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Oval"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Oxford Circus",

"Regent's Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Oxford Circus"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Anerley",

"Penge West"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Penge West"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Northwick Park",

"Preston Road"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Preston Road"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Canning Town",

"West Ham"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Canning Town"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Wimbeldon",

"Wimbeldon Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Wimbeldon Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Northolt",

"South Ruislip"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Northolt"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Archway",

"Tufnell Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Tufnell Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Neasden",

"Wembley Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Wembley Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Hillingdon",

"Ickenham"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Ickenham"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}],

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Camden Road",

"Kentish Town West"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Kentish Town West"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Baker Street",

"Edgware Road"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Baker Street"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Baker Street",

"Marylebone"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Baker Street"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Clapham Common",

"Clapham North"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Clapham North"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Cyprus",

"Gallions Reach"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Cyprus"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Oxford Circus",

"Piccadilly Circus"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Piccadilly Circus"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.682, 0.388, 0.153}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Fairlop",

"Hainault"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Hainault"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Chigwell",

"Roding Valley"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Roding Valley"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Bond Street",

"Oxford Circus"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Oxford Circus"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Acton Town",

"South Ealing"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Acton Town"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Devons Road",

"Langdon Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Devons Road"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Rayners Lane",

"South Harrow"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "South Harrow"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Leyton Midland Road",

"Walthamstow Queen's \

Road"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Walthamstow Queen's Road"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Kensington (Olympia)",

"West Brompton"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Kensington (Olympia)"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Crouch Hill",

"Harringay Green \

Lanes"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Crouch Hill"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Kilburn",

"Willesden Green"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Willesden Green"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Barking",

"East Ham"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Barking"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}],

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"New Cross",

"Surrey Quays"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Surrey Quays"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Leytonstone",

"Snaresbrook"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Leytonstone"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Caledonian Road & Barnsbury",

"Highbury & \

Islington"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Caledonian Road & Barnsbury"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Barking",

"Woodrange Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Woodrange Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Cutty Sark for Maritime Greenwich",

"Greenwich"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Cutty Sark for Maritime Greenwich"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Hanger Lane",

"North Acton"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "North Acton"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Leicester Square",

"Tottenham Court \

Road"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Leicester Square"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Beckton Park",

"Royal Albert"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Royal Albert"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Gloucester Road",

"High Street \

Kensington"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "High Street Kensington"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Brondesbury Park",

"Kensal Rise"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Brondesbury Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Upminster",

"Upminster Bridge"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Upminster"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Borough",

"Elephant & Castle"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Borough"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Totteridge & Whetstone",

"Woodside Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Woodside Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Colliers Wood",

"Tooting Broadway"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Tooting Broadway"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Blackfriars",

"Temple"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Temple"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Canonbury",

"Highbury & \

Islington"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Highbury & Islington"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Angel",

"King's Cross St. \

Pancras"] -> Function[{$CellContext`coords0, $CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "King's Cross St. Pancras"], \

$CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.133, 0.118, 0.122}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Acton Town",

"Turnham Green"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Turnham Green"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"All Saints",

"Langdon Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Langdon Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.008, 0.694, 0.69}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"London Bridge",

"Southwark"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Southwark"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Croxley",

"Moor Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Moor Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.565, 0.118, 0.365}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Oakwood",

"Southgate"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Oakwood"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Elm Park",

"Hornchurch"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Hornchurch"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Cannon Street",

"Mansion House"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Mansion House"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.996, 0.863, 0.}],

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Snaresbrook",

"South Woodford"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Snaresbrook"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.925, 0.122, 0.18}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Cockfosters",

"Oakwood"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Cockfosters"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.024, 0.318, 0.627}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Finchley Road",

"West Hampstead"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "West Hampstead"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0.541, 0.545, 0.553}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Wanstead Park",

"Woodrange Park"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Wanstead Park"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Plaistow",

"West Ham"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Plaistow"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 2, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}],

RGBColor[{0.953, 0.525, 0.631}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Gunnesbury",

"South Acton"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "South Acton"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"Penge West",

"Sydenham"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "Sydenham"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{{

RGBColor[{0.882, 0.471, 0.184}],

GrayLevel[1]}}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]],

UndirectedEdge[

"East Putney",

"Southfields"] -> Function[{$CellContext`coords0, \

$CellContext`e},

With[{$CellContext`coords = If[

And[

OrderedQ[$CellContext`e],

Part[$CellContext`e,

1] === "East Putney"], $CellContext`coords0,

Reverse[$CellContext`coords0]]},

If[Length[$CellContext`coords] > 2, {Black, Thin,

Line[$CellContext`coords]},

With[{$CellContext`w = 3, $CellContext`n = 1, \

$CellContext`t = Normalize[

Part[$CellContext`coords, \

-1] - Part[$CellContext`coords, 1]]},

With[{$CellContext`d = Dot[{{0, -1}, {1,

0}}, $CellContext`t], $CellContext`shortCoords = {

Part[$CellContext`coords, 1] + 10. $CellContext`t,

Part[$CellContext`coords, \

-1] - 10. $CellContext`t}},

Prepend[

Table[

With[{$CellContext`c = Part[{

RGBColor[{0., 0.604, 0.353}]}, $CellContext`k]},

If[Head[$CellContext`c] =!= List, {

AbsoluteThickness[$CellContext`w], $CellContext`c,

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]},

Apply[Join,

Table[{

AbsoluteThickness[((2 (Length[$CellContext`c] - $CellContext`i) + 1)/(

2 Length[$CellContext`c] - 1)) $CellContext`w],

Part[$CellContext`c, $CellContext`i],

Line[

Map[Offset[($CellContext`w ($CellContext`k - ($CellContext`n + 1.)/2))\

$CellContext`d, #]& , $CellContext`shortCoords]]}, {$CellContext`i,

Length[$CellContext`c]}]]]], {$CellContext`k,

Range[$CellContext`n]}],

CapForm["Butt"]]]]]]]},

VertexShapeFunction -> {

"Oakwood" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"West Acton" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"King's Cross St. \

Pancras" -> Function[{$CellContext`coords, $CellContext`v, \

$CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"King George V" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Kilburn High Road" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Stonebridge Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Hornchurch" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Aldgate" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Cyprus" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"West Hampstead" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Dagenham Heathway" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Plaistow" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Euston Square" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"West Kensington" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Kentish Town" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Brondesbury" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Farringdon" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Gallions Reach" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Homerton" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Kensington (Olympia)" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Barkingside" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Lambeth North" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Woodside Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Sydenham" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Regent's Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Balham" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Brent Cross" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Putney Bridge" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Custom House for \

ExCeL" -> Function[{$CellContext`coords, $CellContext`v, \

$CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Walthamstow Central" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Ladbroke Grove" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"South Kenton" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Upton Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Barbican" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Watford" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Hounslow East" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Canning Town" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Dollis Hill" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"West Finchley" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Liverpool Street" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Rayners Lane" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Vauxhall" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Shepherd's Bush" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Bayswater" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Warwick Avenue" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Surrey Quays" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Bow Church" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Harringay Green Lanes" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Northwick Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Forest Hill" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"South Ealing" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Wimbeldon Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Snaresbrook" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Buckhurst Hill" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Holloway Road" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Stockwell" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Chalk Farm" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Eastcote" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"South Acton" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Mansion House" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Leyton" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"North Ealing" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Willesden Junction" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Seven Sisters" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Boston Manor" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"South Ruislip" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Bermondsey" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Watford Junction" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Dalston Kingsland" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Blackfriars" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Barking" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Chiswick Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Woodrange Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Waterloo" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Earl's Court" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"High Street \

Kensington" -> Function[{$CellContext`coords, $CellContext`v, \

$CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Watford High Street" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Dalston Junction" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Colliers Wood" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Angel" -> Function[{$CellContext`coords, $CellContext`v, \

$CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Moorgate" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Tottenham Hale" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Westferry" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"St. John's Wood" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Wapping" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Ealing Broadway" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Manor House" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Sudbury Town" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Crossharbour" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Arnos Grove" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Hackney Central" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Pimlico" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Pontoon Dock" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Edgware" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Neasden" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Cutty Sark for Maritime \

Greenwich" -> Function[{$CellContext`coords, $CellContext`v, \

$CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Hatch End" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Newbury Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Monument" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Roding Valley" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Wembley Central" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Clapham North" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Southwark" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Upminster" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"West Ham" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Caledonian Road & \

Barnsbury" -> Function[{$CellContext`coords, $CellContext`v, \

$CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Beckton" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Upper Holloway" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Finchley Road & \

Frognal" -> Function[{$CellContext`coords, $CellContext`v, \

$CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Rickmansworth" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Finsbury Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Elm Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Preston Road" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Goodge Street" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Queensbury" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Rotherhithe" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Northfields" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Colindale" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Ickenham" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Southfields" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Golders Green" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Mudchute" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Parsons Green" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Woodford" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Ruislip Manor" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Theydon Bois" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Leytonstone High Road" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Osterley" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Canary Wharf" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Gloucester Road" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Highbury & Islington" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Anerley" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Piccadilly Circus" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Hendon Central" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Cockfosters" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Highgate" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Epping" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Canonbury" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"South Tottenham" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Crystal Palace" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Oval" -> Function[{$CellContext`coords, $CellContext`v, \

$CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"East Ham" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Oxford Circus" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Richmond" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Heron Quays" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Hainault" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Becontree" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Hampstead" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Finchley Road" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Royal Oak" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Sloane Square" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Amersham" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Northwood" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Tufnell Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Southgate" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Mornington Crescent" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Island Gardens" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Clapham Common" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Brixton" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Hatton Cross" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Honor Oak Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"West India Quay" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"East Finchley" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Perivale" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Gants Hill" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Heathrow Terminals \

1,2,3" -> Function[{$CellContext`coords, $CellContext`v, \

$CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Tower Gateway" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Hammersmith" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Baker Street" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Turnpike Lane" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Beckton Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"North Harrow" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Tottenham Court Road" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Queensway" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Schreditch High \

Street" -> Function[{$CellContext`coords, $CellContext`v, \

$CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"High Barnet" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Ravenscourt Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Acton Central" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Finchley Central" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Bromley-by-Bow" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Dagenham East" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Leyton Midland Road" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"South Quay" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Aldgate East" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"South Harrow" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Elephant & Castle" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"East Putney" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Penge West" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Chorleywood" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Lewisham" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Upminster Bridge" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Great Portland Street" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Acton Town" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Northwood Hills" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Uxbridge" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"New Cross Gate" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"East Acton" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Kentish Town West" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Devons Road" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"New Cross" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Barons Court" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Chesham" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Loughton" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Greenford" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Norwood Junction" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Ealing Common" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Paddington" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Moor Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Belsize Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"South Wimbeldon" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Swiss Cottage" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Bethnal Green" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Poplar" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Limehouse" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Hyde Park Corner" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Woolwich Arsenal" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Stanmore" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Morden" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Imperial Wharf" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"West Croydon" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Westminster" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Hackney Wick" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Fulham Broadway" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Fairlop" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Holborn" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Northolt" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Stratford" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Tower Hill" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Harlesden" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Brondesbury Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Wembley Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Pinner" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Langdon Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Canons Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Westbourne Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Park Royal" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"West Ruislip" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Grange Hill" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Green Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Wimbeldon" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Blackhorse Road" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Bounds Green" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Willesden Green" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Kilburn Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Knightsbridge" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Elverson Road" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Kew Gardens" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Walthamstow Queen's \

Road" -> Function[{$CellContext`coords, $CellContext`v, \

$CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Victoria" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Deptford Bridge" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Turnham Green" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Hamstead Heath" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"West Silvertown" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Redbridge" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Alperton" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Notting Hill Gate" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"St. Paul's" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Bond Street" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Maida Vale" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Tooting Bec" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"London Bridge" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Carpenders Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"West Brompton" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Kingsbury" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Gospel Oak" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Camden Road" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"White City" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Russell Square" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Embankment" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Kennington" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"East India" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Wanstead Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Kenton" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Harrow-on-the-Hill" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Totteridge & \

Whetstone" -> Function[{$CellContext`coords, $CellContext`v, \

$CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Whitechapel" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Charing Cross" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Greenwich" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Arsenal" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Clapham Junction" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Chancery Lane" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Chaifont & Latimer" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Goldhawk Road" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Crouch Hill" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Latimer Road" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Canada Water" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"West Harrow" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Upney" -> Function[{$CellContext`coords, $CellContext`v, \

$CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Kilburn" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Ruislip Gardens" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Marylebone" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"North Wembley" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Hounslow West" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Debden" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Bow Road" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Sheperd's Bush" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Cannon Street" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Tooting Broadway" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"North Greenwich" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Blackwall" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Euston" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Prince Regent" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Royal Albert" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Hoxton" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"South Woodford" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Leicester Square" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Wood Green" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Ruislip" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Clapham South" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Old Street" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Gunnesbury" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Holland Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Queen's Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Bank" -> Function[{$CellContext`coords, $CellContext`v, \

$CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Burnt Oak" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Sudbury Hill" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Stepney Green" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Brockley" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Royal Victoria" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"South Hampstead" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Stamford Brook" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"South Kensington" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Hounslow Central" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Hanger Lane" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Camden Town" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Headstone Lane" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Haggerston" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Borough" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Bushey" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Leytonstone" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Caledonian Road" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Archway" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Wanstead" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"North Acton" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Mile End" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Edgware Road" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Mill Hill East" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Kensal Rise" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"St. James's Park" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Chigwell" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"All Saints" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Croxley" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Harrow & Wealdstone" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Pudding Mill Lane" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Lancaster Gate" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Warren Street" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Marble Arch" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Shadwell" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Hillingdon" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0]]}],

"Kensal Green" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[0.5]]}],

"Temple" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"Covent Garden" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}],

"London City Airport" -> Function[{$CellContext`coords, \

$CellContext`v, $CellContext`whDummy}, {

Style[

Disk[$CellContext`coords, 0.5 20],

GrayLevel[1]]}]}, VertexSize -> {20},

VertexCoordinates -> CompressedData["

1:eJxdmE9om2Ucx6PsEKSMMHooMiTCDjns0EORoDJeJYehY4Q5RtEhceqIc7q4

1Rln3V6zOrOuarpNrVNnDj30kEOQIWUMKWNIkTKC9FBERhg7hB0khx16GCLu

+XwCb3L58rx53t/z+/P9/Xmfpw8d2/f246lU6o3HUqn/8dGv/En0CMdmAlan

AhY/C9j6JuAm/9e+DTj+ecCNhYBt/u+dQN6XAePnA05fDjiDvOhAwNsXA+6e

DfjbfMD988n9+UsBjyNntBEwcyFg9jzns47eDFjgvS76PcG69wXyfgy4yvnX

WZc4f6UWcDkOmD7Hft6/czVg6tOASz8hn/17WU/O8d7XAdvgi9hXZ//UdwEb

9YDP4p828Ujj7x72X/0+4MLZgLkLST3/wI5uNWD/ffQ9E1D/rnLOn8jPYd8z

yNdfc9hRRe6T6JE9EvA08uIK+l8JuMz7BfTKfBUwgkc51jfZv0icdhCXa0N+

KMCDq+yr8P5Wnsfwb4L3ivx/HX0X+H8dPut/+Vxl3UafJfz7L/L6tYBHeH8J

eQV4dpB9N9B3TR7CS/OhiD4d9LuLXzP4Sf/u5rzSKwF7vH/zB87RzpMBV9A/

Q7zz7D+Knt130JO8iY7zPnp0jyKXeDcPB5QvM8jrE58C5y8gL94fcBb9x4iz

/EpNB7xn/LC7/AH7kX8NjPYFrJGf+bNJec0PA24lH3PYv411Grs65GN5KP5F

7NxC/q2ybhF/4+V5mePJdZl4PcTOcXmGPZs8X6Y+Ns1Xn6Nv/zTykZfjnB7+

sT7q7634I00c8uhrPViEjxXq+kPqinVxjLyMeX8Fvfvsr+M/+am95ndJfqL/

r5w/AU/u8X/b+sp6GZ6sWH+x6wp2bdST9rbMO55PEr8c2KCejnHuMudYj1Lw

V38UTwWcwr42fn/J+s/7I/gnTR5PcN529JrieaMWMMt7PeL3u/4B89qLPaP4

tYc/itTRpnlHPe8TT+vTin2Wul4hn07BX/vgCPW7yvov+J5mrf/z5i/2yEf1

u4b+m/jZutWDn8Yz5v0s+6yPi/hrEj2j+eR5laF6WYKfcSlg+6Pk/332x5MB

G+R/C7vMF/laod8t87xJPl8HG8RVvq2Do8Qxgjfxa0l9+84h7Jtin/13FPll

/DGqPugpPyPq8U34WGR/BG9L8LVb5jz82KafjH8c0Pgajyp5l4M/MfvL6G8/

juHRwF+snbO61DHjVcJfbyE3C0+cAzM819/yfy/rtPUReVvQRz73sadK/ll/

9lAvU85T8hV/7sJ/5kMefWY4V17on7Z+qiWxQp05anzRa43nxlt/NdBrHX06

6G3/rswk98fvBbReZvDnL+SrfLzB/3n4cIh+7/zSId+dT+7LN+c18sj5Zpb+

lzmTPD/Le84Z0RA/9wzV5xL71vGffLe/yLsi9tZ5vgM5MXrdB6vov8C6hP7y

ruH8xPPUc+iHf52vrY/Wd/trg33WO/PW/t89kbQ3Rf+bZK63f3esu+iRQb8I

//5D/FZZN+FNV7vJX+uj/F9Cn2ne098lztuJ/WnqnP1joO/egBvoaTyc10aI

70XkRMSt8y56Yad9NItd9lflrcPjMvHVHxHxtb9qt+fHB5HD3CC/Ltv/iL/9

Lst36SbzrP3pFPxvct7fxNPvLfPL+WepFlB/3mW/eX7f/jib1L/Puc7z1o1F

4tWGbzPOB/jHPLN/Gj+/l1bRv0y8C8jJYM+4fKHfLeAvvx8i3l/BH/I3g167

ye9BXzWviPcI9rd53mDOr/t9BT/9/nbOm+T/p7QDu+035uUV1s59g3nD/inf

nX9B66lzUBf/+T04wblFeNGtYR/zR9/vNc7p8Fz+LeG/BesHfpe/LfTdQhzM

3zn0TQ3NE23yRX9N8/456rHxtt5F9CP7R/xy0r6m8xFy5c9O7Fnz+w75sfcQ

2LHJ/nG/A3j+gPxqHkva0yHPX0eu/Wsb+jgv6h/nPtd15N4mvk3sWzyf1Gtw

H3AI/eaT+tp/NqhP3l+UmPv2+13yakDna/NNf8i3W8jf6f0A53dqAb1vqQ7N

J2vO5/SNpTip/wP2Xfw5YIX9OdYjrO+QX9axiUtJ+bfJ34rf3S+wNr74ze8v

5Wygz4vexyDvAHx0niog/yDrXejjfNElXvb5wf0N+mzw3Puww84/fB9F9AW/

h53HW0Pr7fjNOlRAzhx83vD7gTpnPD3f7z/zuUteDPgUYcdQvTeeRfzu/Y33

VxPOb/DXOTcayu8IPR4g1/uUW96PWG+cx72vwt/6V3+veF/qvQz2tsBl8sv+

khmap2PucexPzh2D+XFoHvD+yfvNPjzSP6v6B/62T0b/AeJQkbo=

"]}]], Typeset`boxes = GraphicsGroupBox[{{

Directive[

Hue[0.6, 0.2, 0.8],

EdgeForm[

Directive[

GrayLevel[0],

Opacity[0.7]]]],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{438.5, 643.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Acton Central\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Acton Central", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$1"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{327.5, 554.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Acton Town\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Acton Town", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$2"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1387., 671.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Aldgate\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Aldgate", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$3"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1440.5, 678.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Aldgate East\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Aldgate East", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$4"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1590., 662.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"All Saints\"",

LabelStyle -> "TextStyling"],

Annotation[#, "All Saints", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$5"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{318.5, 931.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Alperton\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Alperton", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$6"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{28.5, 1311.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Amersham\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Amersham", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$7"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1377., 89.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Anerley\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Anerley", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$8"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1203.5, 841.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Angel\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Angel", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$9"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1135.5, 1109.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Archway\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Archway", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$10"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1377., 1230.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Arnos Grove\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Arnos Grove", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$11"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1308.5, 1029.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Arsenal\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Arsenal", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$12"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{866., 804.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Baker Street\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Baker Street", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$13"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{893., 154.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Balham\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Balham", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$14"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1233., 668.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Bank\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Bank", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$15"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1218.5, 765.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Barbican\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Barbican", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$16"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1820.5, 857.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Barking\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Barking", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$17"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1838.5, 1112.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Barkingside\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Barkingside", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$18"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{600., 535.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Barons Court\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Barons Court", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$19"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{705., 761.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Bayswater\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Bayswater", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$20"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1975.5, 464.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Beckton\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Beckton", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$21"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1898., 541.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Beckton Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Beckton Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$22"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1875.5, 907.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Becontree\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Becontree", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$23"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1017., 1014.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Belsize Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Belsize Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$24"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1360.5, 529.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Bermondsey\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Bermondsey", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$25"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1501., 786.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Bethnal Green\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Bethnal Green", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$26"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1166.5, 566.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Blackfriars\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Blackfriars", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$27"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1538., 1082.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Blackhorse Road\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Blackhorse Road", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$28"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1639.5, 627.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Blackwall\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Blackwall", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$29"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{869., 705.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Bond Street\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Bond Street", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$30"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1138.5, 398.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Borough\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Borough", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$31"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{247.5, 496.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Boston Manor\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Boston Manor", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$32"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1377., 1202.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Bounds Green\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Bounds Green", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$33"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1588.5, 741.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Bow Church\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Bow Church", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$34"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1613.5, 765.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Bow Road\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Bow Road", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$35"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{913.5, 1118.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Brent Cross\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Brent Cross", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$36"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1030.5, 209.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Brixton\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Brixton", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$37"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1375.5, 264.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Brockley\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Brockley", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$38"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1678.5, 759.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Bromley-by-Bow\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Bromley-by-Bow", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$39"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{712.5, 962.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Brondesbury\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Brondesbury", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$40"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{680., 965.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Brondesbury Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Brondesbury Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$41"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1712.5, 1257.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Buckhurst Hill\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Buckhurst Hill", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$42"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{836.5, 1197.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Burnt Oak\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Burnt Oak", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$43"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{566., 1297.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Bushey\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Bushey", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$44"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1255.5, 974.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Caledonian Road\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Caledonian Road", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$45"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1283.5, 944.}, 10.],

GrayLevel[0], StripOnInput -> False]},

"\"Caledonian Road & Barnsbury\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Caledonian Road & Barnsbury",

"Tooltip"]& ], "DynamicName", BoxID -> "VertexID$46"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1165., 970.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Camden Road\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Camden Road", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$47"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1070.5, 947.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Camden Town\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Camden Town", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$48"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1461., 529.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Canada Water\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Canada Water", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$49"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1590., 527.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Canary Wharf\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Canary Wharf", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$50"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1708., 629.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Canning Town\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Canning Town", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$51"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1215.5, 606.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Cannon Street\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Cannon Street", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$52"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1434.5, 949.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Canonbury\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Canonbury", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$53"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{648.5, 1175.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Canons Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Canons Park", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$54"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{567.5, 1267.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Carpenders Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Carpenders Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$55"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{159., 1311.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Chaifont & Latimer\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Chaifont & Latimer", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$56"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1044., 986.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Chalk Farm\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Chalk Farm", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$57"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1144.5, 706.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Chancery Lane\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Chancery Lane", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$58"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1030.5, 585.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Charing Cross\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Charing Cross", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$59"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{77.5, 1338.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Chesham\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Chesham", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$60"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1776.5, 1199.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Chigwell\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Chigwell", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$61"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{357., 536.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Chiswick Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Chiswick Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$62"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{240.5, 1294.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Chorleywood\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Chorleywood", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$63"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{941.5, 207.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Clapham Common\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Clapham Common", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$64"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{811.5, 292.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Clapham Junction\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Clapham Junction", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$65"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{970., 231.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Clapham North\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Clapham North", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$66"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{919.5, 181.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Clapham South\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Clapham South", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$67"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1377., 1313.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Cockfosters\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Cockfosters", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$68"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{862., 1169.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Colindale\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Colindale", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$69"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{819., 82.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Colliers Wood\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Colliers Wood", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$70"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1058.5, 675.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Covent Garden\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Covent Garden", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$71"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1588.5, 448.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Crossharbour\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Crossharbour", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$72"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1273., 1116.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Crouch Hill\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Crouch Hill", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$73"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{278.5, 1286.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Croxley\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Croxley", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$74"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1325., 73.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Crystal Palace\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Crystal Palace", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$75"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1824.5, 615.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Custom House for ExCeL\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Custom House for ExCeL", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$76"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1588.5, 346.}, 10.],

GrayLevel[0], StripOnInput -> False]},

"\"Cutty Sark for Maritime Greenwich\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Cutty Sark for Maritime Greenwich",

"Tooltip"]& ], "DynamicName", BoxID -> "VertexID$77"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1923.5, 517.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Cyprus\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Cyprus", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$78"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1924.5, 961.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Dagenham East\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Dagenham East", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$79"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1908., 941.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Dagenham Heathway\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Dagenham Heathway", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$80"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1461., 906.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Dalston Junction\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Dalston Junction", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$81"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1473., 921.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Dalston Kingsland\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Dalston Kingsland", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$82"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1707., 1311.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Debden\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Debden", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$83"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1588.5, 289.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Deptford Bridge\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Deptford Bridge", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$84"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1588.5, 717.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Devons Road\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Devons Road", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$85"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{703.5, 1036.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Dollis Hill\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Dollis Hill", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$86"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{281.5, 703.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Ealing Broadway\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Ealing Broadway", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$87"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{315.5, 628.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Ealing Common\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Ealing Common", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$88"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{677., 535.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Earl's Court\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Earl's Court", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$89"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{495., 706.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"East Acton\"",

LabelStyle -> "TextStyling"],

Annotation[#, "East Acton", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$90"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{290.5, 1146.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Eastcote\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Eastcote", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$91"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1135.5, 1169.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"East Finchley\"",

LabelStyle -> "TextStyling"],

Annotation[#, "East Finchley", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$92"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1795.5, 833.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"East Ham\"",

LabelStyle -> "TextStyling"],

Annotation[#, "East Ham", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$93"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1678., 627.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"East India\"",

LabelStyle -> "TextStyling"],

Annotation[#, "East India", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$94"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{660.5, 327.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"East Putney\"",

LabelStyle -> "TextStyling"],

Annotation[#, "East Putney", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$95"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{799.5, 1233.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Edgware\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Edgware", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$96"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{739., 848.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Edgware Road\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Edgware Road", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$97"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1072., 335.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Elephant & Castle\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Elephant & Castle", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$98"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1954., 986.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Elm Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Elm Park", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$99"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1588.5, 264.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Elverson Road\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Elverson Road", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$100"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1048., 521.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Embankment\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Embankment", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$101"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1709.5, 1357.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Epping\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Epping", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$102"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1081., 854.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Euston\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Euston", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$103"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1070.5, 823.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Euston Square\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Euston Square", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$104"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1840., 1138.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Fairlop\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Fairlop", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$105"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1190.5, 795.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Farringdon\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Farringdon", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$106"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1135.5, 1195.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Finchley Central\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Finchley Central", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$107"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{798., 939.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Finchley Road\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Finchley Road", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$108"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{933., 1010.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Finchley Road & Frognal\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Finchley Road & Frognal", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$109"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1350., 1070.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Finsbury Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Finsbury Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$110"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1375.5, 176.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Forest Hill\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Forest Hill", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$111"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{660.5, 421.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Fulham Broadway\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Fulham Broadway", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$112"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1949., 491.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Gallions Reach\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Gallions Reach", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$113"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1810.5, 1048.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Gants Hill\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Gants Hill", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$114"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{737.5, 545.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Gloucester Road\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Gloucester Road", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$115"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{934.5, 1095.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Golders Green\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Golders Green", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$116"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{558.5, 594.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Goldhawk Road\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Goldhawk Road", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$117"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1032., 733.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Goodge Street\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Goodge Street", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$118"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1073.5, 1042.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Gospel Oak\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Gospel Oak", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$119"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1806., 1202.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Grange Hill\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Grange Hill", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$120"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{962.5, 829.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Great Portland Street\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Great Portland Street", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$121"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{210.5, 916.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Greenford\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Greenford", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$122"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{884., 638.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Green Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Green Park", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$123"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1590., 316.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Greenwich\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Greenwich", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$124"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{385.5, 455.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Gunnesbury\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Gunnesbury", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$125"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1502.5, 893.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Hackney Central\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Hackney Central", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$126"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1603., 879.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Hackney Wick\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Hackney Wick", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$127"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1462.5, 865.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Haggerston\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Haggerston", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$128"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1840., 1166.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Hainault\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Hainault", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$129"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{563., 535.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Hammersmith\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Hammersmith", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$130"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{962.5, 1069.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Hampstead\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Hampstead", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$131"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1023., 1044.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Hamstead Heath\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Hamstead Heath", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$132"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{302.5, 823.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Hanger Lane\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Hanger Lane", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$133"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{560., 996.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Harlesden\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Harlesden", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$134"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1434.5, 1129.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Harringay Green Lanes\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Harringay Green Lanes", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$135"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{453.5, 1104.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Harrow-on-the-Hill\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Harrow-on-the-Hill", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$136"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{563., 1180.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Harrow & Wealdstone\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Harrow & Wealdstone", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$137"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{567.5, 1240.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Hatch End\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Hatch End", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$138"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{132., 379.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Hatton Cross\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Hatton Cross", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$139"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{567.5, 1212.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Headstone Lane\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Headstone Lane", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$140"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{98., 345.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Heathrow Terminals 1,2,3\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Heathrow Terminals 1,2,3", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$141"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{885.5, 1146.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Hendon Central\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Hendon Central", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$142"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1588.5, 503.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Heron Quays\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Heron Quays", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$143"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1134., 1320.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"High Barnet\"",

LabelStyle -> "TextStyling"],

Annotation[#, "High Barnet", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$144"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1326.5, 946.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Highbury & Islington\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Highbury & Islington", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$145"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1135.5, 1141.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Highgate\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Highgate", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$146"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{706.5, 648.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"High Street Kensington\"",

LabelStyle -> "TextStyling"],

Annotation[#, "High Street Kensington", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$147"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{110., 1180.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Hillingdon\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Hillingdon", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$148"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1084., 706.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Holborn\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Holborn", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$149"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{654.5, 705.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Holland Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Holland Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$150"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1285., 1005.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Holloway Road\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Holloway Road", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$151"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1541., 878.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Homerton\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Homerton", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$152"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1375.5, 202.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Honor Oak Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Honor Oak Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$153"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1968.5, 1002.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Hornchurch\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Hornchurch", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$154"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{178., 422.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Hounslow Central\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Hounslow Central", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$155"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{199., 449.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Hounslow East\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Hounslow East", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$156"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{157.5, 403.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Hounslow West\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Hounslow West", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$157"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1462.5, 823.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Hoxton\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Hoxton", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$158"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{847., 613.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Hyde Park Corner\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Hyde Park Corner", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$159"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{156., 1178.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Ickenham\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Ickenham", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$160"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{712.5, 392.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Imperial Wharf\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Imperial Wharf", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$161"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1588.5, 391.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Island Gardens\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Island Gardens", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$162"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1029., 286.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Kennington\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Kennington", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$163"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{563., 940.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Kensal Green\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Kensal Green", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$164"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{620.5, 964.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Kensal Rise\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Kensal Rise", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$165"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{662., 610.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Kensington (Olympia)\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Kensington (Olympia)", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$166"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1134., 1042.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Kentish Town\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Kentish Town", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$167"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1107.5, 1026.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Kentish Town West\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Kentish Town West", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$168"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{563., 1153.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Kenton\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Kenton", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$169"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{385.5, 415.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Kew Gardens\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Kew Gardens", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$170"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{751., 986.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Kilburn\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Kilburn", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$171"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{681.5, 896.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Kilburn High Road\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Kilburn High Road", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$172"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{569., 887.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Kilburn Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Kilburn Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$173"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1935.5, 455.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"King George V\"",

LabelStyle -> "TextStyling"],

Annotation[#, "King George V", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$174"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{647., 1121.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Kingsbury\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Kingsbury", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$175"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1146., 823.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"King's Cross St. Pancras\"",

LabelStyle -> "TextStyling"],

Annotation[#, "King's Cross St. Pancras", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$176"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{822., 591.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Knightsbridge\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Knightsbridge", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$177"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{591., 782.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Ladbroke Grove\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Ladbroke Grove", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$178"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1051., 385.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Lambeth North\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Lambeth North", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$179"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{793.5, 706.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Lancaster Gate\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Lancaster Gate", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$180"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1588.5, 690.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Langdon Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Langdon Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$181"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{570.5, 762.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Latimer Road\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Latimer Road", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$182"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1030.5, 654.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Leicester Square\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Leicester Square", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$183"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1588.5, 236.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Lewisham\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Lewisham", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$184"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1709.5, 930.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Leyton\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Leyton", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$185"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1644.5, 946.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Leyton Midland Road\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Leyton Midland Road", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$186"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1711., 999.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Leytonstone\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Leytonstone", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$187"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1752.5, 947.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Leytonstone High Road\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Leytonstone High Road", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$188"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1524., 629.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Limehouse\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Limehouse", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$189"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1338.5, 749.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Liverpool Street\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Liverpool Street", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$190"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1251., 529.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"London Bridge\"",

LabelStyle -> "TextStyling"],

Annotation[#, "London Bridge", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$191"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1890.5, 497.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"London City Airport\"",

LabelStyle -> "TextStyling"],

Annotation[#, "London City Airport", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$192"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1709.5, 1288.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Loughton\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Loughton", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$193"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{585., 872.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Maida Vale\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Maida Vale", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$194"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1375.5, 1107.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Manor House\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Manor House", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$195"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1190.5, 588.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Mansion House\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Mansion House", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$196"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{826.5, 705.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Marble Arch\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Marble Arch", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$197"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{799.5, 847.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Marylebone\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Marylebone", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$198"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1556., 785.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Mile End\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Mile End", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$199"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1097., 1248.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Mill Hill East\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Mill Hill East", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$200"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1274.5, 623.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Monument\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Monument", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$201"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1254., 748.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Moorgate\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Moorgate", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$202"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{286., 1252.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Moor Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Moor Park", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$203"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{764., 27.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Morden\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Morden", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$204"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1055.5, 907.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Mornington Crescent\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Mornington Crescent", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$205"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1590., 421.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Mudchute\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Mudchute", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$206"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{677., 1060.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Neasden\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Neasden", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$207"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1840., 1084.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Newbury Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Newbury Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$208"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1461., 318.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"New Cross\"",

LabelStyle -> "TextStyling"],

Annotation[#, "New Cross", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$209"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1375.5, 320.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"New Cross Gate\"",

LabelStyle -> "TextStyling"],

Annotation[#, "New Cross Gate", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$210"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{469.5, 703.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"North Acton\"",

LabelStyle -> "TextStyling"],

Annotation[#, "North Acton", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$211"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{317., 739.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"North Ealing\"",

LabelStyle -> "TextStyling"],

Annotation[#, "North Ealing", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$212"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{273., 520.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Northfields\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Northfields", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$213"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1659.5, 537.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"North Greenwich\"",

LabelStyle -> "TextStyling"],

Annotation[#, "North Greenwich", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$214"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{394., 1144.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"North Harrow\"",

LabelStyle -> "TextStyling"],

Annotation[#, "North Harrow", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$215"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{196., 996.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Northolt\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Northolt", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$216"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{563., 1066.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"North Wembley\"",

LabelStyle -> "TextStyling"],

Annotation[#, "North Wembley", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$217"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{527.5, 1107.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Northwick Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Northwick Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$218"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{310., 1227.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Northwood\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Northwood", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$219"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{336.5, 1202.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Northwood Hills\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Northwood Hills", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$220"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1375.5, 60.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Norwood Junction\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Norwood Junction", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$221"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{699., 705.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Notting Hill Gate\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Notting Hill Gate", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$222"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1377., 1283.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Oakwood\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Oakwood", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$223"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1252.5, 808.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Old Street\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Old Street", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$224"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{222.5, 472.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Osterley\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Osterley", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$225"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1010., 274.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Oval\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Oval", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$226"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{933., 705.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Oxford Circus\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Oxford Circus", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$227"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{666.5, 845.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Paddington\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Paddington", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$228"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{317., 776.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Park Royal\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Park Royal", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$229"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{660.5, 394.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Parsons Green\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Parsons Green", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$230"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1377., 114.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Penge West\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Penge West", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$231"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{256.5, 872.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Perivale\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Perivale", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$232"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{978.5, 637.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Piccadilly Circus\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Piccadilly Circus", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$233"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{884., 434.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Pimlico\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Pimlico", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$234"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{367.5, 1166.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Pinner\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Pinner", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$235"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1758.5, 788.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Plaistow\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Plaistow", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$236"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1847., 541.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Pontoon Dock\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Pontoon Dock", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$237"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1588.5, 627.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Poplar\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Poplar", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$238"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{597., 1107.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Preston Road\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Preston Road", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$239"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1848.5, 591.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Prince Regent\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Prince Regent", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$240"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1658.5, 847.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Pudding Mill Lane\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Pudding Mill Lane", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$241"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{660.5, 367.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Putney Bridge\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Putney Bridge", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$242"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{648.5, 1146.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Queensbury\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Queensbury", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$243"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{564.5, 918.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Queen's Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Queen's Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$244"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{752.5, 705.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Queensway\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Queensway", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$245"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{529., 535.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Ravenscourt Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Ravenscourt Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$246"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{310., 1118.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Rayners Lane\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Rayners Lane", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$247"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1778., 1050.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Redbridge\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Redbridge", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$248"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{904.5, 770.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Regent's Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Regent's Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$249"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{387., 382.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Richmond\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Richmond", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$250"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{265.5, 1267.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Rickmansworth\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Rickmansworth", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$251"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1744., 1200.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Roding Valley\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Roding Valley", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$252"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1461., 546.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Rotherhithe\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Rotherhithe", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$253"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1874., 563.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Royal Albert\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Royal Albert", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$254"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{622., 819.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Royal Oak\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Royal Oak", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$255"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1795., 630.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Royal Victoria\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Royal Victoria", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$256"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{228.5, 1186.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Ruislip\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Ruislip", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$257"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{197.5, 1109.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Ruislip Gardens\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Ruislip Gardens", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$258"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{264., 1174.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Ruislip Manor\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Ruislip Manor", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$259"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1095.5, 761.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Russell Square\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Russell Square", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$260"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1462.5, 764.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Schreditch High Street\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Schreditch High Street", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$261"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1446.5, 1081.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Seven Sisters\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Seven Sisters", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$262"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1462.5, 641.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Shadwell\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Shadwell", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$263"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{560., 629.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Sheperd's Bush\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Sheperd's Bush", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$264"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{613., 706.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Shepherd's Bush\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Shepherd's Bush", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$265"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{829., 540.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Sloane Square\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Sloane Square", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$266"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1712.5, 1101.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Snaresbrook\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Snaresbrook", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$267"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{437., 604.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"South Acton\"",

LabelStyle -> "TextStyling"],

Annotation[#, "South Acton", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$268"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{295., 542.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"South Ealing\"",

LabelStyle -> "TextStyling"],

Annotation[#, "South Ealing", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$269"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{662., 301.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Southfields\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Southfields", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$270"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1377., 1258.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Southgate\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Southgate", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$271"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{755., 896.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"South Hampstead\"",

LabelStyle -> "TextStyling"],

Annotation[#, "South Hampstead", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$272"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{317., 1067.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"South Harrow\"",

LabelStyle -> "TextStyling"],

Annotation[#, "South Harrow", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$273"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{768.5, 537.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"South Kensington\"",

LabelStyle -> "TextStyling"],

Annotation[#, "South Kensington", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$274"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{561.5, 1088.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"South Kenton\"",

LabelStyle -> "TextStyling"],

Annotation[#, "South Kenton", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$275"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1588.5, 475.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"South Quay\"",

LabelStyle -> "TextStyling"],

Annotation[#, "South Quay", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$276"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{197.5, 1055.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"South Ruislip\"",

LabelStyle -> "TextStyling"],

Annotation[#, "South Ruislip", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$277"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1505.5, 1118.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"South Tottenham\"",

LabelStyle -> "TextStyling"],

Annotation[#, "South Tottenham", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$278"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1097., 452.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Southwark\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Southwark", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$279"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{793.5, 55.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"South Wimbeldon\"",

LabelStyle -> "TextStyling"],

Annotation[#, "South Wimbeldon", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$280"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1712.5, 1128.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"South Woodford\"",

LabelStyle -> "TextStyling"],

Annotation[#, "South Woodford", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$281"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{469.5, 535.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Stamford Brook\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Stamford Brook", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$282"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{645.5, 1203.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Stanmore\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Stanmore", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$283"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1492., 720.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Stepney Green\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Stepney Green", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$284"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{921., 543.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"St. James's Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "St. James's Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$285"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{838., 903.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"St. John's Wood\"",

LabelStyle -> "TextStyling"],

Annotation[#, "St. John's Wood", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$286"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{990.5, 253.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Stockwell\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Stockwell", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$287"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{561.5, 1018.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Stonebridge Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Stonebridge Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$288"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1175.5, 690.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"St. Paul's\"",

LabelStyle -> "TextStyling"],

Annotation[#, "St. Paul's", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$289"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1668.5, 879.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Stratford\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Stratford", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$290"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{317., 1023.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Sudbury Hill\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Sudbury Hill", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$291"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{317., 977.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Sudbury Town\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Sudbury Town", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$292"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1459.5, 458.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Surrey Quays\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Surrey Quays", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$293"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{820.5, 921.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Swiss Cottage\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Swiss Cottage", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$294"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1375.5, 148.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Sydenham\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Sydenham", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$295"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1100., 543.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Temple\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Temple", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$296"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1709.5, 1334.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Theydon Bois\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Theydon Bois", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$297"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{869., 131.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Tooting Bec\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Tooting Bec", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$298"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{842.5, 107.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Tooting Broadway\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Tooting Broadway", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$299"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1032., 705.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Tottenham Court Road\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Tottenham Court Road", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$300"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1492., 1081.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Tottenham Hale\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Tottenham Hale", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$301"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1137., 1291.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Totteridge & Whetstone\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Totteridge & Whetstone", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$302"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1383.5, 602.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Tower Gateway\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Tower Gateway", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$303"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1360.5, 623.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Tower Hill\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Tower Hill", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$304"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1134., 1075.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Tufnell Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Tufnell Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$305"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{419.5, 533.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Turnham Green\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Turnham Green", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$306"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1375.5, 1149.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Turnpike Lane\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Turnpike Lane", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$307"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{2020.5, 1052.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Upminster\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Upminster", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$308"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1994., 1027.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Upminster Bridge\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Upminster Bridge", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$309"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1847.5, 884.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Upney\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Upney", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$310"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1229., 1075.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Upper Holloway\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Upper Holloway", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$311"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1779.5, 814.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Upton Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Upton Park", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$312"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{34.5, 1180.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Uxbridge\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Uxbridge", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$313"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{906., 335.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Vauxhall\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Vauxhall", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$314"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{884., 539.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Victoria\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Victoria", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$315"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1616.5, 1082.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Walthamstow Central\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Walthamstow Central", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$316"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1557.5, 1026.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Walthamstow Queen's Road\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Walthamstow Queen's Road", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$317"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1745., 1047.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Wanstead\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Wanstead", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$318"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1807.5, 930.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Wanstead Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Wanstead Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$319"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1464., 585.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Wapping\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Wapping", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$320"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1030.5, 804.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Warren Street\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Warren Street", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$321"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{603., 857.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Warwick Avenue\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Warwick Avenue", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$322"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1049.5, 481.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Waterloo\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Waterloo", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$323"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{276., 1311.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Watford\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Watford", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$324"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{567.5, 1323.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Watford High Street\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Watford High Street", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$325"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{567.5, 1351.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Watford Junction\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Watford Junction", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$326"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{563., 1041.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Wembley Central\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Wembley Central", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$327"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{657.5, 1078.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Wembley Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Wembley Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$328"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{382.5, 705.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"West Acton\"",

LabelStyle -> "TextStyling"],

Annotation[#, "West Acton", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$329"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{603., 795.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Westbourne Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Westbourne Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$330"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{662., 478.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"West Brompton\"",

LabelStyle -> "TextStyling"],

Annotation[#, "West Brompton", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$331"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1375.5, 33.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"West Croydon\"",

LabelStyle -> "TextStyling"],

Annotation[#, "West Croydon", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$332"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1554., 627.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Westferry\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Westferry", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$333"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1134., 1236.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"West Finchley\"",

LabelStyle -> "TextStyling"],

Annotation[#, "West Finchley", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$334"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1708., 765.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"West Ham\"",

LabelStyle -> "TextStyling"],

Annotation[#, "West Ham", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$335"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{774.5, 962.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"West Hampstead\"",

LabelStyle -> "TextStyling"],

Annotation[#, "West Hampstead", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$336"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{391., 1104.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"West Harrow\"",

LabelStyle -> "TextStyling"],

Annotation[#, "West Harrow", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$337"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1588.5, 584.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"West India Quay\"",

LabelStyle -> "TextStyling"],

Annotation[#, "West India Quay", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$338"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{638.5, 536.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"West Kensington\"",

LabelStyle -> "TextStyling"],

Annotation[#, "West Kensington", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$339"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{984.5, 540.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Westminster\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Westminster", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$340"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{197.5, 1220.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"West Ruislip\"",

LabelStyle -> "TextStyling"],

Annotation[#, "West Ruislip", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$341"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1801., 585.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"West Silvertown\"",

LabelStyle -> "TextStyling"],

Annotation[#, "West Silvertown", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$342"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1464., 696.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Whitechapel\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Whitechapel", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$343"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{539., 706.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"White City\"",

LabelStyle -> "TextStyling"],

Annotation[#, "White City", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$344"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{725.5, 1015.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Willesden Green\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Willesden Green", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$345"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{564.5, 962.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Willesden Junction\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Willesden Junction", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$346"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{662., 244.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Wimbeldon\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Wimbeldon", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$347"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{660.5, 273.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Wimbeldon Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Wimbeldon Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$348"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1709.5, 1156.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Woodford\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Woodford", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$349"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1375.5, 1175.}, 10.],

GrayLevel[1], StripOnInput -> False]}, "\"Wood Green\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Wood Green", "Tooltip"]& ], "DynamicName",

BoxID -> "VertexID$350"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1820.5, 894.}, 10.],

GrayLevel[0.5], StripOnInput -> False]}, "\"Woodrange Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Woodrange Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$351"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{1134., 1266.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Woodside Park\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Woodside Park", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$352"],

TagBox[

TooltipBox[{

StyleBox[

DiskBox[{2028., 363.}, 10.],

GrayLevel[0], StripOnInput -> False]}, "\"Woolwich Arsenal\"",

LabelStyle -> "TextStyling"],

Annotation[#, "Woolwich Arsenal", "Tooltip"]& ],

"DynamicName", BoxID -> "VertexID$353"]}, {

Directive[

Opacity[0.7],

Hue[0.6, 0.7, 0.5]], {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {438.115668778988, 633.0073882536868}],

Offset[{0., 0.}, {437.384331221012, 613.9926117463132}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {438.115668778988, 633.0073882536868}],

Offset[{0., 0.}, {437.384331221012, 613.9926117463132}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {560.8263432540645, 952.6992341114808}],

Offset[{0., 0.}, {442.1736567459355, 652.3007658885192}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {560.8263432540645, 952.6992341114808}],

Offset[{0., 0.}, {442.1736567459355, 652.3007658885192}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {348.4636071966337, 541.2086464562913}],

Offset[{0., 0.}, {336.0363928033663, 548.7913535437087}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{1.4806582166213775`, 0.24010673783049366`}, {

325.8992884144634, 563.8710547774758}],

Offset[{1.4806582166213775`, 0.24010673783049366`}, {

317.1007115855366, 618.1289452225242}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{-1.4806582166213775`, -0.24010673783049366`}, {

325.8992884144634, 563.8710547774758}],

Offset[{-1.4806582166213775`, -0.24010673783049366`}, {

317.1007115855366, 618.1289452225242}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {318.1190352586061, 550.5362591724084}],

Offset[{0., 0.}, {304.3809647413939, 545.4637408275916}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {409.75075767063765`, 535.2253705317023}],

Offset[{0., 0.}, {337.24924232936235`, 551.7746294682977}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{1.273829027447978, 0.7920603568106017}, {1381.7195976212627`,

679.4921935163198}],

Offset[{1.273829027447978, 0.7920603568106017}, {1343.7804023787373`,

740.5078064836802}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{-1.273829027447978, -0.7920603568106017}, {

1381.7195976212627`, 679.4921935163198}],

Offset[{-1.273829027447978, -0.7920603568106017}, {

1343.7804023787373`, 740.5078064836802}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{0., 0.}, {1365.333183977428, 631.754446449681}],

Offset[{0., 0.}, {1382.166816022572, 662.245553550319}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0., 0.}, {1432.2925883679666`, 683.7130022144546}],

Offset[{0., 0.}, {1346.7074116320334`, 743.2869977855454}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {1432.2595807580062`, 672.3347117711294}],

Offset[{0., 0.}, {1368.7404192419938`, 628.6652882288706}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{-0.9121153166827354, 1.1908172190024602`}, {

1456.0612185399837`, 689.9192312221151}],

Offset[{-0.9121153166827354, 1.1908172190024602`}, {

1448.4387814600163`, 684.0807687778849}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0.9121153166827354, -1.1908172190024602`}, {

1456.0612185399837`, 689.9192312221151}],

Offset[{0.9121153166827354, -1.1908172190024602`}, {

1448.4387814600163`, 684.0807687778849}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1589.0349472137161`, 680.0143186772991}],

Offset[{0., 0.}, {1589.4650527862839`, 671.9856813227009}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1589.0349472137161`, 680.0143186772991}],

Offset[{0., 0.}, {1589.4650527862839`, 671.9856813227009}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1589.571821616078, 652.0091710418233}],

Offset[{0., 0.}, {1588.928178383922, 636.9908289581767}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1589.571821616078, 652.0091710418233}],

Offset[{0., 0.}, {1588.928178383922, 636.9908289581767}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {317.0967696622967, 785.9995317706611}],

Offset[{0., 0.}, {318.4032303377033, 921.0004682293389}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {318.17408627387795`, 940.9946876010772}],

Offset[{0., 0.}, {317.32591372612205`, 967.0053123989228}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 0.}, {149., 1311.}],

Offset[{0., 0.}, {38.5, 1311.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1376.4834491457195`, 79.01335015057892}],

Offset[{0., 0.}, {1376.0165508542805`, 69.98664984942108}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1376.4834491457195`, 79.01335015057892}],

Offset[{0., 0.}, {1376.0165508542805`, 69.98664984942108}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1377., 104.}],

Offset[{0., 0.}, {1377., 99.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1377., 104.}],

Offset[{0., 0.}, {1377., 99.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1155.5433220020634`, 825.9874747136894}],

Offset[{0., 0.}, {1193.9566779979366`, 838.0125252863106}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1211.7943692710528`, 835.4139962052094}],

Offset[{0., 0.}, {1244.2056307289472`, 813.5860037947906}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1135.5, 1119.}],

Offset[{0., 0.}, {1135.5, 1131.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1134.4407477507077`, 1084.9902823493755`}],

Offset[{0., 0.}, {1135.0592522492923`, 1099.0097176506245`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {1377., 1220.}],

Offset[{0., 0.}, {1377., 1212.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {1377., 1248.}],

Offset[{0., 0.}, {1377., 1240.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {1342.8862078786558`, 1062.9719162174672`}],

Offset[{0., 0.}, {1315.6137921213442`, 1036.0280837825328`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {1301.503752073918, 1021.854895735065}],

Offset[{0., 0.}, {1291.996247926082, 1012.145104264935}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {866.3028912664076, 794.0045882085462}],

Offset[{0., 0.}, {868.6971087335924, 714.9954117914538}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{0.49104913752736745`, 1.4173463742267198`}, {

856.5510241718218, 807.2736609168492}],

Offset[{0.49104913752736745`, 1.4173463742267198`}, {

748.4489758281782, 844.7263390831508}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{-0.49104913752736745`, -1.4173463742267198`}, {

856.5510241718218, 807.2736609168492}],

Offset[{-0.49104913752736745`, -1.4173463742267198`}, {

748.4489758281782, 844.7263390831508}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 0.}, {861.501421390496, 812.9310016512211}],

Offset[{0., 0.}, {802.498578609504, 930.0689983487789}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{-0.7523642576241532, 2.9041260344292317`}, {952.8195798852358,

826.4921191412528}],

Offset[{-0.7523642576241532, 2.9041260344292317`}, {875.6804201147642,

806.5078808587472}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0., 0.}, {952.8195798852358, 826.4921191412528}],

Offset[{0., 0.}, {875.6804201147642, 806.5078808587472}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0.7523642576241532, -2.9041260344292317`}, {952.8195798852358,

826.4921191412528}],

Offset[{0.7523642576241532, -2.9041260344292317`}, {875.6804201147642,

806.5078808587472}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{0., 0.}, {857.6026048820013, 809.4298945875781}],

Offset[{0., 0.}, {807.8973951179987, 841.5701054124219}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{0., 0.}, {897.0044629343464, 776.6194353307071}],

Offset[{0., 0.}, {873.4955370656536, 797.3805646692929}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {840.7215267048298, 893.3774591507805}],

Offset[{0., 0.}, {863.2784732951702, 813.6225408492195}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {912.495322835176, 173.86315911508504`}],

Offset[{0., 0.}, {900.004677164824, 161.13684088491496`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {885.7801179488457, 147.08094636764386`}],

Offset[{0., 0.}, {876.2198820511543, 137.91905363235614`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1330.5681736119027`, 742.9101617304657}],

Offset[{0., 0.}, {1240.9318263880973`, 674.0898382695343}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1234.2842408748309`, 658.0828065776948}],

Offset[{0., 0.}, {1249.7157591251691`, 538.9171934223052}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1251.461018715879, 738.3276903462057}],

Offset[{0., 0.}, {1235.538981284121, 677.6723096537943}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1452.5684939567711`, 642.168412475674}],

Offset[{0., 0.}, {1242.9315060432289`, 666.831587524326}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1452.5684939567711`, 642.168412475674}],

Offset[{0., 0.}, {1242.9315060432289`, 666.831587524326}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1223.660278710074, 671.5734585804935}],

Offset[{0., 0.}, {1184.839721289926, 686.4265414195065}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.475, 0.796, 0.745}],

LineBox[{

Offset[{0., 0.}, {1225.9960429092498`, 660.8624524470284}],

Offset[{0., 0.}, {1056.5039570907502`, 488.13754755297157`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{2.193165804728607, 2.046954751080033}, {1211.6768174964,

772.3105526824287}],

Offset[{2.193165804728607, 2.046954751080033}, {1197.3231825036,

787.6894473175713}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0., 0.}, {1211.6768174964, 772.3105526824287}],

Offset[{0., 0.}, {1197.3231825036, 787.6894473175713}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{-2.193165804728607, -2.046954751080033}, {1211.6768174964,

772.3105526824287}],

Offset[{-2.193165804728607, -2.046954751080033}, {1197.3231825036,

787.6894473175713}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{1.295714812722189, 2.705757403037512}, {1244.9808086565417`,

752.3190493757406}],

Offset[{1.295714812722189, 2.705757403037512}, {1227.5191913434583`,

760.6809506242594}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0., 0.}, {1244.9808086565417`, 752.3190493757406}],

Offset[{0., 0.}, {1227.5191913434583`, 760.6809506242594}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{-1.295714812722189, -2.705757403037512}, {1244.9808086565417`,

752.3190493757406}],

Offset[{-1.295714812722189, -2.705757403037512}, {1227.5191913434583`,

760.6809506242594}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{-1.0387977422845702`, 1.0820809815464274`}, {

1813.2861267896906`, 850.0746817181029}],

Offset[{-1.0387977422845702`, 1.0820809815464274`}, {

1802.7138732103094`, 839.9253182818971}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{1.0387977422845702`, -1.0820809815464274`}, {

1813.2861267896906`, 850.0746817181029}],

Offset[{1.0387977422845702`, -1.0820809815464274`}, {

1802.7138732103094`, 839.9253182818971}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {1840.4289321881345`, 876.9289321881346}],

Offset[{0., 0.}, {1827.5710678118655`, 864.0710678118654}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1820.5, 884.}],

Offset[{0., 0.}, {1820.5, 867.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1820.5, 884.}],

Offset[{0., 0.}, {1820.5, 867.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1839.4240346490333`, 1128.0166005832439`}],

Offset[{0., 0.}, {1839.0759653509667`, 1121.9833994167561`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1839.0349472137161`, 1102.0143186772991`}],

Offset[{0., 0.}, {1839.4650527862839`, 1093.9856813227009`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {667., 535.}],

Offset[{0., 0.}, {610., 535.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 1.5}, {590., 535.}],

Offset[{0., 1.5}, {573., 535.}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., -1.5}, {590., 535.}],

Offset[{0., -1.5}, {573., 535.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {628.503371544263, 535.740347312838}],

Offset[{0., 0.}, {609.996628455737, 535.259652687162}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{-1.4914637308797136`, 0.15979968545139786`}, {

703.9346687636573, 751.0569084608019}],

Offset[{-1.4914637308797136`, 0.15979968545139786`}, {

700.0653312363427, 714.9430915391981}]}]}, {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{1.4914637308797136`, -0.15979968545139786`}, {

703.9346687636573, 751.0569084608019}],

Offset[{1.4914637308797136`, -0.15979968545139786`}, {

700.0653312363427, 714.9430915391981}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{-1.3635972343414262`, -0.6249820657398204}, {

670.6665471049321, 835.9093517710571}],

Offset[{-1.3635972343414262`, -0.6249820657398204}, {

700.8334528950679, 770.0906482289429}]}]}, {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{1.3635972343414262`, 0.6249820657398204}, {670.6665471049321,

835.9093517710571}],

Offset[{1.3635972343414262`, 0.6249820657398204}, {700.8334528950679,

770.0906482289429}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1956.004677164824, 483.863159115085}],

Offset[{0., 0.}, {1968.495322835176, 471.136840884915}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1956.004677164824, 483.863159115085}],

Offset[{0., 0.}, {1968.495322835176, 471.136840884915}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1905.281999926928, 534.1463530099501}],

Offset[{0., 0.}, {1916.218000073072, 523.8536469900499}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1905.281999926928, 534.1463530099501}],

Offset[{0., 0.}, {1916.218000073072, 523.8536469900499}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1881.3715414020073`, 556.2427537148266}],

Offset[{0., 0.}, {1890.6284585979927`, 547.7572462851734}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1881.3715414020073`, 556.2427537148266}],

Offset[{0., 0.}, {1890.6284585979927`, 547.7572462851734}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {1901.0901875592024`, 933.7712731388579}],

Offset[{0., 0.}, {1882.4098124407976`, 914.2287268611421}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {1867.7727374547476`, 900.6526057663999}],

Offset[{0., 0.}, {1855.2272625452524`, 890.3473942336001}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1023.9413557058423`, 1006.8015570457932`}],

Offset[{0., 0.}, {1037.0586442941576`, 993.1984429542068}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {969.5387064518922, 1061.8967182595584`}],

Offset[{0., 0.}, {1009.9612935481078`, 1021.1032817404416`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {1370.5, 529.}],

Offset[{0., 0.}, {1451., 529.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {1261., 529.}],

Offset[{0., 0.}, {1350.5, 529.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1491.2495563447203`, 783.7798989831056}],

Offset[{0., 0.}, {1348.2504436552797`, 751.2201010168944}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1546.0016524828668`, 785.1817881366751}],

Offset[{0., 0.}, {1510.9983475171332`, 785.8182118633249}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{1.0135869427760194`, -1.105731210301112}, {

1173.8715414020073`, 572.7572462851734}],

Offset[{1.0135869427760194`, -1.105731210301112}, {

1183.1284585979927`, 581.2427537148266}]}]}, {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{-1.0135869427760194`, 1.105731210301112}, {

1173.8715414020073`, 572.7572462851734}],

Offset[{-1.0135869427760194`, 1.105731210301112}, {

1183.1284585979927`, 581.2427537148266}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{0.49029974499219275`, -1.4176057844339487`}, {

1109.4507052295596`, 546.2686649666147}],

Offset[{0.49029974499219275`, -1.4176057844339487`}, {

1157.0492947704404`, 562.7313350333853}]}]}, {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{-0.49029974499219275`, 1.4176057844339487`}, {

1109.4507052295596`, 546.2686649666147}],

Offset[{-0.49029974499219275`, 1.4176057844339487`}, {

1157.0492947704404`, 562.7313350333853}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1512.201030927835, 1110.5773195876288`}],

Offset[{0., 0.}, {1531.298969072165, 1089.4226804123712`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1512.201030927835, 1110.5773195876288`}],

Offset[{0., 0.}, {1531.298969072165, 1089.4226804123712`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.086, 0.584, 0.827}],

LineBox[{

Offset[{0., 0.}, {1528.002362111761, 1081.7826600459077`}],

Offset[{0., 0.}, {1501.997637888239, 1081.2173399540923`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.086, 0.584, 0.827}],

LineBox[{

Offset[{0., 0.}, {1606.5, 1082.}],

Offset[{0., 0.}, {1548., 1082.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1541.288476470546, 1072.5561701358683`}],

Offset[{0., 0.}, {1554.211523529454, 1035.4438298641317`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1541.288476470546, 1072.5561701358683`}],

Offset[{0., 0.}, {1554.211523529454, 1035.4438298641317`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1649.5, 627.}],

Offset[{0., 0.}, {1668., 627.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1649.5, 627.}],

Offset[{0., 0.}, {1668., 627.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1598.5, 627.}],

Offset[{0., 0.}, {1629.5, 627.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1598.5, 627.}],

Offset[{0., 0.}, {1629.5, 627.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {871.1847234485073, 695.2415685966677}],

Offset[{0., 0.}, {881.8152765514927, 647.7584314033323}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {859., 705.}],

Offset[{0., 0.}, {836.5, 705.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {923., 705.}],

Offset[{0., 0.}, {879., 705.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1131.2404731609417`, 391.12255352089215`}],

Offset[{0., 0.}, {1079.2595268390583`, 341.87744647910785`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1244.4849353577067`, 521.4135691720851}],

Offset[{0., 0.}, {1145.0150646422933`, 405.58643082791497`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {265.71800007307195`, 513.1463530099501}],

Offset[{0., 0.}, {254.78199992692802`, 502.8536469900499}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {240.28612678969048`, 489.07468171810285`}],

Offset[{0., 0.}, {229.71387321030952`, 478.92531828189715`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {1376.4452998037748`, 1192.015396467946}],

Offset[{0., 0.}, {1376.0547001962252`, 1184.984603532054}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1588.5, 731.}],

Offset[{0., 0.}, {1588.5, 727.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1588.5, 731.}],

Offset[{0., 0.}, {1588.5, 727.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1652.9893846525829`, 838.6553539024827}],

Offset[{0., 0.}, {1594.0106153474171`, 749.3446460975173}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1652.9893846525829`, 838.6553539024827}],

Offset[{0., 0.}, {1594.0106153474171`, 749.3446460975173}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0.13787538632556517`, 1.4936500185269561`}, {

1668.5423332098203`, 759.9191692421705}],

Offset[{0.13787538632556517`, 1.4936500185269561`}, {

1623.4576667901797`, 764.0808307578295}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{-0.13787538632556517`, -1.4936500185269561`}, {

1668.5423332098203`, 759.9191692421705}],

Offset[{-0.13787538632556517`, -1.4936500185269561`}, {

1623.4576667901797`, 764.0808307578295}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0.492780937411909, 1.4167451950592385`}, {1604.0550320329385`,

768.2852062494127}],

Offset[{0.492780937411909, 1.4167451950592385`}, {1565.4449679670615`,

781.7147937505873}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{-0.492780937411909, -1.4167451950592385`}, {

1604.0550320329385`, 768.2852062494127}],

Offset[{-0.492780937411909, -1.4167451950592385`}, {

1565.4449679670615`, 781.7147937505873}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {920.2426936402134, 1110.6151450607188`}],

Offset[{0., 0.}, {927.7573063597866, 1102.3848549392812`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {892.5710678118654, 1138.9289321881345`}],

Offset[{0., 0.}, {906.4289321881346, 1125.0710678118655`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.086, 0.584, 0.827}],

LineBox[{

Offset[{0., 0.}, {997.2267279399631, 245.60059926604058`}],

Offset[{0., 0.}, {1023.7732720600369`, 216.39940073395942`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1375.5, 254.}],

Offset[{0., 0.}, {1375.5, 212.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1375.5, 254.}],

Offset[{0., 0.}, {1375.5, 212.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1375.5, 310.}],

Offset[{0., 0.}, {1375.5, 274.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1375.5, 310.}],

Offset[{0., 0.}, {1375.5, 274.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{-0.2989637274734639, 1.4699049934111974`}, {

1698.2006333772588`, 763.0069084835102}],

Offset[{-0.2989637274734639, 1.4699049934111974`}, {

1688.2993666227412`, 760.9930915164898}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0.2989637274734639, -1.4699049934111974`}, {

1698.2006333772588`, 763.0069084835102}],

Offset[{0.2989637274734639, -1.4699049934111974`}, {

1688.2993666227412`, 760.9930915164898}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {702.5423332098203, 962.9191692421705}],

Offset[{0., 0.}, {689.9576667901797, 964.0808307578295}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {702.5423332098203, 962.9191692421705}],

Offset[{0., 0.}, {689.9576667901797, 964.0808307578295}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {764.5, 962.}],

Offset[{0., 0.}, {722.5, 962.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {764.5, 962.}],

Offset[{0., 0.}, {722.5, 962.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {670.0014120305069, 964.8319565047144}],

Offset[{0., 0.}, {630.4985879694931, 964.1680434952856}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {670.0014120305069, 964.8319565047144}],

Offset[{0., 0.}, {630.4985879694931, 964.1680434952856}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1711.536758051398, 1266.953500135553}],

Offset[{0., 0.}, {1710.463241948602, 1278.046499864447}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1712.5, 1138.}],

Offset[{0., 0.}, {1712.5, 1247.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {843.2332966884675, 1189.6065761852121`}],

Offset[{0., 0.}, {855.2667033115325, 1176.3934238147879`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {806.667259309091, 1226.0264504019656`}],

Offset[{0., 0.}, {829.332740690909, 1203.9735495980344`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {567.000623830561, 1276.9875233887785`}],

Offset[{0., 0.}, {566.499376169439, 1287.0124766112215`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {567.000623830561, 1276.9875233887785`}],

Offset[{0., 0.}, {566.499376169439, 1287.0124766112215`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {566.5759653509667, 1306.9833994167561`}],

Offset[{0., 0.}, {566.9240346490333, 1313.0166005832439`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {566.5759653509667, 1306.9833994167561`}],

Offset[{0., 0.}, {566.9240346490333, 1313.0166005832439`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {1278.1063663935236`, 997.7558426508214}],

Offset[{0., 0.}, {1262.3936336064764`, 981.2441573491786}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {1249.6294457887363`, 965.904532548851}],

Offset[{0., 0.}, {1151.8705542112637`, 831.095467451149}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1174.7676538974465`, 967.8568860646952}],

Offset[{0., 0.}, {1273.7323461025535`, 946.1431139353048}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1174.7676538974465`, 967.8568860646952}],

Offset[{0., 0.}, {1273.7323461025535`, 946.1431139353048}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1293.4892008607806`, 944.4646139935247}],

Offset[{0., 0.}, {1316.5107991392194`, 945.5353860064753}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1293.4892008607806`, 944.4646139935247}],

Offset[{0., 0.}, {1316.5107991392194`, 945.5353860064753}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1114.6638924556844`, 1019.0229916953334`}],

Offset[{0., 0.}, {1157.8361075443156`, 976.9770083046666}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1114.6638924556844`, 1019.0229916953334`}],

Offset[{0., 0.}, {1157.8361075443156`, 976.9770083046666}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1049.620199389564, 977.7287631625285}],

Offset[{0., 0.}, {1064.879800610436, 955.2712368374715}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1071.621904366079, 937.0631327575854}],

Offset[{0., 0.}, {1079.878095633921, 863.9368672424146}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1076.0570955677385`, 955.3137650226008}],

Offset[{0., 0.}, {1128.4429044322615`, 1033.6862349773992`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1066.988765584116, 937.6367082243096}],

Offset[{0., 0.}, {1059.011234415884, 916.3632917756904}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {1470.9987983657732`, 528.8449798702981}],

Offset[{0., 0.}, {1580.0012016342268`, 527.1550201297019}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1461., 536.}],

Offset[{0., 0.}, {1461., 539.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1461., 536.}],

Offset[{0., 0.}, {1461., 539.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1460.7887795271815`, 519.0022309532645}],

Offset[{0., 0.}, {1459.7112204728185`, 467.99776904673547`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1460.7887795271815`, 519.0022309532645}],

Offset[{0., 0.}, {1459.7112204728185`, 467.99776904673547`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1589.3762171384483`, 517.0194742151712}],

Offset[{0., 0.}, {1589.1237828615517`, 512.9805257848288}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1589.3762171384483`, 517.0194742151712}],

Offset[{0., 0.}, {1589.1237828615517`, 512.9805257848288}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {1599.898065734717, 528.4241821201032}],

Offset[{0., 0.}, {1649.601934265283, 535.5758178798968}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1588.7630668208824`, 574.0034608064715}],

Offset[{0., 0.}, {1589.7369331791176`, 536.9965391935285}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1588.7630668208824`, 574.0034608064715}],

Offset[{0., 0.}, {1589.7369331791176`, 536.9965391935285}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1687.977851578566, 627.6651901052377}],

Offset[{0., 0.}, {1698.022148421434, 628.3348098947623}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1687.977851578566, 627.6651901052377}],

Offset[{0., 0.}, {1698.022148421434, 628.3348098947623}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {1664.1634076439916`, 545.8460516133448}],

Offset[{0., 0.}, {1703.3365923560084`, 620.1539483866552}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1717.9993394762039`, 629.1149349365081}],

Offset[{0., 0.}, {1785.0006605237961`, 629.8850650634919}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1717.9993394762039`, 629.1149349365081}],

Offset[{0., 0.}, {1785.0006605237961`, 629.8850650634919}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {1708., 639.}],

Offset[{0., 0.}, {1708., 755.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1717.0393565553275`, 624.7233151781246}],

Offset[{0., 0.}, {1791.9606434446725`, 589.2766848218754}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1717.0393565553275`, 624.7233151781246}],

Offset[{0., 0.}, {1791.9606434446725`, 589.2766848218754}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{0.8764570887676137, -1.2173015121772413`}, {

1198.6153434145149`, 593.8430472584507}],

Offset[{0.8764570887676137, -1.2173015121772413`}, {

1207.3846565854851`, 600.1569527415493}]}]}, {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{-0.8764570887676137, 1.2173015121772413`}, {

1198.6153434145149`, 593.8430472584507}],

Offset[{-0.8764570887676137, 1.2173015121772413`}, {

1207.3846565854851`, 600.1569527415493}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{0.4153072430150909, -1.4413604316406097`}, {

1225.1090695442708`, 608.7687149534339}],

Offset[{0.4153072430150909, -1.4413604316406097`}, {

1264.8909304557292`, 620.2312850465661}]}]}, {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{-0.4153072430150909, 1.4413604316406097`}, {

1225.1090695442708`, 608.7687149534339}],

Offset[{-0.4153072430150909, 1.4413604316406097`}, {

1264.8909304557292`, 620.2312850465661}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1442.5873608430318`, 943.1182830232495}],

Offset[{0., 0.}, {1464.9126391569682`, 926.8817169767505}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1442.5873608430318`, 943.1182830232495}],

Offset[{0., 0.}, {1464.9126391569682`, 926.8817169767505}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1336.496144206527, 946.2776706724036}],

Offset[{0., 0.}, {1424.503855793473, 948.7223293275964}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1336.496144206527, 946.2776706724036}],

Offset[{0., 0.}, {1424.503855793473, 948.7223293275964}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {648.5, 1165.}],

Offset[{0., 0.}, {648.5, 1156.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {646.5653312363427, 1193.0569084608019`}],

Offset[{0., 0.}, {647.4346687636573, 1184.9430915391981`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {567.5, 1250.}],

Offset[{0., 0.}, {567.5, 1257.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {567.5, 1250.}],

Offset[{0., 0.}, {567.5, 1257.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 0.}, {149.5073594011777, 1314.144801179978}],

Offset[{0., 0.}, {86.9926405988223, 1334.855198820022}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 0.}, {230.71069573932726`, 1296.04194076603}],

Offset[{0., 0.}, {168.78930426067274`, 1308.95805923397}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1134.5, 706.}],

Offset[{0., 0.}, {1094., 706.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1166.6137934294513`, 694.5864291977025}],

Offset[{0., 0.}, {1153.3862065705487`, 701.4135708022975}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{1.4468845591801178`, 0.39563249665081346`}, {

1045.362450022328, 530.6458970612008}],

Offset[{1.4468845591801178`, 0.39563249665081346`}, {

1033.137549977672, 575.3541029387992}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{-1.4468845591801178`, -0.39563249665081346`}, {

1045.362450022328, 530.6458970612008}],

Offset[{-1.4468845591801178`, -0.39563249665081346`}, {

1033.137549977672, 575.3541029387992}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1030.5, 595.}],

Offset[{0., 0.}, {1030.5, 644.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{0., 0.}, {1023.4289321881346`, 592.0710678118654}],

Offset[{0., 0.}, {985.5710678118654, 629.9289321881346}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1786.4486883729062`, 1200.0117310209735`}],

Offset[{0., 0.}, {1796.0513116270938`, 1200.9882689790265`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1753.9952696307666`, 1199.6924532421303`}],

Offset[{0., 0.}, {1766.5047303692334`, 1199.3075467578697`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {409.5115001315837, 533.479447993684}],

Offset[{0., 0.}, {366.9884998684163, 535.520552006316}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 0.}, {258.70591968501697`, 1274.3376067401816`}],

Offset[{0., 0.}, {247.29408031498306`, 1286.6623932598184`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {962.3508880188294, 224.5586425421722}],

Offset[{0., 0.}, {949.1491119811706, 213.4413574578278}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {935.0405775853383, 199.36613714630886`}],

Offset[{0., 0.}, {925.9594224146617, 188.63386285369114`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {719.5354459792011, 384.89348890989794`}],

Offset[{0., 0.}, {804.4645540207989, 299.10651109010206`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {719.5354459792011, 384.89348890989794`}],

Offset[{0., 0.}, {804.4645540207989, 299.10651109010206`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {983.6827440076976, 245.68392039850465`}],

Offset[{0., 0.}, {976.8172559923024, 238.31607960149535`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {1377., 1303.}],

Offset[{0., 0.}, {1377., 1293.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {869.1466876599352, 1162.0053695243187`}],

Offset[{0., 0.}, {878.3533123400648, 1152.9946304756813`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {812.1337646703628, 74.72986847450183}],

Offset[{0., 0.}, {800.3662353296372, 62.27013152549817}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {835.6508999123212, 99.71372331097993}],

Offset[{0., 0.}, {825.8491000876788, 89.28627668902007}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {1077.647294608796, 698.2771032499089}],

Offset[{0., 0.}, {1064.852705391204, 682.7228967500911}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {1050.5, 669.}],

Offset[{0., 0.}, {1038.5, 660.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1589.0547001962252`, 438.0153964679459}],

Offset[{0., 0.}, {1589.4452998037748`, 430.9846035320541}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1589.0547001962252`, 438.0153964679459}],

Offset[{0., 0.}, {1589.4452998037748`, 430.9846035320541}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1588.5, 465.}],

Offset[{0., 0.}, {1588.5, 458.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1588.5, 465.}],

Offset[{0., 0.}, {1588.5, 458.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1282.9677590827791`, 1116.8023583162608`}],

Offset[{0., 0.}, {1424.5322409172209`, 1128.1976416837392`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1282.9677590827791`, 1116.8023583162608`}],

Offset[{0., 0.}, {1424.5322409172209`, 1128.1976416837392`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1236.3160796014954`, 1081.8172559923025`}],

Offset[{0., 0.}, {1265.6839203985046`, 1109.1827440076975`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1236.3160796014954`, 1081.8172559923025`}],

Offset[{0., 0.}, {1265.6839203985046`, 1109.1827440076975`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 0.}, {283.8459034408884, 1261.7652377346394`}],

Offset[{0., 0.}, {280.6540965591116, 1276.2347622653606`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 0.}, {277.50496280979, 1295.9503719021}],

Offset[{0., 0.}, {276.99503719021, 1301.0496280979}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1369.9147726379229`, 139.70510787810326`}],

Offset[{0., 0.}, {1330.5852273620771`, 81.29489212189675}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1369.9147726379229`, 139.70510787810326`}],

Offset[{0., 0.}, {1330.5852273620771`, 81.29489212189675}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1831.5710678118655`, 607.9289321881346}],

Offset[{0., 0.}, {1841.4289321881345`, 598.0710678118654}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1831.5710678118655`, 607.9289321881346}],

Offset[{0., 0.}, {1841.4289321881345`, 598.0710678118654}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1803.913851302068, 625.4675332362366}],

Offset[{0., 0.}, {1815.586148697932, 619.5324667637634}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1803.913851302068, 625.4675332362366}],

Offset[{0., 0.}, {1815.586148697932, 619.5324667637634}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1588.9993761694388`, 336.01247661122153`}],

Offset[{0., 0.}, {1589.5006238305612`, 325.98752338877847`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1588.9993761694388`, 336.01247661122153`}],

Offset[{0., 0.}, {1589.5006238305612`, 325.98752338877847`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1588.5, 381.}],

Offset[{0., 0.}, {1588.5, 356.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1588.5, 381.}],

Offset[{0., 0.}, {1588.5, 356.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1930.5020866689247`, 509.8606175140376}],

Offset[{0., 0.}, {1941.9979133310753`, 498.1393824859624}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1930.5020866689247`, 509.8606175140376}],

Offset[{0., 0.}, {1941.9979133310753`, 498.1393824859624}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {1918.1361704520443`, 953.2862672145992}],

Offset[{0., 0.}, {1914.3638295479557`, 948.7137327854008}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {1946.3710439942608`, 979.5347830459839}],

Offset[{0., 0.}, {1932.1289560057392`, 967.4652169540161}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1466.7530495244557`, 913.1913119055697}],

Offset[{0., 0.}, {1467.2469504755443`, 913.8086880944303}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1466.7530495244557`, 913.1913119055697}],

Offset[{0., 0.}, {1467.2469504755443`, 913.8086880944303}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1461.3656090585073`, 896.0066857341352}],

Offset[{0., 0.}, {1462.1343909414927`, 874.9933142658648}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1461.3656090585073`, 896.0066857341352}],

Offset[{0., 0.}, {1462.1343909414927`, 874.9933142658648}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1480.2530629092587`, 914.1157368996867}],

Offset[{0., 0.}, {1495.2469370907413`, 899.8842631003133}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1480.2530629092587`, 914.1157368996867}],

Offset[{0., 0.}, {1495.2469370907413`, 899.8842631003133}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1708.4194081923158`, 1297.9414446306946`}],

Offset[{0., 0.}, {1708.0805918076842`, 1301.0585553693054`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1708.0805918076842`, 1320.9414446306946`}],

Offset[{0., 0.}, {1708.4194081923158`, 1324.0585553693054`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1588.5, 279.}],

Offset[{0., 0.}, {1588.5, 274.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1588.5, 279.}],

Offset[{0., 0.}, {1588.5, 274.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1589.4452998037748`, 306.0153964679459}],

Offset[{0., 0.}, {1589.0547001962252`, 298.9846035320541}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1589.4452998037748`, 306.0153964679459}],

Offset[{0., 0.}, {1589.0547001962252`, 298.9846035320541}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1588.5, 707.}],

Offset[{0., 0.}, {1588.5, 700.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1588.5, 707.}],

Offset[{0., 0.}, {1588.5, 700.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {684.4120437352507, 1053.2872056737353`}],

Offset[{0., 0.}, {696.0879562647493, 1042.7127943262647`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {710.7335554414357, 1029.095242533175}],

Offset[{0., 0.}, {718.2664445585643, 1021.904757466825}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {311.37112205406066`, 637.1078189983956}],

Offset[{0., 0.}, {285.62887794593934`, 693.8921810016044}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {372.50196001569896`, 704.8020190102119}],

Offset[{0., 0.}, {291.49803998430104`, 703.1979809897881}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {315.63512279797027`, 637.9990870497995}],

Offset[{0., 0.}, {316.86487720202973`, 729.0009129502005}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{-0.24461489538608305`, 1.4799201170858025`}, {

727.6338658860947, 543.3692340307595}],

Offset[{-0.24461489538608305`, 1.4799201170858025`}, {

686.8661341139053, 536.6307659692405}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0.24461489538608305`, -1.4799201170858025`}, {

727.6338658860947, 543.3692340307595}],

Offset[{0.24461489538608305`, -1.4799201170858025`}, {

686.8661341139053, 536.6307659692405}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {679.5259617569963, 544.6757179166299}],

Offset[{0., 0.}, {703.9740382430037, 638.3242820833701}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {675.0388386486181, 544.8058067569092}],

Offset[{0., 0.}, {663.9611613513819, 600.1941932430908}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {674.4550670072035, 525.3292546273735}],

Offset[{0., 0.}, {664.5449329927965, 487.67074537262647`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {667.003371544263, 535.259652687162}],

Offset[{0., 0.}, {648.496628455737, 535.740347312838}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {485.06849395677125`, 704.831587524326}],

Offset[{0., 0.}, {479.43150604322875`, 704.168412475674}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {529., 706.}],

Offset[{0., 0.}, {505., 706.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{1.2309096234821704`, 0.8572406306393687}, {304.2850624624042,

1126.2060641565479`}],

Offset[{1.2309096234821704`, 0.8572406306393687}, {296.2149375375958,

1137.7939358434521`}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{-1.2309096234821704`, -0.8572406306393687}, {

304.2850624624042, 1126.2060641565479`}],

Offset[{-1.2309096234821704`, -0.8572406306393687}, {

296.2149375375958, 1137.7939358434521`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{1.0894400997146536`, 1.03107723722994}, {283.6261517518004,

1153.2629339980977`}],

Offset[{1.0894400997146536`, 1.03107723722994}, {270.8738482481996,

1166.7370660019023`}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{-1.0894400997146536`, -1.03107723722994}, {283.6261517518004,

1153.2629339980977`}],

Offset[{-1.0894400997146536`, -1.03107723722994}, {270.8738482481996,

1166.7370660019023`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1135.5, 1179.}],

Offset[{0., 0.}, {1135.5, 1185.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1135.5, 1151.}],

Offset[{0., 0.}, {1135.5, 1159.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{-1.1473667971755763`, 0.9662036186741695}, {

1789.0586425421723`, 825.3508880188294}],

Offset[{-1.1473667971755763`, 0.9662036186741695}, {

1785.9413574578277`, 821.6491119811706}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{1.1473667971755763`, -0.9662036186741695}, {

1789.0586425421723`, 825.3508880188294}],

Offset[{1.1473667971755763`, -0.9662036186741695}, {

1785.9413574578277`, 821.6491119811706}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {660.5, 357.}],

Offset[{0., 0.}, {660.5, 337.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {661.0759653509667, 317.0166005832439}],

Offset[{0., 0.}, {661.4240346490333, 310.9833994167561}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{0., 0.}, {789.50136574707, 847.1652666818666}],

Offset[{0., 0.}, {748.99863425293, 847.8347333181334}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{-0.1860476848497111, 4.496152383868019}, {729.0085502580711,

847.586560700334}],

Offset[{-0.1860476848497111, 4.496152383868019}, {676.4914497419289,

845.413439299666}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{-0.0620158949499037, 1.4987174612893395`}, {729.0085502580711,

847.586560700334}],

Offset[{-0.0620158949499037, 1.4987174612893395`}, {676.4914497419289,

845.413439299666}]}]}, {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0.0620158949499037, -1.4987174612893395`}, {729.0085502580711,

847.586560700334}],

Offset[{0.0620158949499037, -1.4987174612893395`}, {676.4914497419289,

845.413439299666}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0.1860476848497111, -4.496152383868019}, {729.0085502580711,

847.586560700334}],

Offset[{0.1860476848497111, -4.496152383868019}, {676.4914497419289,

845.413439299666}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1065.4041010959127`, 327.48374310929574`}],

Offset[{0., 0.}, {1035.5958989040873`, 293.51625689070426`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{0., 0.}, {1068.1276751564492`, 344.2198210560736}],

Offset[{0., 0.}, {1054.8723248435508`, 375.7801789439264}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {1961.7848057526114`, 994.5901304856402}],

Offset[{0., 0.}, {1960.7151942473886`, 993.4098695143598}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1588.5, 254.}],

Offset[{0., 0.}, {1588.5, 246.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1588.5, 254.}],

Offset[{0., 0.}, {1588.5, 246.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{0.5844599862550469, -1.381450876602838}, {1057.2096725106856`,

524.896399908367}],

Offset[{0.5844599862550469, -1.381450876602838}, {1090.7903274893144`,

539.103600091633}]}]}, {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{-0.5844599862550469, 1.381450876602838}, {1057.2096725106856`,

524.896399908367}],

Offset[{-0.5844599862550469, 1.381450876602838}, {1090.7903274893144`,

539.103600091633}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{1.4989464235637708`, 0.05621049088364142}, {1049.125263394109,

490.9929761570918}],

Offset[{1.4989464235637708`, 0.05621049088364142}, {1048.374736605891,

511.0070238429082}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{-1.4989464235637708`, -0.05621049088364142}, {

1049.125263394109, 490.9929761570918}],

Offset[{-1.4989464235637708`, -0.05621049088364142}, {

1048.374736605891, 511.0070238429082}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{-0.42998360958599874`, -1.4370504846689958`}, {

994.08033656446, 537.13344260276}],

Offset[{-0.42998360958599874`, -1.4370504846689958`}, {

1038.41966343554, 523.86655739724}]}]}, {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0.42998360958599874`, 1.4370504846689958`}, {994.08033656446,

537.13344260276}],

Offset[{0.42998360958599874`, 1.4370504846689958`}, {1038.41966343554,

523.86655739724}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1709.5, 1344.}],

Offset[{0., 0.}, {1709.5, 1347.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{-0.6457087873224687, -1.3539055218051765`}, {

1090.0260368120346`, 849.6952747511835}],

Offset[{-0.6457087873224687, -1.3539055218051765`}, {

1136.9739631879654`, 827.3047252488165}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.086, 0.584, 0.827}],

LineBox[{

Offset[{0.6457087873224687, 1.3539055218051765`}, {

1090.0260368120346`, 849.6952747511835}],

Offset[{0.6457087873224687, 1.3539055218051765`}, {

1136.9739631879654`, 827.3047252488165}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1076.6644000198387`, 863.0112470175901}],

Offset[{0., 0.}, {1059.8355999801613`, 897.9887529824099}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {764.9180275952918, 894.722217303674}],

Offset[{0., 0.}, {1071.0819724047083`, 855.277782696326}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {764.9180275952918, 894.722217303674}],

Offset[{0., 0.}, {1071.0819724047083`, 855.277782696326}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{-1.055370194394121, 1.065923896338062}, {1073.8938406910795`,

846.9641987040392}],

Offset[{-1.055370194394121, 1.065923896338062}, {1037.6061593089205`,

811.0358012959608}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.086, 0.584, 0.827}],

LineBox[{

Offset[{1.055370194394121, -1.065923896338062}, {1073.8938406910795`,

846.9641987040392}],

Offset[{1.055370194394121, -1.065923896338062}, {1037.6061593089205`,

811.0358012959608}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{0.16641005886756877`, 2.9953810596162374`}, {

1060.515396467946, 823.5547001962252}],

Offset[{0.16641005886756877`, 2.9953810596162374`}, {

972.4846035320542, 828.4452998037748}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0., 0.}, {1060.515396467946, 823.5547001962252}],

Offset[{0., 0.}, {972.4846035320542, 828.4452998037748}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{-0.16641005886756877`, -2.9953810596162374`}, {

1060.515396467946, 823.5547001962252}],

Offset[{-0.16641005886756877`, -2.9953810596162374`}, {

972.4846035320542, 828.4452998037748}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{0., 3.}, {1136., 823.}],

Offset[{0., 3.}, {1080.5, 823.}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0., 0.}, {1136., 823.}],

Offset[{0., 0.}, {1080.5, 823.}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., -3.}, {1136., 823.}],

Offset[{0., -3.}, {1080.5, 823.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1840., 1156.}],

Offset[{0., 0.}, {1840., 1148.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{1.5976830470241288`, 2.539174842591919}, {1182.036083858027,

800.3256101567471}],

Offset[{1.5976830470241288`, 2.539174842591919}, {1154.463916141973,

817.6743898432529}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0., 0.}, {1182.036083858027, 800.3256101567471}],

Offset[{0., 0.}, {1154.463916141973, 817.6743898432529}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{-1.5976830470241288`, -2.539174842591919}, {1182.036083858027,

800.3256101567471}],

Offset[{-1.5976830470241288`, -2.539174842591919}, {1154.463916141973,

817.6743898432529}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1129.6228223105013`, 1203.0906601959332`}],

Offset[{0., 0.}, {1102.8771776894987`, 1239.9093398040668`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1135.1343909414927`, 1204.993314265865}],

Offset[{0., 0.}, {1134.3656090585073`, 1226.006685734135}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {805.8086880944303, 932.7530495244557}],

Offset[{0., 0.}, {812.6913119055697, 927.2469504755443}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 0.}, {790.8910860764088, 946.0330180454034}],

Offset[{0., 0.}, {664.6089139235912, 1070.9669819545966`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {781.6466876599352, 955.0053695243187}],

Offset[{0., 0.}, {790.8533123400648, 945.9946304756813}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1013.6452790633318`, 1040.4659943128142`}],

Offset[{0., 0.}, {942.3547209366682, 1013.5340056871858`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1013.6452790633318`, 1040.4659943128142`}],

Offset[{0., 0.}, {942.3547209366682, 1013.5340056871858`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {923.4292482530198, 1007.1016019946054`}],

Offset[{0., 0.}, {784.0707517469802, 964.8983980053946}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {923.4292482530198, 1007.1016019946054`}],

Offset[{0., 0.}, {784.0707517469802, 964.8983980053946}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.086, 0.584, 0.827}],

LineBox[{

Offset[{0., 0.}, {1348.1379821905111`, 1060.1748847499307`}],

Offset[{0., 0.}, {1328.3620178094889`, 955.8251152500694}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {1369.8252708917605`, 1098.7660793331427`}],

Offset[{0., 0.}, {1355.6747291082395`, 1078.2339206668573`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.086, 0.584, 0.827}],

LineBox[{

Offset[{0., 0.}, {1436.5643418357722`, 1079.8674379294662`}],

Offset[{0., 0.}, {1359.9356581642278`, 1071.1325620705338`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1375.5, 192.}],

Offset[{0., 0.}, {1375.5, 186.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1375.5, 192.}],

Offset[{0., 0.}, {1375.5, 186.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1375.5, 166.}],

Offset[{0., 0.}, {1375.5, 158.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1375.5, 166.}],

Offset[{0., 0.}, {1375.5, 158.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {660.5, 411.}],

Offset[{0., 0.}, {660.5, 404.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {661.7369331791177, 468.00346080647154`}],

Offset[{0., 0.}, {660.7630668208823, 430.99653919352846`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1833.6617738906298`, 1076.265215595345}],

Offset[{0., 0.}, {1816.8382261093702`, 1055.734784404655}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1800.5188813007712`, 1048.6142226891834`}],

Offset[{0., 0.}, {1787.9811186992288`, 1049.3857773108166`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{0., 0.}, {709.3820068874348, 638.4242996965874}],

Offset[{0., 0.}, {734.6179931125652, 554.5757003034126}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{0.7496340570653091, 2.904831971128073}, {758.8172267629064,

539.4987801902176}],

Offset[{0.7496340570653091, 2.904831971128073}, {747.1827732370936,

542.5012198097824}]}]}, {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {758.8172267629064, 539.4987801902176}],

Offset[{0., 0.}, {747.1827732370936, 542.5012198097824}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{-0.7496340570653091, -2.904831971128073}, {758.8172267629064,

539.4987801902176}],

Offset[{-0.7496340570653091, -2.904831971128073}, {747.1827732370936,

542.5012198097824}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {941.827934916263, 1088.1954890063273`}],

Offset[{0., 0.}, {955.172065083737, 1075.8045109936727`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0., 0.}, {559.260503037265, 584.0289601780802}],

Offset[{0., 0.}, {562.239496962735, 544.9710398219198}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0., 0.}, {559.5718216160782, 619.0091710418233}],

Offset[{0., 0.}, {558.9281783839218, 603.9908289581767}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1032., 715.}],

Offset[{0., 0.}, {1032., 723.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1031.7887795271815`, 742.9977690467355}],

Offset[{0., 0.}, {1030.7112204728185`, 794.0022309532645}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1063.5078331550255`, 1042.395729379999}],

Offset[{0., 0.}, {1032.9921668449745`, 1043.604270620001}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1063.5078331550255`, 1042.395729379999}],

Offset[{0., 0.}, {1032.9921668449745`, 1043.604270620001}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1082.5481870220099`, 1037.7420296367013`}],

Offset[{0., 0.}, {1098.4518129779901`, 1030.2579703632987`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1082.5481870220099`, 1037.7420296367013`}],

Offset[{0., 0.}, {1098.4518129779901`, 1030.2579703632987`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1083.2821477313855`, 1044.075954180937}],

Offset[{0., 0.}, {1219.2178522686145`, 1072.924045819063}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1083.2821477313855`, 1044.075954180937}],

Offset[{0., 0.}, {1219.2178522686145`, 1072.924045819063}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1812.8662353296372`, 1194.729868474502}],

Offset[{0., 0.}, {1833.1337646703628`, 1173.270131525498}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {208.71655771348787`, 925.8396815807566}],

Offset[{0., 0.}, {197.78344228651213`, 986.1603184192434}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {249.27358142852302`, 878.9122264596737}],

Offset[{0., 0.}, {217.72641857147698`, 909.0877735403263}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {875.7141103130858, 632.4014258872202}],

Offset[{0., 0.}, {855.2858896869142, 618.5985741127798}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.086, 0.584, 0.827}],

LineBox[{

Offset[{0., 0.}, {927.096813976761, 696.9282966621018}],

Offset[{0., 0.}, {889.903186023239, 646.0717033378982}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {968.5005598477219, 637.1058141815056}],

Offset[{0., 0.}, {893.9994401522781, 637.8941858184944}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.086, 0.584, 0.827}],

LineBox[{

Offset[{0., 0.}, {884., 628.}],

Offset[{0., 0.}, {884., 549.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {891.159556278271, 631.0185421366114}],

Offset[{0., 0.}, {977.340443721729, 546.9814578633886}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{-1.5, 0.}, {385.5, 445.}],

Offset[{-1.5, 0.}, {385.5, 425.}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{1.5, 0.}, {385.5, 445.}],

Offset[{1.5, 0.}, {385.5, 425.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{1.5, 0.}, {385.5, 445.}],

Offset[{1.5, 0.}, {385.5, 425.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {433.73325199292634`, 594.5486319795344}],

Offset[{0., 0.}, {388.76674800707366`, 464.4513680204656}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {433.73325199292634`, 594.5486319795344}],

Offset[{0., 0.}, {388.76674800707366`, 464.4513680204656}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {415.50414579486073`, 523.8330403529158}],

Offset[{0., 0.}, {389.49585420513927`, 464.16695964708424`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1511.8177739198532`, 889.3696984727844}],

Offset[{0., 0.}, {1531.6822260801468`, 881.6303015272156}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1511.8177739198532`, 889.3696984727844}],

Offset[{0., 0.}, {1531.6822260801468`, 881.6303015272156}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1550.9986995253212`, 878.1612693471826}],

Offset[{0., 0.}, {1593.0013004746788`, 878.8387306528174}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1550.9986995253212`, 878.1612693471826}],

Offset[{0., 0.}, {1593.0013004746788`, 878.8387306528174}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1613., 879.}],

Offset[{0., 0.}, {1658.5, 879.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1613., 879.}],

Offset[{0., 0.}, {1658.5, 879.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1462.5, 855.}],

Offset[{0., 0.}, {1462.5, 833.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1462.5, 855.}],

Offset[{0., 0.}, {1462.5, 833.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {553., 535.}],

Offset[{0., 0.}, {539., 535.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {553.0009710977068, 534.8606407121632}],

Offset[{0., 0.}, {429.49902890229316`, 533.1393592878368}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {461.37912616571396`, 708.8353584437983}],

Offset[{0., 0.}, {310.62087383428604`, 817.1646415562017}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {295.65564091583667`, 830.2907303287826}],

Offset[{0., 0.}, {263.34435908416333`, 864.7092696712174}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{1.49652553902231, -0.10203583220606659`}, {560.6802388813737,

1005.9768369268154`}],

Offset[{1.49652553902231, -0.10203583220606659`}, {560.8197611186263,

1008.0231630731846`}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{-1.49652553902231, 0.10203583220606659`}, {560.6802388813737,

1005.9768369268154`}],

Offset[{-1.49652553902231, 0.10203583220606659`}, {560.8197611186263,

1008.0231630731846`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{-1.49652553902231, 0.10203583220606659`}, {560.6802388813737,

1005.9768369268154`}],

Offset[{-1.49652553902231, 0.10203583220606659`}, {560.8197611186263,

1008.0231630731846`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{1.4870321489849407`, 0.19681307854212451`}, {

563.1879128097191, 971.9135476598996}],

Offset[{1.4870321489849407`, 0.19681307854212451`}, {

561.3120871902809, 986.0864523401004}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{-1.4870321489849407`, -0.19681307854212451`}, {

563.1879128097191, 971.9135476598996}],

Offset[{-1.4870321489849407`, -0.19681307854212451`}, {

561.3120871902809, 986.0864523401004}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{-1.4870321489849407`, -0.19681307854212451`}, {

563.1879128097191, 971.9135476598996}],

Offset[{-1.4870321489849407`, -0.19681307854212451`}, {

561.3120871902809, 986.0864523401004}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1444.3821023728378`, 1127.4689700549125`}],

Offset[{0., 0.}, {1495.6178976271622`, 1119.5310299450875`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1444.3821023728378`, 1127.4689700549125`}],

Offset[{0., 0.}, {1495.6178976271622`, 1119.5310299450875`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 0.}, {445.2010175753549, 1109.579147848501}],

Offset[{0., 0.}, {402.2989824246451, 1138.420852151499}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 0.}, {517.5082075614575, 1106.5949273335725`}],

Offset[{0., 0.}, {463.4917924385424, 1104.4050726664275`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 0.}, {443.5, 1104.}],

Offset[{0., 0.}, {401., 1104.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {564.392548313991, 1189.9025657883803`}],

Offset[{0., 0.}, {566.107451686009, 1202.0974342116197`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {564.392548313991, 1189.9025657883803`}],

Offset[{0., 0.}, {566.107451686009, 1202.0974342116197`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{1.5, 0.}, {563., 1163.}],

Offset[{1.5, 0.}, {563., 1170.}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{-1.5, 0.}, {563., 1163.}],

Offset[{-1.5, 0.}, {563., 1170.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{-1.5, 0.}, {563., 1163.}],

Offset[{-1.5, 0.}, {563., 1170.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {567.5, 1222.}],

Offset[{0., 0.}, {567.5, 1230.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {567.5, 1222.}],

Offset[{0., 0.}, {567.5, 1230.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {124.92893218813452`, 371.9289321881345}],

Offset[{0., 0.}, {105.07106781186548`, 352.0710678118655}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {150.21800007307198`, 396.1463530099501}],

Offset[{0., 0.}, {139.28199992692802`, 385.8536469900499}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1588.5, 493.}],

Offset[{0., 0.}, {1588.5, 485.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1588.5, 493.}],

Offset[{0., 0.}, {1588.5, 485.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1135.9710084891449`, 1300.9469179382654`}],

Offset[{0., 0.}, {1135.0289915108551`, 1310.0530820617346`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.086, 0.584, 0.827}],

LineBox[{

Offset[{0., 0.}, {1318.2362739491766`, 940.3687628573338}],

Offset[{0., 0.}, {1154.2637260508234`, 828.6312371426662}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{-1.4871814433138157`, -0.19568176885708102`}, {

700.3045451257138, 695.0854570445746}],

Offset[{-1.4871814433138157`, -0.19568176885708102`}, {

705.1954548742862, 657.9145429554254}]}]}, {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{1.4871814433138157`, 0.19568176885708102`}, {

700.3045451257138, 695.0854570445746}],

Offset[{1.4871814433138157`, 0.19568176885708102`}, {

705.1954548742862, 657.9145429554254}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0.0651558364144604, 1.4985842375325893`}, {146.0094384164494,

1178.4343722427632`}],

Offset[{0.0651558364144604, 1.4985842375325893`}, {119.9905615835506,

1179.5656277572368`}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{-0.0651558364144604, -1.4985842375325893`}, {

146.0094384164494, 1178.4343722427632`}],

Offset[{-0.0651558364144604, -1.4985842375325893`}, {

119.9905615835506, 1179.5656277572368`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 1.5}, {100., 1180.}],

Offset[{0., 1.5}, {44.5, 1180.}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., -1.5}, {100., 1180.}],

Offset[{0., -1.5}, {44.5, 1180.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {1093.4533510622832`, 751.2116789935279}],

Offset[{0., 0.}, {1086.0466489377168`, 715.7883210064721}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1074.0018485997016`, 705.8077278576866}],

Offset[{0., 0.}, {1041.9981514002984`, 705.1922721423134}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {689., 705.}],

Offset[{0., 0.}, {664.5, 705.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {644.5029019153252, 705.2408939297512}],

Offset[{0., 0.}, {622.9970980846748, 705.7591060702488}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {1986.8592716085543`, 1019.9992858907394`}],

Offset[{0., 0.}, {1975.6407283914457`, 1009.0007141092606`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {192.86059386485078`, 441.10647782623676`}],

Offset[{0., 0.}, {184.13940613514922`, 429.89352217376324`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {170.66569703380068`, 415.20235334840066`}],

Offset[{0., 0.}, {164.83430296619932`, 409.79764665159934`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {215.35331234006478`, 465.0053695243187}],

Offset[{0., 0.}, {206.14668765993522`, 455.9946304756813}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1462.5, 813.}],

Offset[{0., 0.}, {1462.5, 774.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1462.5, 813.}],

Offset[{0., 0.}, {1462.5, 774.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {839.4928648307724, 606.3937210510798}],

Offset[{0., 0.}, {829.5071351692276, 597.6062789489202}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{-0.16451868360696317`, 1.4909505701881036`}, {

218.56032953207932`, 1184.9032087759535`}],

Offset[{-0.16451868360696317`, 1.4909505701881036`}, {

165.93967046792068`, 1179.0967912240465`}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0.16451868360696317`, -1.4909505701881036`}, {

218.56032953207932`, 1184.9032087759535`}],

Offset[{0.16451868360696317`, -1.4909505701881036`}, {

165.93967046792068`, 1179.0967912240465`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {667.0636268328417, 469.37679390842794`}],

Offset[{0., 0.}, {707.4363731671583, 400.62320609157206`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {667.0636268328417, 469.37679390842794`}],

Offset[{0., 0.}, {707.4363731671583, 400.62320609157206`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1589.5006238305612`, 411.01247661122153`}],

Offset[{0., 0.}, {1588.9993761694388`, 400.98752338877847`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1589.5006238305612`, 411.01247661122153`}],

Offset[{0., 0.}, {1588.9993761694388`, 400.98752338877847`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1020.5451109696903`, 280.6600700861202}],

Offset[{0., 0.}, {1018.4548890303097`, 279.3399299138798}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1030.0455204126783`, 295.94519416938016`}],

Offset[{0., 0.}, {1048.4544795873217`, 471.05480583061984`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{1.49652553902231, 0.10203583220606659`}, {563.8197611186263,

927.9768369268154}],

Offset[{1.49652553902231, 0.10203583220606659`}, {563.6802388813737,

930.0231630731846}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{-1.49652553902231, -0.10203583220606659`}, {563.8197611186263,

927.9768369268154}],

Offset[{-1.49652553902231, -0.10203583220606659`}, {563.6802388813737,

930.0231630731846}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{-1.49652553902231, -0.10203583220606659`}, {563.8197611186263,

927.9768369268154}],

Offset[{-1.49652553902231, -0.10203583220606659`}, {563.6802388813737,

930.0231630731846}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{1.49652553902231, -0.10203583220606659`}, {563.6802388813737,

949.9768369268154}],

Offset[{1.49652553902231, -0.10203583220606659`}, {563.8197611186263,

952.0231630731846}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{-1.49652553902231, 0.10203583220606659`}, {563.6802388813737,

949.9768369268154}],

Offset[{-1.49652553902231, 0.10203583220606659`}, {563.8197611186263,

952.0231630731846}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{-1.49652553902231, 0.10203583220606659`}, {563.6802388813737,

949.9768369268154}],

Offset[{-1.49652553902231, 0.10203583220606659`}, {563.8197611186263,

952.0231630731846}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {610.5063714565244, 963.6430846948758}],

Offset[{0., 0.}, {574.4936285434756, 962.3569153051242}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {610.5063714565244, 963.6430846948758}],

Offset[{0., 0.}, {574.4936285434756, 962.3569153051242}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {617.5462057335105, 697.0931479506733}],

Offset[{0., 0.}, {657.4537942664895, 618.9068520493267}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {617.5462057335105, 697.0931479506733}],

Offset[{0., 0.}, {657.4537942664895, 618.9068520493267}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {662., 600.}],

Offset[{0., 0.}, {662., 488.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {662., 600.}],

Offset[{0., 0.}, {662., 488.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1134., 1052.}],

Offset[{0., 0.}, {1134., 1065.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{1.4996007511721905`, -0.034606171180896705`}, {

561.7307078078726, 1097.997338341148}],

Offset[{1.4996007511721905`, -0.034606171180896705`}, {

562.7692921921274, 1143.002661658852}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{-1.4996007511721905`, 0.034606171180896705`}, {

561.7307078078726, 1097.997338341148}],

Offset[{-1.4996007511721905`, 0.034606171180896705`}, {

562.7692921921274, 1143.002661658852}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{-1.4996007511721905`, 0.034606171180896705`}, {

561.7307078078726, 1097.997338341148}],

Offset[{-1.4996007511721905`, 0.034606171180896705`}, {

562.7692921921274, 1143.002661658852}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{-1.4984528103154493`, -0.06811149137797497}, {

385.9540766091865, 405.010314597897}],

Offset[{-1.4984528103154493`, -0.06811149137797497}, {

386.5459233908135, 391.989685402103}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{1.4984528103154493`, 0.06811149137797497}, {385.9540766091865,

405.010314597897}],

Offset[{1.4984528103154493`, 0.06811149137797497}, {386.5459233908135,

391.989685402103}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{1.4984528103154493`, 0.06811149137797497}, {385.9540766091865,

405.010314597897}],

Offset[{1.4984528103154493`, 0.06811149137797497}, {386.5459233908135,

391.989685402103}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {757.9962479260821, 978.854895735065}],

Offset[{0., 0.}, {767.5037520739179, 969.145104264935}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {732.1033596569799, 1007.4902968606895`}],

Offset[{0., 0.}, {744.3966403430201, 993.5097031393105}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {574.3277696397795, 916.152043315597}],

Offset[{0., 0.}, {671.6722303602205, 897.847956684403}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {574.3277696397795, 916.152043315597}],

Offset[{0., 0.}, {671.6722303602205, 897.847956684403}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {691.5, 896.}],

Offset[{0., 0.}, {745., 896.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {691.5, 896.}],

Offset[{0., 0.}, {745., 896.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{0., 0.}, {577.7046279585992, 878.8394112888133}],

Offset[{0., 0.}, {576.2953720414008, 880.1605887111867}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{0., 0.}, {567.5634436079583, 896.8962773673985}],

Offset[{0., 0.}, {565.9365563920417, 908.1037226326015}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1897.8105526824286`, 490.1768174963999}],

Offset[{0., 0.}, {1928.1894473175714`, 461.8231825036001}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1897.8105526824286`, 490.1768174963999}],

Offset[{0., 0.}, {1928.1894473175714`, 461.8231825036001}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1942.590204561205, 447.94812086885565`}],

Offset[{0., 0.}, {2020.909795438795, 370.05187913114435`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1942.590204561205, 447.94812086885565`}],

Offset[{0., 0.}, {2020.909795438795, 370.05187913114435`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {647.9010770927206, 1136.0179515453422`}],

Offset[{0., 0.}, {647.5989229072794, 1130.9820484546578`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {649.3721621461056, 1111.2854312111867`}],

Offset[{0., 0.}, {655.1278378538944, 1087.7145687888133`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {1139.6846623944389`, 815.246516207034}],

Offset[{0., 0.}, {1101.8153376055611`, 768.753483792966}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {814.9618970039705, 583.8961203404562}],

Offset[{0., 0.}, {775.5381029960295, 544.1038796595438}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0., 0.}, {583.8421805162279, 775.0167614792467}],

Offset[{0., 0.}, {577.6578194837721, 768.9832385207533}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0., 0.}, {596.2171989726694, 787.6519655537252}],

Offset[{0., 0.}, {597.7828010273306, 789.3480344462748}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{0., 0.}, {1050.8437690699946`, 394.99877952034694`}],

Offset[{0., 0.}, {1049.6562309300054`, 471.00122047965306`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {816.5045882085462, 705.3028912664076}],

Offset[{0., 0.}, {803.4954117914538, 705.6971087335924}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {783.5029730935695, 705.7561700754529}],

Offset[{0., 0.}, {762.4970269064305, 705.2438299245471}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0., 0.}, {569.7129751457999, 752.0310185134654}],

Offset[{0., 0.}, {560.7870248542001, 638.9689814865346}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {1020.9950467482436`, 650.8926114369258}],

Offset[{0., 0.}, {988.0049532517564, 640.1073885630742}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1030.793990516019, 663.9956775446435}],

Offset[{0., 0.}, {1031.706009483981, 695.0043224553565}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1710.7826600459077`, 989.0023621117608}],

Offset[{0., 0.}, {1709.7173399540923`, 939.9976378882392}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1703.2344308817535`, 922.2062432919372}],

Offset[{0., 0.}, {1674.7655691182465`, 886.7937567080628}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1654.4995713581516`, 946.0925886236865}],

Offset[{0., 0.}, {1742.5004286418484`, 946.9074113763135}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1654.4995713581516`, 946.0925886236865}],

Offset[{0., 0.}, {1742.5004286418484`, 946.9074113763135}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1564.8609962069386`, 1019.2312678556885`}],

Offset[{0., 0.}, {1637.1390037930614`, 952.7687321443115}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1564.8609962069386`, 1019.2312678556885`}],

Offset[{0., 0.}, {1637.1390037930614`, 952.7687321443115}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1711.1470429244187`, 1008.9989188604758`}],

Offset[{0., 0.}, {1712.3529570755813`, 1091.001081139524}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1739.2198265921966`, 1038.8397551889834`}],

Offset[{0., 0.}, {1716.7801734078034`, 1007.1602448110166`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1762.054026409829, 944.0469372915074}],

Offset[{0., 0.}, {1797.945973590171, 932.9530627084926}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1762.054026409829, 944.0469372915074}],

Offset[{0., 0.}, {1797.945973590171, 932.9530627084926}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1514.185094079743, 630.9151035941965}],

Offset[{0., 0.}, {1472.314905920257, 639.0848964058035}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1514.185094079743, 630.9151035941965}],

Offset[{0., 0.}, {1472.314905920257, 639.0848964058035}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1544.022148421434, 627.6651901052377}],

Offset[{0., 0.}, {1533.977851578566, 628.3348098947623}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1544.022148421434, 627.6651901052377}],

Offset[{0., 0.}, {1533.977851578566, 628.3348098947623}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{-0.03550047272645613, 2.999789945385543}, {

1328.5007001820481`, 748.8816650909118}],

Offset[{-0.03550047272645613, 2.999789945385543}, {

1263.9992998179519`, 748.1183349090882}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0., 0.}, {1328.5007001820481`, 748.8816650909118}],

Offset[{0., 0.}, {1263.9992998179519`, 748.1183349090882}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0.03550047272645613, -2.999789945385543}, {

1328.5007001820481`, 748.8816650909118}],

Offset[{0.03550047272645613, -2.999789945385543}, {

1263.9992998179519`, 748.1183349090882}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {1105.944271909999, 456.4721359549996}],

Offset[{0., 0.}, {1242.055728090001, 524.5278640450005}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1854.0305469265809`, 533.8886421892057}],

Offset[{0., 0.}, {1883.4694530734191`, 504.11135781079435`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1854.0305469265809`, 533.8886421892057}],

Offset[{0., 0.}, {1883.4694530734191`, 504.11135781079435`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{0., 0.}, {595.3177872040262, 863.4018439966447}],

Offset[{0., 0.}, {592.6822127959738, 865.5981560033553}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {1375.5, 1139.}],

Offset[{0., 0.}, {1375.5, 1117.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{-1.068850229172617, 1.0524063794930383`}, {

1548.9839574700463`, 777.8743318055159}],

Offset[{-1.068850229172617, 1.0524063794930383`}, {

1499.0160425299537`, 727.1256681944841}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{1.068850229172617, -1.0524063794930383`}, {

1548.9839574700463`, 777.8743318055159}],

Offset[{1.068850229172617, -1.0524063794930383`}, {

1499.0160425299537`, 727.1256681944841}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1660.8261804841754`, 872.5880974712221}],

Offset[{0., 0.}, {1563.6738195158246`, 791.4119025287779}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{0., -1.5}, {1284.5, 623.}],

Offset[{0., -1.5}, {1350.5, 623.}]}]}, {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 1.5}, {1284.5, 623.}],

Offset[{0., 1.5}, {1350.5, 623.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1252.749921911602, 798.0031235359188}],

Offset[{0., 0.}, {1253.750078088398, 757.9968764640812}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 0.}, {303.07468171810285`, 1234.2138732103094`}],

Offset[{0., 0.}, {292.92531828189715`, 1244.7861267896906`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 0.}, {277.9296967434157, 1257.905099943842}],

Offset[{0., 0.}, {273.5703032565843, 1261.094900056158}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {786.2469370907413, 48.11573689968667}],

Offset[{0., 0.}, {771.2530629092587, 33.88426310031333}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {664.8480344462748, 1071.2171989726694`}],

Offset[{0., 0.}, {669.6519655537252, 1066.7828010273306`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1459.607136707891, 448.0005739301787}],

Offset[{0., 0.}, {1460.892863292109, 327.9994260698213}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1459.607136707891, 448.0005739301787}],

Offset[{0., 0.}, {1460.892863292109, 327.9994260698213}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1454.3005305310426`, 449.45801444385563`}],

Offset[{0., 0.}, {1380.6994694689574`, 328.54198555614437`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1454.3005305310426`, 449.45801444385563`}],

Offset[{0., 0.}, {1380.6994694689574`, 328.54198555614437`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {459.50264131013586`, 703.229824337698}],

Offset[{0., 0.}, {392.49735868986414`, 704.770175662302}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {317., 749.}],

Offset[{0., 0.}, {317., 766.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {287.9289321881345, 534.9289321881346}],

Offset[{0., 0.}, {280.0710678118655, 527.0710678118654}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 0.}, {386.3059011569011, 1150.387553756535}],

Offset[{0., 0.}, {375.1940988430989, 1159.612446243465}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {196.25415516277792`, 1005.9967697359314`}],

Offset[{0., 0.}, {197.24584483722208`, 1045.0032302640686`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{1.49652553902231, 0.10203583220606659`}, {562.3197611186263,

1075.9768369268154`}],

Offset[{1.49652553902231, 0.10203583220606659`}, {562.1802388813737,

1078.0231630731846`}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{-1.49652553902231, -0.10203583220606659`}, {562.3197611186263,

1075.9768369268154`}],

Offset[{-1.49652553902231, -0.10203583220606659`}, {562.1802388813737,

1078.0231630731846`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{-1.49652553902231, -0.10203583220606659`}, {562.3197611186263,

1075.9768369268154`}],

Offset[{-1.49652553902231, -0.10203583220606659`}, {562.1802388813737,

1078.0231630731846`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{1.5, 0.}, {563., 1051.}],

Offset[{1.5, 0.}, {563., 1056.}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{-1.5, 0.}, {563., 1051.}],

Offset[{-1.5, 0.}, {563., 1056.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{-1.5, 0.}, {563., 1051.}],

Offset[{-1.5, 0.}, {563., 1056.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 0.}, {587., 1107.}],

Offset[{0., 0.}, {537.5, 1107.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 0.}, {329.2260634749054, 1208.8622042689572`}],

Offset[{0., 0.}, {317.2739365250946, 1220.1377957310428`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 0.}, {360.97476864640123`, 1173.5776880235342`}],

Offset[{0., 0.}, {343.02523135359877`, 1194.4223119764658`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1375.5, 50.}],

Offset[{0., 0.}, {1375.5, 43.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1375.5, 50.}],

Offset[{0., 0.}, {1375.5, 43.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {742.5, 705.}],

Offset[{0., 0.}, {709., 705.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {1377., 1273.}],

Offset[{0., 0.}, {1377., 1268.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1003.1954890063272`, 266.672065083737}],

Offset[{0., 0.}, {997.3045109936728, 260.327934916263}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{0., 0.}, {972.9389034781661, 645.311089307356}],

Offset[{0., 0.}, {938.5610965218339, 696.688910692644}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{0., 0.}, {928.9844216206651, 714.1583366546234}],

Offset[{0., 0.}, {908.5155783793349, 760.8416633453766}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1022., 705.}],

Offset[{0., 0.}, {943., 705.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.086, 0.584, 0.827}],

LineBox[{

Offset[{0., 0.}, {1023.48311424484, 796.8751621562991}],

Offset[{0., 0.}, {940.01688575516, 712.1248378437009}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0., 0.}, {657.8657317487066, 839.9552589992443}],

Offset[{0., 0.}, {630.6342682512934, 824.0447410007557}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{0., 0.}, {656.6739158074179, 846.856897800173}],

Offset[{0., 0.}, {612.8260841925821, 855.143102199827}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {660.5, 384.}],

Offset[{0., 0.}, {660.5, 377.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1375.9407477507077`, 138.00971765062437`}],

Offset[{0., 0.}, {1376.5592522492923`, 123.99028234937562`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1375.9407477507077`, 138.00971765062437`}],

Offset[{0., 0.}, {1376.5592522492923`, 123.99028234937562`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.086, 0.584, 0.827}],

LineBox[{

Offset[{0., 0.}, {886.1693045781866, 424.2381293981605}],

Offset[{0., 0.}, {903.8306954218134, 344.7618706018395}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.086, 0.584, 0.827}],

LineBox[{

Offset[{0., 0.}, {884., 529.}],

Offset[{0., 0.}, {884., 444.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{-1.1669117703055822`, 0.9425056606314319}, {

1773.2166289291238`, 806.2205881979628}],

Offset[{-1.1669117703055822`, 0.9425056606314319}, {

1764.7833710708762`, 795.7794118020372}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{1.1669117703055822`, -0.9425056606314319}, {

1773.2166289291238`, 806.2205881979628}],

Offset[{1.1669117703055822`, -0.9425056606314319}, {

1764.7833710708762`, 795.7794118020372}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{-0.6217225506077748, 1.365086469812723}, {1749.399423534582,

783.8551829959482}],

Offset[{-0.6217225506077748, 1.365086469812723}, {1717.100576465418,

769.1448170040518}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0.6217225506077748, -1.365086469812723}, {1749.399423534582,

783.8551829959482}],

Offset[{0.6217225506077748, -1.365086469812723}, {1717.100576465418,

769.1448170040518}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1808.226418571477, 578.0877735403263}],

Offset[{0., 0.}, {1839.773581428523, 547.9122264596737}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1808.226418571477, 578.0877735403263}],

Offset[{0., 0.}, {1839.773581428523, 547.9122264596737}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1578.5, 627.}],

Offset[{0., 0.}, {1564., 627.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1578.5, 627.}],

Offset[{0., 0.}, {1564., 627.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1588.5, 617.}],

Offset[{0., 0.}, {1588.5, 594.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1588.5, 617.}],

Offset[{0., 0.}, {1588.5, 594.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 0.}, {648.4824448420045, 1082.3224644558986`}],

Offset[{0., 0.}, {606.0175551579955, 1102.6775355441014`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1855.2332966884676`, 583.6065761852121}],

Offset[{0., 0.}, {1867.2667033115324`, 570.3934238147879}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1855.2332966884676`, 583.6065761852121}],

Offset[{0., 0.}, {1867.2667033115324`, 570.3934238147879}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1665.5172500686406`, 869.4552002196497}],

Offset[{0., 0.}, {1661.4827499313594`, 856.5447997803503}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1665.5172500686406`, 869.4552002196497}],

Offset[{0., 0.}, {1661.4827499313594`, 856.5447997803503}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {519., 535.}],

Offset[{0., 0.}, {479.5, 535.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {315.64019979269983`, 1076.907115796044}],

Offset[{0., 0.}, {311.35980020730017`, 1108.092884203956}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0., 0.}, {381.14610206948333`, 1105.703142852188}],

Offset[{0., 0.}, {319.85389793051667`, 1116.296857147812}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1768.0410679353229`, 1049.0946425395748`}],

Offset[{0., 0.}, {1754.9589320646771`, 1047.9053574604252`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1715.6703136785452`, 1163.8693855610434`}],

Offset[{0., 0.}, {1737.8296863214548`, 1192.1306144389566`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1463.2330350111527`, 575.0294551449842}],

Offset[{0., 0.}, {1461.7669649888473`, 555.9705448550158}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1463.2330350111527`, 575.0294551449842}],

Offset[{0., 0.}, {1461.7669649888473`, 555.9705448550158}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0., 0.}, {615.7929705563444, 811.1595417553824}],

Offset[{0., 0.}, {609.2070294436556, 802.8404582446176}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.565, 0.118, 0.365}],

LineBox[{

Offset[{0.48034169785427266`, 1.4210108561522234`}, {

254.52659429231852`, 1177.2022779856952`}],

Offset[{0.48034169785427266`, 1.4210108561522234`}, {

237.97340570768148`, 1182.7977220143048`}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{-0.48034169785427266`, -1.4210108561522234`}, {

254.52659429231852`, 1177.2022779856952`}],

Offset[{-0.48034169785427266`, -1.4210108561522234`}, {

237.97340570768148`, 1182.7977220143048`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {197.5, 1065.}],

Offset[{0., 0.}, {197.5, 1099.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {197.5, 1119.}],

Offset[{0., 0.}, {197.5, 1210.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1462.7205345866703`, 754.0024320709443}],

Offset[{0., 0.}, {1463.7794654133297`, 705.9975679290557}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1462.7205345866703`, 754.0024320709443}],

Offset[{0., 0.}, {1463.7794654133297`, 705.9975679290557}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.086, 0.584, 0.827}],

LineBox[{

Offset[{0., 0.}, {1482., 1081.}],

Offset[{0., 0.}, {1456.5, 1081.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1453.5331424170067`, 636.5733234716869}],

Offset[{0., 0.}, {1392.4668575829933`, 606.4266765283131}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1453.5331424170067`, 636.5733234716869}],

Offset[{0., 0.}, {1392.4668575829933`, 606.4266765283131}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1462.7677611041995`, 631.0035854432163}],

Offset[{0., 0.}, {1463.7322388958005`, 594.9964145567837}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1462.7677611041995`, 631.0035854432163}],

Offset[{0., 0.}, {1463.7322388958005`, 594.9964145567837}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1463.7273740982243`, 686.0037169348961}],

Offset[{0., 0.}, {1462.7726259017757`, 650.9962830651039}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1463.7273740982243`, 686.0037169348961}],

Offset[{0., 0.}, {1462.7726259017757`, 650.9962830651039}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {603., 706.}],

Offset[{0., 0.}, {549., 706.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {566.3614202394517, 952.1747715195951}],

Offset[{0., 0.}, {611.1385797605483, 715.8252284804049}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {566.3614202394517, 952.1747715195951}],

Offset[{0., 0.}, {611.1385797605483, 715.8252284804049}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{0.0742888888044208, -1.4981592575558196`}, {778.4877283837054,

537.4952592586961}],

Offset[{0.0742888888044208, -1.4981592575558196`}, {819.0122716162946,

539.5047407413039}]}]}, {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{-0.0742888888044208, 1.4981592575558196`}, {778.4877283837054,

537.4952592586961}],

Offset[{-0.0742888888044208, 1.4981592575558196`}, {819.0122716162946,

539.5047407413039}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{-0.027268220501272436`, -1.499752127569984}, {

838.9983475171332, 539.8182118633249}],

Offset[{-0.027268220501272436`, -1.499752127569984}, {

874.0016524828668, 539.1817881366751}]}]}, {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0.027268220501272436`, 1.499752127569984}, {838.9983475171332,

539.8182118633249}],

Offset[{0.027268220501272436`, 1.499752127569984}, {874.0016524828668,

539.1817881366751}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.925, 0.122, 0.18}],

LineBox[{

Offset[{0., 0.}, {1712.5, 1111.}],

Offset[{0., 0.}, {1712.5, 1118.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {661.4650527862839, 291.0143186772991}],

Offset[{0., 0.}, {661.0349472137161, 282.9856813227009}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {317., 1033.}],

Offset[{0., 0.}, {317., 1057.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {1058.0350383887267`, 475.789134457409}],

Offset[{0., 0.}, {1088.4649616112733`, 457.210865542591}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {459.50799041278214`, 534.6003196165112}],

Offset[{0., 0.}, {429.49200958721786`, 533.3996803834888}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{-0.9761870601839527, 1.138884903547945}, {1484.407433976347,

713.4920862654403}],

Offset[{-0.9761870601839527, 1.138884903547945}, {1471.592566023653,

702.5079137345597}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.953, 0.525, 0.631}],

LineBox[{

Offset[{0.9761870601839527, -1.138884903547945}, {1484.407433976347,

713.4920862654403}],

Offset[{0.9761870601839527, -1.138884903547945}, {1471.592566023653,

702.5079137345597}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{0.16122276447013772`, -1.4913105713487738`}, {

893.9420704756585, 540.0748184298009}],

Offset[{0.16122276447013772`, -1.4913105713487738`}, {

911.0579295243415, 541.9251815701991}]}]}, {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{-0.16122276447013772`, 1.4913105713487738`}, {

893.9420704756585, 540.0748184298009}],

Offset[{-0.16122276447013772`, 1.4913105713487738`}, {

911.0579295243415, 541.9251815701991}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.996, 0.863, 0.}],

LineBox[{

Offset[{-0.07078718710568963, -1.498328793737097}, {930.988858624914,

542.5280854192954}],

Offset[{-0.07078718710568963, -1.498328793737097}, {974.511141375086,

540.4719145807046}]}]}, {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0.07078718710568963, 1.498328793737097}, {930.988858624914,

542.5280854192954}],

Offset[{0.07078718710568963, 1.498328793737097}, {974.511141375086,

540.4719145807046}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {827.470783932918, 913.8300508118557}],

Offset[{0., 0.}, {831.029216067082, 910.1699491881443}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.086, 0.584, 0.827}],

LineBox[{

Offset[{0., 0.}, {913.1764310812042, 328.0358893649852}],

Offset[{0., 0.}, {983.3235689187958, 259.9641106350148}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.682, 0.388, 0.153}],

LineBox[{

Offset[{1.4968201589487276`, -0.09761870601839526}, {562.150791373456,

1027.9788010596583`}],

Offset[{1.4968201589487276`, -0.09761870601839526}, {562.349208626544,

1031.0211989403417`}]}]}, {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{-1.4968201589487276`, 0.09761870601839526}, {562.150791373456,

1027.9788010596583`}],

Offset[{-1.4968201589487276`, 0.09761870601839526}, {562.349208626544,

1031.0211989403417`}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{-1.4968201589487276`, 0.09761870601839526}, {562.150791373456,

1027.9788010596583`}],

Offset[{-1.4968201589487276`, 0.09761870601839526}, {562.349208626544,

1031.0211989403417`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {1704.7260477374011`, 774.4488748844624}],

Offset[{0., 0.}, {1671.7739522625989`, 869.5511251155376}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {317., 987.}],

Offset[{0., 0.}, {317., 1013.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {861.5879562647493, 124.28720567373527`}],

Offset[{0., 0.}, {849.9120437352507, 113.71279432626473`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1135.1914522061843`, 1275.9287683848693`}],

Offset[{0., 0.}, {1135.8085477938157`, 1281.0712316151307`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.024, 0.318, 0.627}],

LineBox[{

Offset[{0., 0.}, {1375.5, 1165.}],

Offset[{0., 0.}, {1375.5, 1159.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {2013.2260634749055`, 1045.1377957310428`}],

Offset[{0., 0.}, {2001.2739365250945`, 1033.8622042689572`}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {1810.8964446377756`, 920.5944610030831}],

Offset[{0., 0.}, {1817.1035553622244`, 903.4055389969169}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1810.8964446377756`, 920.5944610030831}],

Offset[{0., 0.}, {1817.1035553622244`, 903.4055389969169}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.541, 0.545, 0.553}],

LineBox[{

Offset[{0., 0.}, {991.9045531408152, 533.2789440721831}],

Offset[{0., 0.}, {1042.0954468591847`, 487.7210559278169}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.882, 0.471, 0.184}],

LineBox[{

Offset[{0., 0.}, {567.5, 1333.}],

Offset[{0., 0.}, {567.5, 1341.}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {567.5, 1333.}],

Offset[{0., 0.}, {567.5, 1341.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.008, 0.694, 0.69}],

LineBox[{

Offset[{0., 0.}, {1560.2580046626292`, 619.2001681016505}],

Offset[{0., 0.}, {1582.2419953373708`, 591.7998318983495}]}],

AbsoluteThickness[1],

GrayLevel[1],

LineBox[{

Offset[{0., 0.}, {1560.2580046626292`, 619.2001681016505}],

Offset[{0., 0.}, {1582.2419953373708`, 591.7998318983495}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0.133, 0.118, 0.122}],

LineBox[{

Offset[{0., 0.}, {1134., 1246.}],

Offset[{0., 0.}, {1134., 1256.}]}]}}, {

CapForm["Butt"], {

AbsoluteThickness[3],

RGBColor[{0., 0.604, 0.353}],

LineBox[{

Offset[{0., 0.}, {661.0165508542804, 263.0133501505789}],

Offset[{0., 0.}, {661.4834491457196, 253.98664984942107`}]}]}}}}]},

DynamicBox[GraphComputation`NetworkGraphicsBox[

1, Typeset`graph, Typeset`boxes], {

CachedValue :> Typeset`boxes, SingleEvaluation -> True,

SynchronousUpdating -> False, TrackedSymbols :> {}},

ImageSizeCache->{{5.580000000000002, 323.4200000000001}, {-109.6832,

103.45024887348359`}}]]],

DefaultBaseStyle->{

"NetworkGraphics",

FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},

FrameTicks->None,

ImageSize->{330., Automatic}]\);

In[2]:=

In[3]:=

In[4]:=

Out[4]=