New in Wolfram
Mathematica
8: Análisis de grafos y redes
◄
previous
|
next
►
Áreas de aplicación
Subterráneo de Londres
Las 10 estaciones más atravesadas —junto con las rutas más cortas— del subterráneo de Londres.
In[1]:=
X
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[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1387., 671.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Aldgate\"", LabelStyle -> "TextStyling"], Annotation[#, "Aldgate", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$3"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1590., 662.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"All Saints\"", LabelStyle -> "TextStyling"], Annotation[#, "All Saints", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$5"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{318.5, 931.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Alperton\"", LabelStyle -> "TextStyling"], Annotation[#, "Alperton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$6"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{28.5, 1311.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Amersham\"", LabelStyle -> "TextStyling"], Annotation[#, "Amersham", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$7"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1377., 89.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Anerley\"", LabelStyle -> "TextStyling"], Annotation[#, "Anerley", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$8"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1203.5, 841.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Angel\"", LabelStyle -> "TextStyling"], Annotation[#, "Angel", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$9"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1135.5, 1109.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Archway\"", LabelStyle -> "TextStyling"], Annotation[#, "Archway", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$10"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1377., 1230.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Arnos Grove\"", LabelStyle -> "TextStyling"], Annotation[#, "Arnos Grove", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$11"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1308.5, 1029.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Arsenal\"", LabelStyle -> "TextStyling"], Annotation[#, "Arsenal", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$12"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{866., 804.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Baker Street\"", LabelStyle -> "TextStyling"], Annotation[#, "Baker Street", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$13"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{893., 154.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Balham\"", LabelStyle -> "TextStyling"], Annotation[#, "Balham", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$14"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1233., 668.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Bank\"", LabelStyle -> "TextStyling"], Annotation[#, "Bank", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$15"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1218.5, 765.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Barbican\"", LabelStyle -> "TextStyling"], Annotation[#, "Barbican", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$16"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1820.5, 857.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Barking\"", LabelStyle -> "TextStyling"], Annotation[#, "Barking", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$17"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1838.5, 1112.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Barkingside\"", LabelStyle -> "TextStyling"], Annotation[#, "Barkingside", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$18"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{600., 535.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Barons Court\"", LabelStyle -> "TextStyling"], Annotation[#, "Barons Court", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$19"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{705., 761.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Bayswater\"", LabelStyle -> "TextStyling"], Annotation[#, "Bayswater", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$20"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1975.5, 464.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Beckton\"", LabelStyle -> "TextStyling"], Annotation[#, "Beckton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$21"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1898., 541.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Beckton Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Beckton Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$22"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1875.5, 907.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Becontree\"", LabelStyle -> "TextStyling"], Annotation[#, "Becontree", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$23"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1017., 1014.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Belsize Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Belsize Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$24"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1360.5, 529.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Bermondsey\"", LabelStyle -> "TextStyling"], Annotation[#, "Bermondsey", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$25"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1501., 786.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Bethnal Green\"", LabelStyle -> "TextStyling"], Annotation[#, "Bethnal Green", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$26"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1166.5, 566.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Blackfriars\"", LabelStyle -> "TextStyling"], Annotation[#, "Blackfriars", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$27"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1538., 1082.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Blackhorse Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Blackhorse Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$28"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1639.5, 627.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Blackwall\"", LabelStyle -> "TextStyling"], Annotation[#, "Blackwall", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$29"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{869., 705.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Bond Street\"", LabelStyle -> "TextStyling"], Annotation[#, "Bond Street", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$30"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1138.5, 398.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Borough\"", LabelStyle -> "TextStyling"], Annotation[#, "Borough", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$31"], TagBox[ 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[ 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[ 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[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1030.5, 209.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Brixton\"", LabelStyle -> "TextStyling"], Annotation[#, "Brixton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$37"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1375.5, 264.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Brockley\"", LabelStyle -> "TextStyling"], Annotation[#, "Brockley", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$38"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{712.5, 962.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Brondesbury\"", LabelStyle -> "TextStyling"], Annotation[#, "Brondesbury", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$40"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{680., 965.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Brondesbury Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Brondesbury Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$41"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{566., 1297.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Bushey\"", LabelStyle -> "TextStyling"], Annotation[#, "Bushey", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$44"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1165., 970.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Camden Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Camden Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$47"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1461., 529.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Canada Water\"", LabelStyle -> "TextStyling"], Annotation[#, "Canada Water", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$49"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1708., 629.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Canning Town\"", LabelStyle -> "TextStyling"], Annotation[#, "Canning Town", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$51"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1434.5, 949.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Canonbury\"", LabelStyle -> "TextStyling"], Annotation[#, "Canonbury", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$53"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{159., 1311.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Chaifont & Latimer\"", LabelStyle -> "TextStyling"], Annotation[#, "Chaifont & Latimer", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$56"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1044., 986.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Chalk Farm\"", LabelStyle -> "TextStyling"], Annotation[#, "Chalk Farm", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$57"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{77.5, 1338.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Chesham\"", LabelStyle -> "TextStyling"], Annotation[#, "Chesham", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$60"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1776.5, 1199.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Chigwell\"", LabelStyle -> "TextStyling"], Annotation[#, "Chigwell", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$61"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{357., 536.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Chiswick Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Chiswick Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$62"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{240.5, 1294.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Chorleywood\"", LabelStyle -> "TextStyling"], Annotation[#, "Chorleywood", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$63"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{970., 231.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Clapham North\"", LabelStyle -> "TextStyling"], Annotation[#, "Clapham North", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$66"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1377., 1313.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Cockfosters\"", LabelStyle -> "TextStyling"], Annotation[#, "Cockfosters", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$68"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{862., 1169.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Colindale\"", LabelStyle -> "TextStyling"], Annotation[#, "Colindale", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$69"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{819., 82.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Colliers Wood\"", LabelStyle -> "TextStyling"], Annotation[#, "Colliers Wood", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$70"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1588.5, 448.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Crossharbour\"", LabelStyle -> "TextStyling"], Annotation[#, "Crossharbour", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$72"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1273., 1116.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Crouch Hill\"", LabelStyle -> "TextStyling"], Annotation[#, "Crouch Hill", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$73"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{278.5, 1286.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Croxley\"", LabelStyle -> "TextStyling"], Annotation[#, "Croxley", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$74"], TagBox[ 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[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1923.5, 517.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Cyprus\"", LabelStyle -> "TextStyling"], Annotation[#, "Cyprus", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$78"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1908., 941.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Dagenham Heathway\"", LabelStyle -> "TextStyling"], Annotation[#, "Dagenham Heathway", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$80"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1461., 906.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Dalston Junction\"", LabelStyle -> "TextStyling"], Annotation[#, "Dalston Junction", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$81"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1473., 921.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Dalston Kingsland\"", LabelStyle -> "TextStyling"], Annotation[#, "Dalston Kingsland", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$82"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1707., 1311.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Debden\"", LabelStyle -> "TextStyling"], Annotation[#, "Debden", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$83"], TagBox[ 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[ 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[ 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[ 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[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{495., 706.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"East Acton\"", LabelStyle -> "TextStyling"], Annotation[#, "East Acton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$90"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{290.5, 1146.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Eastcote\"", LabelStyle -> "TextStyling"], Annotation[#, "Eastcote", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$91"], TagBox[ 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[ 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[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{799.5, 1233.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Edgware\"", LabelStyle -> "TextStyling"], Annotation[#, "Edgware", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$96"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{739., 848.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Edgware Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Edgware Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$97"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1954., 986.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Elm Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Elm Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$99"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1048., 521.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Embankment\"", LabelStyle -> "TextStyling"], Annotation[#, "Embankment", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$101"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1709.5, 1357.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Epping\"", LabelStyle -> "TextStyling"], Annotation[#, "Epping", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$102"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1081., 854.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Euston\"", LabelStyle -> "TextStyling"], Annotation[#, "Euston", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$103"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1840., 1138.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Fairlop\"", LabelStyle -> "TextStyling"], Annotation[#, "Fairlop", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$105"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1190.5, 795.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Farringdon\"", LabelStyle -> "TextStyling"], Annotation[#, "Farringdon", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$106"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{798., 939.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Finchley Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Finchley Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$108"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1350., 1070.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Finsbury Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Finsbury Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$110"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1949., 491.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Gallions Reach\"", LabelStyle -> "TextStyling"], Annotation[#, "Gallions Reach", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$113"], TagBox[ 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[ 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[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1032., 733.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Goodge Street\"", LabelStyle -> "TextStyling"], Annotation[#, "Goodge Street", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$118"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1806., 1202.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Grange Hill\"", LabelStyle -> "TextStyling"], Annotation[#, "Grange Hill", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$120"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{210.5, 916.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Greenford\"", LabelStyle -> "TextStyling"], Annotation[#, "Greenford", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$122"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{884., 638.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Green Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Green Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$123"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1590., 316.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Greenwich\"", LabelStyle -> "TextStyling"], Annotation[#, "Greenwich", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$124"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{385.5, 455.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Gunnesbury\"", LabelStyle -> "TextStyling"], Annotation[#, "Gunnesbury", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$125"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1603., 879.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Hackney Wick\"", LabelStyle -> "TextStyling"], Annotation[#, "Hackney Wick", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$127"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1462.5, 865.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Haggerston\"", LabelStyle -> "TextStyling"], Annotation[#, "Haggerston", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$128"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1840., 1166.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Hainault\"", LabelStyle -> "TextStyling"], Annotation[#, "Hainault", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$129"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{563., 535.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Hammersmith\"", LabelStyle -> "TextStyling"], Annotation[#, "Hammersmith", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$130"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{962.5, 1069.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Hampstead\"", LabelStyle -> "TextStyling"], Annotation[#, "Hampstead", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$131"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1023., 1044.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Hamstead Heath\"", LabelStyle -> "TextStyling"], Annotation[#, "Hamstead Heath", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$132"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{560., 996.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Harlesden\"", LabelStyle -> "TextStyling"], Annotation[#, "Harlesden", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$134"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{563., 1180.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Harrow & Wealdstone\"", LabelStyle -> "TextStyling"], Annotation[#, "Harrow & Wealdstone", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$137"], TagBox[ 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[ 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[ 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[ 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[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1134., 1320.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"High Barnet\"", LabelStyle -> "TextStyling"], Annotation[#, "High Barnet", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$144"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1135.5, 1141.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Highgate\"", LabelStyle -> "TextStyling"], Annotation[#, "Highgate", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$146"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{110., 1180.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Hillingdon\"", LabelStyle -> "TextStyling"], Annotation[#, "Hillingdon", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$148"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1084., 706.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Holborn\"", LabelStyle -> "TextStyling"], Annotation[#, "Holborn", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$149"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1285., 1005.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Holloway Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Holloway Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$151"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1541., 878.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Homerton\"", LabelStyle -> "TextStyling"], Annotation[#, "Homerton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$152"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1968.5, 1002.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Hornchurch\"", LabelStyle -> "TextStyling"], Annotation[#, "Hornchurch", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$154"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{178., 422.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Hounslow Central\"", LabelStyle -> "TextStyling"], Annotation[#, "Hounslow Central", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$155"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{199., 449.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Hounslow East\"", LabelStyle -> "TextStyling"], Annotation[#, "Hounslow East", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$156"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1462.5, 823.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Hoxton\"", LabelStyle -> "TextStyling"], Annotation[#, "Hoxton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$158"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{156., 1178.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Ickenham\"", LabelStyle -> "TextStyling"], Annotation[#, "Ickenham", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$160"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1029., 286.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Kennington\"", LabelStyle -> "TextStyling"], Annotation[#, "Kennington", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$163"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{662., 610.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Kensington (Olympia)\"", LabelStyle -> "TextStyling"], Annotation[#, "Kensington (Olympia)", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$166"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1134., 1042.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Kentish Town\"", LabelStyle -> "TextStyling"], Annotation[#, "Kentish Town", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$167"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{563., 1153.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Kenton\"", LabelStyle -> "TextStyling"], Annotation[#, "Kenton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$169"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{751., 986.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Kilburn\"", LabelStyle -> "TextStyling"], Annotation[#, "Kilburn", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$171"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{569., 887.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Kilburn Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Kilburn Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$173"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{647., 1121.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Kingsbury\"", LabelStyle -> "TextStyling"], Annotation[#, "Kingsbury", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$175"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{822., 591.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Knightsbridge\"", LabelStyle -> "TextStyling"], Annotation[#, "Knightsbridge", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$177"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{591., 782.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Ladbroke Grove\"", LabelStyle -> "TextStyling"], Annotation[#, "Ladbroke Grove", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$178"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1051., 385.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Lambeth North\"", LabelStyle -> "TextStyling"], Annotation[#, "Lambeth North", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$179"], TagBox[ 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[ 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[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1588.5, 236.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Lewisham\"", LabelStyle -> "TextStyling"], Annotation[#, "Lewisham", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$184"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1709.5, 930.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Leyton\"", LabelStyle -> "TextStyling"], Annotation[#, "Leyton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$185"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1711., 999.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Leytonstone\"", LabelStyle -> "TextStyling"], Annotation[#, "Leytonstone", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$187"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1524., 629.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Limehouse\"", LabelStyle -> "TextStyling"], Annotation[#, "Limehouse", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$189"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1251., 529.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"London Bridge\"", LabelStyle -> "TextStyling"], Annotation[#, "London Bridge", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$191"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1709.5, 1288.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Loughton\"", LabelStyle -> "TextStyling"], Annotation[#, "Loughton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$193"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{585., 872.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Maida Vale\"", LabelStyle -> "TextStyling"], Annotation[#, "Maida Vale", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$194"], TagBox[ 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[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{799.5, 847.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Marylebone\"", LabelStyle -> "TextStyling"], Annotation[#, "Marylebone", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$198"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1556., 785.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Mile End\"", LabelStyle -> "TextStyling"], Annotation[#, "Mile End", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$199"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1274.5, 623.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Monument\"", LabelStyle -> "TextStyling"], Annotation[#, "Monument", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$201"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1254., 748.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Moorgate\"", LabelStyle -> "TextStyling"], Annotation[#, "Moorgate", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$202"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{764., 27.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Morden\"", LabelStyle -> "TextStyling"], Annotation[#, "Morden", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$204"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1590., 421.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Mudchute\"", LabelStyle -> "TextStyling"], Annotation[#, "Mudchute", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$206"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{677., 1060.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Neasden\"", LabelStyle -> "TextStyling"], Annotation[#, "Neasden", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$207"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1840., 1084.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Newbury Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Newbury Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$208"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1461., 318.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"New Cross\"", LabelStyle -> "TextStyling"], Annotation[#, "New Cross", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$209"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{317., 739.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"North Ealing\"", LabelStyle -> "TextStyling"], Annotation[#, "North Ealing", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$212"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{273., 520.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Northfields\"", LabelStyle -> "TextStyling"], Annotation[#, "Northfields", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$213"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{394., 1144.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"North Harrow\"", LabelStyle -> "TextStyling"], Annotation[#, "North Harrow", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$215"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{196., 996.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Northolt\"", LabelStyle -> "TextStyling"], Annotation[#, "Northolt", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$216"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{563., 1066.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"North Wembley\"", LabelStyle -> "TextStyling"], Annotation[#, "North Wembley", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$217"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{310., 1227.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Northwood\"", LabelStyle -> "TextStyling"], Annotation[#, "Northwood", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$219"], TagBox[ 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[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1377., 1283.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Oakwood\"", LabelStyle -> "TextStyling"], Annotation[#, "Oakwood", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$223"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{222.5, 472.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Osterley\"", LabelStyle -> "TextStyling"], Annotation[#, "Osterley", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$225"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1010., 274.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Oval\"", LabelStyle -> "TextStyling"], Annotation[#, "Oval", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$226"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{933., 705.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Oxford Circus\"", LabelStyle -> "TextStyling"], Annotation[#, "Oxford Circus", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$227"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{666.5, 845.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Paddington\"", LabelStyle -> "TextStyling"], Annotation[#, "Paddington", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$228"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{317., 776.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Park Royal\"", LabelStyle -> "TextStyling"], Annotation[#, "Park Royal", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$229"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1377., 114.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Penge West\"", LabelStyle -> "TextStyling"], Annotation[#, "Penge West", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$231"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{256.5, 872.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Perivale\"", LabelStyle -> "TextStyling"], Annotation[#, "Perivale", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$232"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{884., 434.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Pimlico\"", LabelStyle -> "TextStyling"], Annotation[#, "Pimlico", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$234"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{367.5, 1166.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Pinner\"", LabelStyle -> "TextStyling"], Annotation[#, "Pinner", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$235"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1758.5, 788.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Plaistow\"", LabelStyle -> "TextStyling"], Annotation[#, "Plaistow", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$236"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1847., 541.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Pontoon Dock\"", LabelStyle -> "TextStyling"], Annotation[#, "Pontoon Dock", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$237"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1588.5, 627.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Poplar\"", LabelStyle -> "TextStyling"], Annotation[#, "Poplar", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$238"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{597., 1107.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Preston Road\"", LabelStyle -> "TextStyling"], Annotation[#, "Preston Road", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$239"], TagBox[ 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[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{648.5, 1146.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Queensbury\"", LabelStyle -> "TextStyling"], Annotation[#, "Queensbury", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$243"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{752.5, 705.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Queensway\"", LabelStyle -> "TextStyling"], Annotation[#, "Queensway", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$245"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{529., 535.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Ravenscourt Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Ravenscourt Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$246"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{310., 1118.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Rayners Lane\"", LabelStyle -> "TextStyling"], Annotation[#, "Rayners Lane", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$247"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1778., 1050.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Redbridge\"", LabelStyle -> "TextStyling"], Annotation[#, "Redbridge", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$248"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{387., 382.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Richmond\"", LabelStyle -> "TextStyling"], Annotation[#, "Richmond", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$250"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{265.5, 1267.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Rickmansworth\"", LabelStyle -> "TextStyling"], Annotation[#, "Rickmansworth", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$251"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1744., 1200.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Roding Valley\"", LabelStyle -> "TextStyling"], Annotation[#, "Roding Valley", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$252"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1461., 546.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Rotherhithe\"", LabelStyle -> "TextStyling"], Annotation[#, "Rotherhithe", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$253"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1874., 563.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Royal Albert\"", LabelStyle -> "TextStyling"], Annotation[#, "Royal Albert", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$254"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{622., 819.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Royal Oak\"", LabelStyle -> "TextStyling"], Annotation[#, "Royal Oak", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$255"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1795., 630.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Royal Victoria\"", LabelStyle -> "TextStyling"], Annotation[#, "Royal Victoria", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$256"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{228.5, 1186.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Ruislip\"", LabelStyle -> "TextStyling"], Annotation[#, "Ruislip", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$257"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{264., 1174.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Ruislip Manor\"", LabelStyle -> "TextStyling"], Annotation[#, "Ruislip Manor", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$259"], TagBox[ 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[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1462.5, 641.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Shadwell\"", LabelStyle -> "TextStyling"], Annotation[#, "Shadwell", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$263"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{829., 540.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Sloane Square\"", LabelStyle -> "TextStyling"], Annotation[#, "Sloane Square", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$266"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1712.5, 1101.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Snaresbrook\"", LabelStyle -> "TextStyling"], Annotation[#, "Snaresbrook", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$267"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{437., 604.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"South Acton\"", LabelStyle -> "TextStyling"], Annotation[#, "South Acton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$268"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{295., 542.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"South Ealing\"", LabelStyle -> "TextStyling"], Annotation[#, "South Ealing", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$269"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{662., 301.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Southfields\"", LabelStyle -> "TextStyling"], Annotation[#, "Southfields", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$270"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1377., 1258.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Southgate\"", LabelStyle -> "TextStyling"], Annotation[#, "Southgate", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$271"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{755., 896.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"South Hampstead\"", LabelStyle -> "TextStyling"], Annotation[#, "South Hampstead", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$272"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{317., 1067.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"South Harrow\"", LabelStyle -> "TextStyling"], Annotation[#, "South Harrow", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$273"], TagBox[ 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[ 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[ 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[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1097., 452.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Southwark\"", LabelStyle -> "TextStyling"], Annotation[#, "Southwark", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$279"], TagBox[ 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[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{645.5, 1203.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Stanmore\"", LabelStyle -> "TextStyling"], Annotation[#, "Stanmore", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$283"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1492., 720.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Stepney Green\"", LabelStyle -> "TextStyling"], Annotation[#, "Stepney Green", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$284"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{990.5, 253.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Stockwell\"", LabelStyle -> "TextStyling"], Annotation[#, "Stockwell", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$287"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1668.5, 879.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Stratford\"", LabelStyle -> "TextStyling"], Annotation[#, "Stratford", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$290"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{317., 1023.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Sudbury Hill\"", LabelStyle -> "TextStyling"], Annotation[#, "Sudbury Hill", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$291"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{317., 977.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Sudbury Town\"", LabelStyle -> "TextStyling"], Annotation[#, "Sudbury Town", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$292"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1375.5, 148.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Sydenham\"", LabelStyle -> "TextStyling"], Annotation[#, "Sydenham", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$295"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1100., 543.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Temple\"", LabelStyle -> "TextStyling"], Annotation[#, "Temple", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$296"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{869., 131.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Tooting Bec\"", LabelStyle -> "TextStyling"], Annotation[#, "Tooting Bec", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$298"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1492., 1081.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Tottenham Hale\"", LabelStyle -> "TextStyling"], Annotation[#, "Tottenham Hale", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$301"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1137., 1291.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Totteridge & Whetstone\"", LabelStyle -> "TextStyling"], Annotation[#, "Totteridge & Whetstone", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$302"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1134., 1075.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Tufnell Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Tufnell Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$305"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{2020.5, 1052.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Upminster\"", LabelStyle -> "TextStyling"], Annotation[#, "Upminster", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$308"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1994., 1027.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Upminster Bridge\"", LabelStyle -> "TextStyling"], Annotation[#, "Upminster Bridge", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$309"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1847.5, 884.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Upney\"", LabelStyle -> "TextStyling"], Annotation[#, "Upney", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$310"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1229., 1075.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Upper Holloway\"", LabelStyle -> "TextStyling"], Annotation[#, "Upper Holloway", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$311"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{34.5, 1180.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Uxbridge\"", LabelStyle -> "TextStyling"], Annotation[#, "Uxbridge", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$313"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{906., 335.}, 10.], GrayLevel[0.5], StripOnInput -> False]}, "\"Vauxhall\"", LabelStyle -> "TextStyling"], Annotation[#, "Vauxhall", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$314"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{884., 539.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Victoria\"", LabelStyle -> "TextStyling"], Annotation[#, "Victoria", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$315"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1745., 1047.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Wanstead\"", LabelStyle -> "TextStyling"], Annotation[#, "Wanstead", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$318"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1464., 585.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Wapping\"", LabelStyle -> "TextStyling"], Annotation[#, "Wapping", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$320"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{603., 857.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Warwick Avenue\"", LabelStyle -> "TextStyling"], Annotation[#, "Warwick Avenue", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$322"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1049.5, 481.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Waterloo\"", LabelStyle -> "TextStyling"], Annotation[#, "Waterloo", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$323"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{276., 1311.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Watford\"", LabelStyle -> "TextStyling"], Annotation[#, "Watford", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$324"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{563., 1041.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Wembley Central\"", LabelStyle -> "TextStyling"], Annotation[#, "Wembley Central", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$327"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{603., 795.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Westbourne Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Westbourne Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$330"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{662., 478.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"West Brompton\"", LabelStyle -> "TextStyling"], Annotation[#, "West Brompton", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$331"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1554., 627.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Westferry\"", LabelStyle -> "TextStyling"], Annotation[#, "Westferry", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$333"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1134., 1236.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"West Finchley\"", LabelStyle -> "TextStyling"], Annotation[#, "West Finchley", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$334"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1708., 765.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"West Ham\"", LabelStyle -> "TextStyling"], Annotation[#, "West Ham", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$335"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{391., 1104.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"West Harrow\"", LabelStyle -> "TextStyling"], Annotation[#, "West Harrow", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$337"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{984.5, 540.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Westminster\"", LabelStyle -> "TextStyling"], Annotation[#, "Westminster", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$340"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1801., 585.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"West Silvertown\"", LabelStyle -> "TextStyling"], Annotation[#, "West Silvertown", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$342"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1464., 696.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Whitechapel\"", LabelStyle -> "TextStyling"], Annotation[#, "Whitechapel", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$343"], TagBox[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{539., 706.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"White City\"", LabelStyle -> "TextStyling"], Annotation[#, "White City", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$344"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{662., 244.}, 10.], GrayLevel[1], StripOnInput -> False]}, "\"Wimbeldon\"", LabelStyle -> "TextStyling"], Annotation[#, "Wimbeldon", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$347"], TagBox[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1709.5, 1156.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Woodford\"", LabelStyle -> "TextStyling"], Annotation[#, "Woodford", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$349"], TagBox[ 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[ 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[ TagBox[ TooltipBox[{ StyleBox[ DiskBox[{1134., 1266.}, 10.], GrayLevel[0], StripOnInput -> False]}, "\"Woodside Park\"", LabelStyle -> "TextStyling"], Annotation[#, "Woodside Park", "Tooltip"]& ], "DynamicName", BoxID -> "VertexID$352"], TagBox[ 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"], { Absolute