Wolfram
Mathematica
8의 신기능: 그래프 및 네트워크 분석
◄
이전
|
다음
►
응용 분야
런던의 지하철
런던 지하철의 최단 경로상에서 가장 왕래가 왕성한 10개의 역을 살펴 봅니다.
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"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {1261., 529.}], Offset[{0., 0.}, {1350.5, 529.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1491.2495563447203`, 783.7798989831056}], Offset[{0., 0.}, {1348.2504436552797`, 751.2201010168944}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1546.0016524828668`, 785.1817881366751}], Offset[{0., 0.}, {1510.9983475171332`, 785.8182118633249}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{1.0135869427760194`, -1.105731210301112}, { 1173.8715414020073`, 572.7572462851734}], Offset[{1.0135869427760194`, -1.105731210301112}, { 1183.1284585979927`, 581.2427537148266}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-1.0135869427760194`, 1.105731210301112}, { 1173.8715414020073`, 572.7572462851734}], Offset[{-1.0135869427760194`, 1.105731210301112}, { 1183.1284585979927`, 581.2427537148266}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0.49029974499219275`, -1.4176057844339487`}, { 1109.4507052295596`, 546.2686649666147}], Offset[{0.49029974499219275`, -1.4176057844339487`}, { 1157.0492947704404`, 562.7313350333853}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.49029974499219275`, 1.4176057844339487`}, { 1109.4507052295596`, 546.2686649666147}], Offset[{-0.49029974499219275`, 1.4176057844339487`}, { 1157.0492947704404`, 562.7313350333853}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1512.201030927835, 1110.5773195876288`}], Offset[{0., 0.}, {1531.298969072165, 1089.4226804123712`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1512.201030927835, 1110.5773195876288`}], Offset[{0., 0.}, {1531.298969072165, 1089.4226804123712`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {1528.002362111761, 1081.7826600459077`}], Offset[{0., 0.}, {1501.997637888239, 1081.2173399540923`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {1606.5, 1082.}], Offset[{0., 0.}, {1548., 1082.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1541.288476470546, 1072.5561701358683`}], Offset[{0., 0.}, {1554.211523529454, 1035.4438298641317`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1541.288476470546, 1072.5561701358683`}], Offset[{0., 0.}, {1554.211523529454, 1035.4438298641317`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1649.5, 627.}], Offset[{0., 0.}, {1668., 627.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1649.5, 627.}], Offset[{0., 0.}, {1668., 627.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1598.5, 627.}], Offset[{0., 0.}, {1629.5, 627.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1598.5, 627.}], Offset[{0., 0.}, {1629.5, 627.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {871.1847234485073, 695.2415685966677}], Offset[{0., 0.}, {881.8152765514927, 647.7584314033323}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {859., 705.}], Offset[{0., 0.}, {836.5, 705.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {923., 705.}], Offset[{0., 0.}, {879., 705.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1131.2404731609417`, 391.12255352089215`}], Offset[{0., 0.}, {1079.2595268390583`, 341.87744647910785`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1244.4849353577067`, 521.4135691720851}], Offset[{0., 0.}, {1145.0150646422933`, 405.58643082791497`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {265.71800007307195`, 513.1463530099501}], Offset[{0., 0.}, {254.78199992692802`, 502.8536469900499}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {240.28612678969048`, 489.07468171810285`}], Offset[{0., 0.}, {229.71387321030952`, 478.92531828189715`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1376.4452998037748`, 1192.015396467946}], Offset[{0., 0.}, {1376.0547001962252`, 1184.984603532054}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.5, 731.}], Offset[{0., 0.}, {1588.5, 727.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.5, 731.}], Offset[{0., 0.}, {1588.5, 727.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1652.9893846525829`, 838.6553539024827}], Offset[{0., 0.}, {1594.0106153474171`, 749.3446460975173}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1652.9893846525829`, 838.6553539024827}], Offset[{0., 0.}, {1594.0106153474171`, 749.3446460975173}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0.13787538632556517`, 1.4936500185269561`}, { 1668.5423332098203`, 759.9191692421705}], Offset[{0.13787538632556517`, 1.4936500185269561`}, { 1623.4576667901797`, 764.0808307578295}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{-0.13787538632556517`, -1.4936500185269561`}, { 1668.5423332098203`, 759.9191692421705}], Offset[{-0.13787538632556517`, -1.4936500185269561`}, { 1623.4576667901797`, 764.0808307578295}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0.492780937411909, 1.4167451950592385`}, {1604.0550320329385`, 768.2852062494127}], Offset[{0.492780937411909, 1.4167451950592385`}, {1565.4449679670615`, 781.7147937505873}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{-0.492780937411909, -1.4167451950592385`}, { 1604.0550320329385`, 768.2852062494127}], Offset[{-0.492780937411909, -1.4167451950592385`}, { 1565.4449679670615`, 781.7147937505873}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {920.2426936402134, 1110.6151450607188`}], Offset[{0., 0.}, {927.7573063597866, 1102.3848549392812`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {892.5710678118654, 1138.9289321881345`}], Offset[{0., 0.}, {906.4289321881346, 1125.0710678118655`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {997.2267279399631, 245.60059926604058`}], Offset[{0., 0.}, {1023.7732720600369`, 216.39940073395942`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1375.5, 254.}], Offset[{0., 0.}, {1375.5, 212.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1375.5, 254.}], Offset[{0., 0.}, {1375.5, 212.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1375.5, 310.}], Offset[{0., 0.}, {1375.5, 274.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1375.5, 310.}], Offset[{0., 0.}, {1375.5, 274.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.2989637274734639, 1.4699049934111974`}, { 1698.2006333772588`, 763.0069084835102}], Offset[{-0.2989637274734639, 1.4699049934111974`}, { 1688.2993666227412`, 760.9930915164898}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0.2989637274734639, -1.4699049934111974`}, { 1698.2006333772588`, 763.0069084835102}], Offset[{0.2989637274734639, -1.4699049934111974`}, { 1688.2993666227412`, 760.9930915164898}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {702.5423332098203, 962.9191692421705}], Offset[{0., 0.}, {689.9576667901797, 964.0808307578295}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {702.5423332098203, 962.9191692421705}], Offset[{0., 0.}, {689.9576667901797, 964.0808307578295}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {764.5, 962.}], Offset[{0., 0.}, {722.5, 962.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {764.5, 962.}], Offset[{0., 0.}, {722.5, 962.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {670.0014120305069, 964.8319565047144}], Offset[{0., 0.}, {630.4985879694931, 964.1680434952856}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {670.0014120305069, 964.8319565047144}], Offset[{0., 0.}, {630.4985879694931, 964.1680434952856}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1711.536758051398, 1266.953500135553}], Offset[{0., 0.}, {1710.463241948602, 1278.046499864447}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1712.5, 1138.}], Offset[{0., 0.}, {1712.5, 1247.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {843.2332966884675, 1189.6065761852121`}], Offset[{0., 0.}, {855.2667033115325, 1176.3934238147879`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {806.667259309091, 1226.0264504019656`}], Offset[{0., 0.}, {829.332740690909, 1203.9735495980344`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {567.000623830561, 1276.9875233887785`}], Offset[{0., 0.}, {566.499376169439, 1287.0124766112215`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {567.000623830561, 1276.9875233887785`}], Offset[{0., 0.}, {566.499376169439, 1287.0124766112215`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {566.5759653509667, 1306.9833994167561`}], Offset[{0., 0.}, {566.9240346490333, 1313.0166005832439`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {566.5759653509667, 1306.9833994167561`}], Offset[{0., 0.}, {566.9240346490333, 1313.0166005832439`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1278.1063663935236`, 997.7558426508214}], Offset[{0., 0.}, {1262.3936336064764`, 981.2441573491786}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1249.6294457887363`, 965.904532548851}], Offset[{0., 0.}, {1151.8705542112637`, 831.095467451149}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1174.7676538974465`, 967.8568860646952}], Offset[{0., 0.}, {1273.7323461025535`, 946.1431139353048}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1174.7676538974465`, 967.8568860646952}], Offset[{0., 0.}, {1273.7323461025535`, 946.1431139353048}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1293.4892008607806`, 944.4646139935247}], Offset[{0., 0.}, {1316.5107991392194`, 945.5353860064753}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1293.4892008607806`, 944.4646139935247}], Offset[{0., 0.}, {1316.5107991392194`, 945.5353860064753}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1114.6638924556844`, 1019.0229916953334`}], Offset[{0., 0.}, {1157.8361075443156`, 976.9770083046666}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1114.6638924556844`, 1019.0229916953334`}], Offset[{0., 0.}, {1157.8361075443156`, 976.9770083046666}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1049.620199389564, 977.7287631625285}], Offset[{0., 0.}, {1064.879800610436, 955.2712368374715}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1071.621904366079, 937.0631327575854}], Offset[{0., 0.}, {1079.878095633921, 863.9368672424146}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1076.0570955677385`, 955.3137650226008}], Offset[{0., 0.}, {1128.4429044322615`, 1033.6862349773992`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1066.988765584116, 937.6367082243096}], Offset[{0., 0.}, {1059.011234415884, 916.3632917756904}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {1470.9987983657732`, 528.8449798702981}], Offset[{0., 0.}, {1580.0012016342268`, 527.1550201297019}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1461., 536.}], Offset[{0., 0.}, {1461., 539.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1461., 536.}], Offset[{0., 0.}, {1461., 539.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1460.7887795271815`, 519.0022309532645}], Offset[{0., 0.}, {1459.7112204728185`, 467.99776904673547`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1460.7887795271815`, 519.0022309532645}], Offset[{0., 0.}, {1459.7112204728185`, 467.99776904673547`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1589.3762171384483`, 517.0194742151712}], Offset[{0., 0.}, {1589.1237828615517`, 512.9805257848288}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1589.3762171384483`, 517.0194742151712}], Offset[{0., 0.}, {1589.1237828615517`, 512.9805257848288}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {1599.898065734717, 528.4241821201032}], Offset[{0., 0.}, {1649.601934265283, 535.5758178798968}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.7630668208824`, 574.0034608064715}], Offset[{0., 0.}, {1589.7369331791176`, 536.9965391935285}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.7630668208824`, 574.0034608064715}], Offset[{0., 0.}, {1589.7369331791176`, 536.9965391935285}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1687.977851578566, 627.6651901052377}], Offset[{0., 0.}, {1698.022148421434, 628.3348098947623}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1687.977851578566, 627.6651901052377}], Offset[{0., 0.}, {1698.022148421434, 628.3348098947623}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {1664.1634076439916`, 545.8460516133448}], Offset[{0., 0.}, {1703.3365923560084`, 620.1539483866552}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1717.9993394762039`, 629.1149349365081}], Offset[{0., 0.}, {1785.0006605237961`, 629.8850650634919}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1717.9993394762039`, 629.1149349365081}], Offset[{0., 0.}, {1785.0006605237961`, 629.8850650634919}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {1708., 639.}], Offset[{0., 0.}, {1708., 755.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1717.0393565553275`, 624.7233151781246}], Offset[{0., 0.}, {1791.9606434446725`, 589.2766848218754}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1717.0393565553275`, 624.7233151781246}], Offset[{0., 0.}, {1791.9606434446725`, 589.2766848218754}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0.8764570887676137, -1.2173015121772413`}, { 1198.6153434145149`, 593.8430472584507}], Offset[{0.8764570887676137, -1.2173015121772413`}, { 1207.3846565854851`, 600.1569527415493}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.8764570887676137, 1.2173015121772413`}, { 1198.6153434145149`, 593.8430472584507}], Offset[{-0.8764570887676137, 1.2173015121772413`}, { 1207.3846565854851`, 600.1569527415493}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0.4153072430150909, -1.4413604316406097`}, { 1225.1090695442708`, 608.7687149534339}], Offset[{0.4153072430150909, -1.4413604316406097`}, { 1264.8909304557292`, 620.2312850465661}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.4153072430150909, 1.4413604316406097`}, { 1225.1090695442708`, 608.7687149534339}], Offset[{-0.4153072430150909, 1.4413604316406097`}, { 1264.8909304557292`, 620.2312850465661}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1442.5873608430318`, 943.1182830232495}], Offset[{0., 0.}, {1464.9126391569682`, 926.8817169767505}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1442.5873608430318`, 943.1182830232495}], Offset[{0., 0.}, {1464.9126391569682`, 926.8817169767505}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1336.496144206527, 946.2776706724036}], Offset[{0., 0.}, {1424.503855793473, 948.7223293275964}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1336.496144206527, 946.2776706724036}], Offset[{0., 0.}, {1424.503855793473, 948.7223293275964}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {648.5, 1165.}], Offset[{0., 0.}, {648.5, 1156.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {646.5653312363427, 1193.0569084608019`}], Offset[{0., 0.}, {647.4346687636573, 1184.9430915391981`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {567.5, 1250.}], Offset[{0., 0.}, {567.5, 1257.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {567.5, 1250.}], Offset[{0., 0.}, {567.5, 1257.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {149.5073594011777, 1314.144801179978}], Offset[{0., 0.}, {86.9926405988223, 1334.855198820022}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {230.71069573932726`, 1296.04194076603}], Offset[{0., 0.}, {168.78930426067274`, 1308.95805923397}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1134.5, 706.}], Offset[{0., 0.}, {1094., 706.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1166.6137934294513`, 694.5864291977025}], Offset[{0., 0.}, {1153.3862065705487`, 701.4135708022975}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.4468845591801178`, 0.39563249665081346`}, { 1045.362450022328, 530.6458970612008}], Offset[{1.4468845591801178`, 0.39563249665081346`}, { 1033.137549977672, 575.3541029387992}]}]}, { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{-1.4468845591801178`, -0.39563249665081346`}, { 1045.362450022328, 530.6458970612008}], Offset[{-1.4468845591801178`, -0.39563249665081346`}, { 1033.137549977672, 575.3541029387992}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1030.5, 595.}], Offset[{0., 0.}, {1030.5, 644.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {1023.4289321881346`, 592.0710678118654}], Offset[{0., 0.}, {985.5710678118654, 629.9289321881346}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1786.4486883729062`, 1200.0117310209735`}], Offset[{0., 0.}, {1796.0513116270938`, 1200.9882689790265`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1753.9952696307666`, 1199.6924532421303`}], Offset[{0., 0.}, {1766.5047303692334`, 1199.3075467578697`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {409.5115001315837, 533.479447993684}], Offset[{0., 0.}, {366.9884998684163, 535.520552006316}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {258.70591968501697`, 1274.3376067401816`}], Offset[{0., 0.}, {247.29408031498306`, 1286.6623932598184`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {962.3508880188294, 224.5586425421722}], Offset[{0., 0.}, {949.1491119811706, 213.4413574578278}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {935.0405775853383, 199.36613714630886`}], Offset[{0., 0.}, {925.9594224146617, 188.63386285369114`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {719.5354459792011, 384.89348890989794`}], Offset[{0., 0.}, {804.4645540207989, 299.10651109010206`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {719.5354459792011, 384.89348890989794`}], Offset[{0., 0.}, {804.4645540207989, 299.10651109010206`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {983.6827440076976, 245.68392039850465`}], Offset[{0., 0.}, {976.8172559923024, 238.31607960149535`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1377., 1303.}], Offset[{0., 0.}, {1377., 1293.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {869.1466876599352, 1162.0053695243187`}], Offset[{0., 0.}, {878.3533123400648, 1152.9946304756813`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {812.1337646703628, 74.72986847450183}], Offset[{0., 0.}, {800.3662353296372, 62.27013152549817}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {835.6508999123212, 99.71372331097993}], Offset[{0., 0.}, {825.8491000876788, 89.28627668902007}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1077.647294608796, 698.2771032499089}], Offset[{0., 0.}, {1064.852705391204, 682.7228967500911}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1050.5, 669.}], Offset[{0., 0.}, {1038.5, 660.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1589.0547001962252`, 438.0153964679459}], Offset[{0., 0.}, {1589.4452998037748`, 430.9846035320541}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1589.0547001962252`, 438.0153964679459}], Offset[{0., 0.}, {1589.4452998037748`, 430.9846035320541}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.5, 465.}], Offset[{0., 0.}, {1588.5, 458.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.5, 465.}], Offset[{0., 0.}, {1588.5, 458.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1282.9677590827791`, 1116.8023583162608`}], Offset[{0., 0.}, {1424.5322409172209`, 1128.1976416837392`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1282.9677590827791`, 1116.8023583162608`}], Offset[{0., 0.}, {1424.5322409172209`, 1128.1976416837392`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1236.3160796014954`, 1081.8172559923025`}], Offset[{0., 0.}, {1265.6839203985046`, 1109.1827440076975`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1236.3160796014954`, 1081.8172559923025`}], Offset[{0., 0.}, {1265.6839203985046`, 1109.1827440076975`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {283.8459034408884, 1261.7652377346394`}], Offset[{0., 0.}, {280.6540965591116, 1276.2347622653606`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {277.50496280979, 1295.9503719021}], Offset[{0., 0.}, {276.99503719021, 1301.0496280979}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1369.9147726379229`, 139.70510787810326`}], Offset[{0., 0.}, {1330.5852273620771`, 81.29489212189675}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1369.9147726379229`, 139.70510787810326`}], Offset[{0., 0.}, {1330.5852273620771`, 81.29489212189675}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1831.5710678118655`, 607.9289321881346}], Offset[{0., 0.}, {1841.4289321881345`, 598.0710678118654}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1831.5710678118655`, 607.9289321881346}], Offset[{0., 0.}, {1841.4289321881345`, 598.0710678118654}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1803.913851302068, 625.4675332362366}], Offset[{0., 0.}, {1815.586148697932, 619.5324667637634}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1803.913851302068, 625.4675332362366}], Offset[{0., 0.}, {1815.586148697932, 619.5324667637634}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.9993761694388`, 336.01247661122153`}], Offset[{0., 0.}, {1589.5006238305612`, 325.98752338877847`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.9993761694388`, 336.01247661122153`}], Offset[{0., 0.}, {1589.5006238305612`, 325.98752338877847`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.5, 381.}], Offset[{0., 0.}, {1588.5, 356.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.5, 381.}], Offset[{0., 0.}, {1588.5, 356.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1930.5020866689247`, 509.8606175140376}], Offset[{0., 0.}, {1941.9979133310753`, 498.1393824859624}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1930.5020866689247`, 509.8606175140376}], Offset[{0., 0.}, {1941.9979133310753`, 498.1393824859624}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {1918.1361704520443`, 953.2862672145992}], Offset[{0., 0.}, {1914.3638295479557`, 948.7137327854008}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {1946.3710439942608`, 979.5347830459839}], Offset[{0., 0.}, {1932.1289560057392`, 967.4652169540161}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1466.7530495244557`, 913.1913119055697}], Offset[{0., 0.}, {1467.2469504755443`, 913.8086880944303}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1466.7530495244557`, 913.1913119055697}], Offset[{0., 0.}, {1467.2469504755443`, 913.8086880944303}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1461.3656090585073`, 896.0066857341352}], Offset[{0., 0.}, {1462.1343909414927`, 874.9933142658648}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1461.3656090585073`, 896.0066857341352}], Offset[{0., 0.}, {1462.1343909414927`, 874.9933142658648}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1480.2530629092587`, 914.1157368996867}], Offset[{0., 0.}, {1495.2469370907413`, 899.8842631003133}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1480.2530629092587`, 914.1157368996867}], Offset[{0., 0.}, {1495.2469370907413`, 899.8842631003133}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1708.4194081923158`, 1297.9414446306946`}], Offset[{0., 0.}, {1708.0805918076842`, 1301.0585553693054`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1708.0805918076842`, 1320.9414446306946`}], Offset[{0., 0.}, {1708.4194081923158`, 1324.0585553693054`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.5, 279.}], Offset[{0., 0.}, {1588.5, 274.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.5, 279.}], Offset[{0., 0.}, {1588.5, 274.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1589.4452998037748`, 306.0153964679459}], Offset[{0., 0.}, {1589.0547001962252`, 298.9846035320541}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1589.4452998037748`, 306.0153964679459}], Offset[{0., 0.}, {1589.0547001962252`, 298.9846035320541}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.5, 707.}], Offset[{0., 0.}, {1588.5, 700.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.5, 707.}], Offset[{0., 0.}, {1588.5, 700.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {684.4120437352507, 1053.2872056737353`}], Offset[{0., 0.}, {696.0879562647493, 1042.7127943262647`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {710.7335554414357, 1029.095242533175}], Offset[{0., 0.}, {718.2664445585643, 1021.904757466825}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {311.37112205406066`, 637.1078189983956}], Offset[{0., 0.}, {285.62887794593934`, 693.8921810016044}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {372.50196001569896`, 704.8020190102119}], Offset[{0., 0.}, {291.49803998430104`, 703.1979809897881}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {315.63512279797027`, 637.9990870497995}], Offset[{0., 0.}, {316.86487720202973`, 729.0009129502005}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.24461489538608305`, 1.4799201170858025`}, { 727.6338658860947, 543.3692340307595}], Offset[{-0.24461489538608305`, 1.4799201170858025`}, { 686.8661341139053, 536.6307659692405}]}]}, { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0.24461489538608305`, -1.4799201170858025`}, { 727.6338658860947, 543.3692340307595}], Offset[{0.24461489538608305`, -1.4799201170858025`}, { 686.8661341139053, 536.6307659692405}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {679.5259617569963, 544.6757179166299}], Offset[{0., 0.}, {703.9740382430037, 638.3242820833701}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {675.0388386486181, 544.8058067569092}], Offset[{0., 0.}, {663.9611613513819, 600.1941932430908}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {674.4550670072035, 525.3292546273735}], Offset[{0., 0.}, {664.5449329927965, 487.67074537262647`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {667.003371544263, 535.259652687162}], Offset[{0., 0.}, {648.496628455737, 535.740347312838}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {485.06849395677125`, 704.831587524326}], Offset[{0., 0.}, {479.43150604322875`, 704.168412475674}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {529., 706.}], Offset[{0., 0.}, {505., 706.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{1.2309096234821704`, 0.8572406306393687}, {304.2850624624042, 1126.2060641565479`}], Offset[{1.2309096234821704`, 0.8572406306393687}, {296.2149375375958, 1137.7939358434521`}]}]}, { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{-1.2309096234821704`, -0.8572406306393687}, { 304.2850624624042, 1126.2060641565479`}], Offset[{-1.2309096234821704`, -0.8572406306393687}, { 296.2149375375958, 1137.7939358434521`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{1.0894400997146536`, 1.03107723722994}, {283.6261517518004, 1153.2629339980977`}], Offset[{1.0894400997146536`, 1.03107723722994}, {270.8738482481996, 1166.7370660019023`}]}]}, { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{-1.0894400997146536`, -1.03107723722994}, {283.6261517518004, 1153.2629339980977`}], Offset[{-1.0894400997146536`, -1.03107723722994}, {270.8738482481996, 1166.7370660019023`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1135.5, 1179.}], Offset[{0., 0.}, {1135.5, 1185.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1135.5, 1151.}], Offset[{0., 0.}, {1135.5, 1159.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-1.1473667971755763`, 0.9662036186741695}, { 1789.0586425421723`, 825.3508880188294}], Offset[{-1.1473667971755763`, 0.9662036186741695}, { 1785.9413574578277`, 821.6491119811706}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{1.1473667971755763`, -0.9662036186741695}, { 1789.0586425421723`, 825.3508880188294}], Offset[{1.1473667971755763`, -0.9662036186741695}, { 1785.9413574578277`, 821.6491119811706}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {660.5, 357.}], Offset[{0., 0.}, {660.5, 337.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {661.0759653509667, 317.0166005832439}], Offset[{0., 0.}, {661.4240346490333, 310.9833994167561}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {789.50136574707, 847.1652666818666}], Offset[{0., 0.}, {748.99863425293, 847.8347333181334}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{-0.1860476848497111, 4.496152383868019}, {729.0085502580711, 847.586560700334}], Offset[{-0.1860476848497111, 4.496152383868019}, {676.4914497419289, 845.413439299666}]}]}, { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{-0.0620158949499037, 1.4987174612893395`}, {729.0085502580711, 847.586560700334}], Offset[{-0.0620158949499037, 1.4987174612893395`}, {676.4914497419289, 845.413439299666}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0.0620158949499037, -1.4987174612893395`}, {729.0085502580711, 847.586560700334}], Offset[{0.0620158949499037, -1.4987174612893395`}, {676.4914497419289, 845.413439299666}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0.1860476848497111, -4.496152383868019}, {729.0085502580711, 847.586560700334}], Offset[{0.1860476848497111, -4.496152383868019}, {676.4914497419289, 845.413439299666}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1065.4041010959127`, 327.48374310929574`}], Offset[{0., 0.}, {1035.5958989040873`, 293.51625689070426`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {1068.1276751564492`, 344.2198210560736}], Offset[{0., 0.}, {1054.8723248435508`, 375.7801789439264}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {1961.7848057526114`, 994.5901304856402}], Offset[{0., 0.}, {1960.7151942473886`, 993.4098695143598}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.5, 254.}], Offset[{0., 0.}, {1588.5, 246.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.5, 254.}], Offset[{0., 0.}, {1588.5, 246.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0.5844599862550469, -1.381450876602838}, {1057.2096725106856`, 524.896399908367}], Offset[{0.5844599862550469, -1.381450876602838}, {1090.7903274893144`, 539.103600091633}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.5844599862550469, 1.381450876602838}, {1057.2096725106856`, 524.896399908367}], Offset[{-0.5844599862550469, 1.381450876602838}, {1090.7903274893144`, 539.103600091633}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.4989464235637708`, 0.05621049088364142}, {1049.125263394109, 490.9929761570918}], Offset[{1.4989464235637708`, 0.05621049088364142}, {1048.374736605891, 511.0070238429082}]}]}, { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{-1.4989464235637708`, -0.05621049088364142}, { 1049.125263394109, 490.9929761570918}], Offset[{-1.4989464235637708`, -0.05621049088364142}, { 1048.374736605891, 511.0070238429082}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{-0.42998360958599874`, -1.4370504846689958`}, { 994.08033656446, 537.13344260276}], Offset[{-0.42998360958599874`, -1.4370504846689958`}, { 1038.41966343554, 523.86655739724}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0.42998360958599874`, 1.4370504846689958`}, {994.08033656446, 537.13344260276}], Offset[{0.42998360958599874`, 1.4370504846689958`}, {1038.41966343554, 523.86655739724}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1709.5, 1344.}], Offset[{0., 0.}, {1709.5, 1347.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{-0.6457087873224687, -1.3539055218051765`}, { 1090.0260368120346`, 849.6952747511835}], Offset[{-0.6457087873224687, -1.3539055218051765`}, { 1136.9739631879654`, 827.3047252488165}]}]}, { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0.6457087873224687, 1.3539055218051765`}, { 1090.0260368120346`, 849.6952747511835}], Offset[{0.6457087873224687, 1.3539055218051765`}, { 1136.9739631879654`, 827.3047252488165}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1076.6644000198387`, 863.0112470175901}], Offset[{0., 0.}, {1059.8355999801613`, 897.9887529824099}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {764.9180275952918, 894.722217303674}], Offset[{0., 0.}, {1071.0819724047083`, 855.277782696326}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {764.9180275952918, 894.722217303674}], Offset[{0., 0.}, {1071.0819724047083`, 855.277782696326}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{-1.055370194394121, 1.065923896338062}, {1073.8938406910795`, 846.9641987040392}], Offset[{-1.055370194394121, 1.065923896338062}, {1037.6061593089205`, 811.0358012959608}]}]}, { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{1.055370194394121, -1.065923896338062}, {1073.8938406910795`, 846.9641987040392}], Offset[{1.055370194394121, -1.065923896338062}, {1037.6061593089205`, 811.0358012959608}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0.16641005886756877`, 2.9953810596162374`}, { 1060.515396467946, 823.5547001962252}], Offset[{0.16641005886756877`, 2.9953810596162374`}, { 972.4846035320542, 828.4452998037748}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {1060.515396467946, 823.5547001962252}], Offset[{0., 0.}, {972.4846035320542, 828.4452998037748}]}]}, { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{-0.16641005886756877`, -2.9953810596162374`}, { 1060.515396467946, 823.5547001962252}], Offset[{-0.16641005886756877`, -2.9953810596162374`}, { 972.4846035320542, 828.4452998037748}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0., 3.}, {1136., 823.}], Offset[{0., 3.}, {1080.5, 823.}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {1136., 823.}], Offset[{0., 0.}, {1080.5, 823.}]}]}, { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., -3.}, {1136., 823.}], Offset[{0., -3.}, {1080.5, 823.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1840., 1156.}], Offset[{0., 0.}, {1840., 1148.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{1.5976830470241288`, 2.539174842591919}, {1182.036083858027, 800.3256101567471}], Offset[{1.5976830470241288`, 2.539174842591919}, {1154.463916141973, 817.6743898432529}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {1182.036083858027, 800.3256101567471}], Offset[{0., 0.}, {1154.463916141973, 817.6743898432529}]}]}, { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{-1.5976830470241288`, -2.539174842591919}, {1182.036083858027, 800.3256101567471}], Offset[{-1.5976830470241288`, -2.539174842591919}, {1154.463916141973, 817.6743898432529}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1129.6228223105013`, 1203.0906601959332`}], Offset[{0., 0.}, {1102.8771776894987`, 1239.9093398040668`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1135.1343909414927`, 1204.993314265865}], Offset[{0., 0.}, {1134.3656090585073`, 1226.006685734135}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {805.8086880944303, 932.7530495244557}], Offset[{0., 0.}, {812.6913119055697, 927.2469504755443}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {790.8910860764088, 946.0330180454034}], Offset[{0., 0.}, {664.6089139235912, 1070.9669819545966`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {781.6466876599352, 955.0053695243187}], Offset[{0., 0.}, {790.8533123400648, 945.9946304756813}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1013.6452790633318`, 1040.4659943128142`}], Offset[{0., 0.}, {942.3547209366682, 1013.5340056871858`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1013.6452790633318`, 1040.4659943128142`}], Offset[{0., 0.}, {942.3547209366682, 1013.5340056871858`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {923.4292482530198, 1007.1016019946054`}], Offset[{0., 0.}, {784.0707517469802, 964.8983980053946}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {923.4292482530198, 1007.1016019946054`}], Offset[{0., 0.}, {784.0707517469802, 964.8983980053946}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {1348.1379821905111`, 1060.1748847499307`}], Offset[{0., 0.}, {1328.3620178094889`, 955.8251152500694}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1369.8252708917605`, 1098.7660793331427`}], Offset[{0., 0.}, {1355.6747291082395`, 1078.2339206668573`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {1436.5643418357722`, 1079.8674379294662`}], Offset[{0., 0.}, {1359.9356581642278`, 1071.1325620705338`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1375.5, 192.}], Offset[{0., 0.}, {1375.5, 186.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1375.5, 192.}], Offset[{0., 0.}, {1375.5, 186.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1375.5, 166.}], Offset[{0., 0.}, {1375.5, 158.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1375.5, 166.}], Offset[{0., 0.}, {1375.5, 158.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {660.5, 411.}], Offset[{0., 0.}, {660.5, 404.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {661.7369331791177, 468.00346080647154`}], Offset[{0., 0.}, {660.7630668208823, 430.99653919352846`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1833.6617738906298`, 1076.265215595345}], Offset[{0., 0.}, {1816.8382261093702`, 1055.734784404655}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1800.5188813007712`, 1048.6142226891834`}], Offset[{0., 0.}, {1787.9811186992288`, 1049.3857773108166`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0., 0.}, {709.3820068874348, 638.4242996965874}], Offset[{0., 0.}, {734.6179931125652, 554.5757003034126}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0.7496340570653091, 2.904831971128073}, {758.8172267629064, 539.4987801902176}], Offset[{0.7496340570653091, 2.904831971128073}, {747.1827732370936, 542.5012198097824}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {758.8172267629064, 539.4987801902176}], Offset[{0., 0.}, {747.1827732370936, 542.5012198097824}]}]}, { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{-0.7496340570653091, -2.904831971128073}, {758.8172267629064, 539.4987801902176}], Offset[{-0.7496340570653091, -2.904831971128073}, {747.1827732370936, 542.5012198097824}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {941.827934916263, 1088.1954890063273`}], Offset[{0., 0.}, {955.172065083737, 1075.8045109936727`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {559.260503037265, 584.0289601780802}], Offset[{0., 0.}, {562.239496962735, 544.9710398219198}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {559.5718216160782, 619.0091710418233}], Offset[{0., 0.}, {558.9281783839218, 603.9908289581767}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1032., 715.}], Offset[{0., 0.}, {1032., 723.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1031.7887795271815`, 742.9977690467355}], Offset[{0., 0.}, {1030.7112204728185`, 794.0022309532645}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1063.5078331550255`, 1042.395729379999}], Offset[{0., 0.}, {1032.9921668449745`, 1043.604270620001}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1063.5078331550255`, 1042.395729379999}], Offset[{0., 0.}, {1032.9921668449745`, 1043.604270620001}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1082.5481870220099`, 1037.7420296367013`}], Offset[{0., 0.}, {1098.4518129779901`, 1030.2579703632987`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1082.5481870220099`, 1037.7420296367013`}], Offset[{0., 0.}, {1098.4518129779901`, 1030.2579703632987`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1083.2821477313855`, 1044.075954180937}], Offset[{0., 0.}, {1219.2178522686145`, 1072.924045819063}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1083.2821477313855`, 1044.075954180937}], Offset[{0., 0.}, {1219.2178522686145`, 1072.924045819063}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1812.8662353296372`, 1194.729868474502}], Offset[{0., 0.}, {1833.1337646703628`, 1173.270131525498}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {208.71655771348787`, 925.8396815807566}], Offset[{0., 0.}, {197.78344228651213`, 986.1603184192434}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {249.27358142852302`, 878.9122264596737}], Offset[{0., 0.}, {217.72641857147698`, 909.0877735403263}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {875.7141103130858, 632.4014258872202}], Offset[{0., 0.}, {855.2858896869142, 618.5985741127798}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {927.096813976761, 696.9282966621018}], Offset[{0., 0.}, {889.903186023239, 646.0717033378982}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {968.5005598477219, 637.1058141815056}], Offset[{0., 0.}, {893.9994401522781, 637.8941858184944}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {884., 628.}], Offset[{0., 0.}, {884., 549.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {891.159556278271, 631.0185421366114}], Offset[{0., 0.}, {977.340443721729, 546.9814578633886}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-1.5, 0.}, {385.5, 445.}], Offset[{-1.5, 0.}, {385.5, 425.}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{1.5, 0.}, {385.5, 445.}], Offset[{1.5, 0.}, {385.5, 425.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{1.5, 0.}, {385.5, 445.}], Offset[{1.5, 0.}, {385.5, 425.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {433.73325199292634`, 594.5486319795344}], Offset[{0., 0.}, {388.76674800707366`, 464.4513680204656}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {433.73325199292634`, 594.5486319795344}], Offset[{0., 0.}, {388.76674800707366`, 464.4513680204656}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {415.50414579486073`, 523.8330403529158}], Offset[{0., 0.}, {389.49585420513927`, 464.16695964708424`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1511.8177739198532`, 889.3696984727844}], Offset[{0., 0.}, {1531.6822260801468`, 881.6303015272156}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1511.8177739198532`, 889.3696984727844}], Offset[{0., 0.}, {1531.6822260801468`, 881.6303015272156}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1550.9986995253212`, 878.1612693471826}], Offset[{0., 0.}, {1593.0013004746788`, 878.8387306528174}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1550.9986995253212`, 878.1612693471826}], Offset[{0., 0.}, {1593.0013004746788`, 878.8387306528174}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1613., 879.}], Offset[{0., 0.}, {1658.5, 879.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1613., 879.}], Offset[{0., 0.}, {1658.5, 879.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1462.5, 855.}], Offset[{0., 0.}, {1462.5, 833.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1462.5, 855.}], Offset[{0., 0.}, {1462.5, 833.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {553., 535.}], Offset[{0., 0.}, {539., 535.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {553.0009710977068, 534.8606407121632}], Offset[{0., 0.}, {429.49902890229316`, 533.1393592878368}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {461.37912616571396`, 708.8353584437983}], Offset[{0., 0.}, {310.62087383428604`, 817.1646415562017}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {295.65564091583667`, 830.2907303287826}], Offset[{0., 0.}, {263.34435908416333`, 864.7092696712174}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.49652553902231, -0.10203583220606659`}, {560.6802388813737, 1005.9768369268154`}], Offset[{1.49652553902231, -0.10203583220606659`}, {560.8197611186263, 1008.0231630731846`}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{-1.49652553902231, 0.10203583220606659`}, {560.6802388813737, 1005.9768369268154`}], Offset[{-1.49652553902231, 0.10203583220606659`}, {560.8197611186263, 1008.0231630731846`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{-1.49652553902231, 0.10203583220606659`}, {560.6802388813737, 1005.9768369268154`}], Offset[{-1.49652553902231, 0.10203583220606659`}, {560.8197611186263, 1008.0231630731846`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.4870321489849407`, 0.19681307854212451`}, { 563.1879128097191, 971.9135476598996}], Offset[{1.4870321489849407`, 0.19681307854212451`}, { 561.3120871902809, 986.0864523401004}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{-1.4870321489849407`, -0.19681307854212451`}, { 563.1879128097191, 971.9135476598996}], Offset[{-1.4870321489849407`, -0.19681307854212451`}, { 561.3120871902809, 986.0864523401004}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{-1.4870321489849407`, -0.19681307854212451`}, { 563.1879128097191, 971.9135476598996}], Offset[{-1.4870321489849407`, -0.19681307854212451`}, { 561.3120871902809, 986.0864523401004}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1444.3821023728378`, 1127.4689700549125`}], Offset[{0., 0.}, {1495.6178976271622`, 1119.5310299450875`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1444.3821023728378`, 1127.4689700549125`}], Offset[{0., 0.}, {1495.6178976271622`, 1119.5310299450875`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {445.2010175753549, 1109.579147848501}], Offset[{0., 0.}, {402.2989824246451, 1138.420852151499}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {517.5082075614575, 1106.5949273335725`}], Offset[{0., 0.}, {463.4917924385424, 1104.4050726664275`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {443.5, 1104.}], Offset[{0., 0.}, {401., 1104.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {564.392548313991, 1189.9025657883803`}], Offset[{0., 0.}, {566.107451686009, 1202.0974342116197`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {564.392548313991, 1189.9025657883803`}], Offset[{0., 0.}, {566.107451686009, 1202.0974342116197`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.5, 0.}, {563., 1163.}], Offset[{1.5, 0.}, {563., 1170.}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{-1.5, 0.}, {563., 1163.}], Offset[{-1.5, 0.}, {563., 1170.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{-1.5, 0.}, {563., 1163.}], Offset[{-1.5, 0.}, {563., 1170.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {567.5, 1222.}], Offset[{0., 0.}, {567.5, 1230.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {567.5, 1222.}], Offset[{0., 0.}, {567.5, 1230.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {124.92893218813452`, 371.9289321881345}], Offset[{0., 0.}, {105.07106781186548`, 352.0710678118655}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {150.21800007307198`, 396.1463530099501}], Offset[{0., 0.}, {139.28199992692802`, 385.8536469900499}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.5, 493.}], Offset[{0., 0.}, {1588.5, 485.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.5, 493.}], Offset[{0., 0.}, {1588.5, 485.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1135.9710084891449`, 1300.9469179382654`}], Offset[{0., 0.}, {1135.0289915108551`, 1310.0530820617346`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {1318.2362739491766`, 940.3687628573338}], Offset[{0., 0.}, {1154.2637260508234`, 828.6312371426662}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{-1.4871814433138157`, -0.19568176885708102`}, { 700.3045451257138, 695.0854570445746}], Offset[{-1.4871814433138157`, -0.19568176885708102`}, { 705.1954548742862, 657.9145429554254}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{1.4871814433138157`, 0.19568176885708102`}, { 700.3045451257138, 695.0854570445746}], Offset[{1.4871814433138157`, 0.19568176885708102`}, { 705.1954548742862, 657.9145429554254}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0.0651558364144604, 1.4985842375325893`}, {146.0094384164494, 1178.4343722427632`}], Offset[{0.0651558364144604, 1.4985842375325893`}, {119.9905615835506, 1179.5656277572368`}]}]}, { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{-0.0651558364144604, -1.4985842375325893`}, { 146.0094384164494, 1178.4343722427632`}], Offset[{-0.0651558364144604, -1.4985842375325893`}, { 119.9905615835506, 1179.5656277572368`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 1.5}, {100., 1180.}], Offset[{0., 1.5}, {44.5, 1180.}]}]}, { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., -1.5}, {100., 1180.}], Offset[{0., -1.5}, {44.5, 1180.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1093.4533510622832`, 751.2116789935279}], Offset[{0., 0.}, {1086.0466489377168`, 715.7883210064721}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1074.0018485997016`, 705.8077278576866}], Offset[{0., 0.}, {1041.9981514002984`, 705.1922721423134}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {689., 705.}], Offset[{0., 0.}, {664.5, 705.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {644.5029019153252, 705.2408939297512}], Offset[{0., 0.}, {622.9970980846748, 705.7591060702488}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {1986.8592716085543`, 1019.9992858907394`}], Offset[{0., 0.}, {1975.6407283914457`, 1009.0007141092606`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {192.86059386485078`, 441.10647782623676`}], Offset[{0., 0.}, {184.13940613514922`, 429.89352217376324`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {170.66569703380068`, 415.20235334840066`}], Offset[{0., 0.}, {164.83430296619932`, 409.79764665159934`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {215.35331234006478`, 465.0053695243187}], Offset[{0., 0.}, {206.14668765993522`, 455.9946304756813}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1462.5, 813.}], Offset[{0., 0.}, {1462.5, 774.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1462.5, 813.}], Offset[{0., 0.}, {1462.5, 774.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {839.4928648307724, 606.3937210510798}], Offset[{0., 0.}, {829.5071351692276, 597.6062789489202}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{-0.16451868360696317`, 1.4909505701881036`}, { 218.56032953207932`, 1184.9032087759535`}], Offset[{-0.16451868360696317`, 1.4909505701881036`}, { 165.93967046792068`, 1179.0967912240465`}]}]}, { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0.16451868360696317`, -1.4909505701881036`}, { 218.56032953207932`, 1184.9032087759535`}], Offset[{0.16451868360696317`, -1.4909505701881036`}, { 165.93967046792068`, 1179.0967912240465`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {667.0636268328417, 469.37679390842794`}], Offset[{0., 0.}, {707.4363731671583, 400.62320609157206`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {667.0636268328417, 469.37679390842794`}], Offset[{0., 0.}, {707.4363731671583, 400.62320609157206`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1589.5006238305612`, 411.01247661122153`}], Offset[{0., 0.}, {1588.9993761694388`, 400.98752338877847`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1589.5006238305612`, 411.01247661122153`}], Offset[{0., 0.}, {1588.9993761694388`, 400.98752338877847`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1020.5451109696903`, 280.6600700861202}], Offset[{0., 0.}, {1018.4548890303097`, 279.3399299138798}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1030.0455204126783`, 295.94519416938016`}], Offset[{0., 0.}, {1048.4544795873217`, 471.05480583061984`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.49652553902231, 0.10203583220606659`}, {563.8197611186263, 927.9768369268154}], Offset[{1.49652553902231, 0.10203583220606659`}, {563.6802388813737, 930.0231630731846}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{-1.49652553902231, -0.10203583220606659`}, {563.8197611186263, 927.9768369268154}], Offset[{-1.49652553902231, -0.10203583220606659`}, {563.6802388813737, 930.0231630731846}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{-1.49652553902231, -0.10203583220606659`}, {563.8197611186263, 927.9768369268154}], Offset[{-1.49652553902231, -0.10203583220606659`}, {563.6802388813737, 930.0231630731846}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.49652553902231, -0.10203583220606659`}, {563.6802388813737, 949.9768369268154}], Offset[{1.49652553902231, -0.10203583220606659`}, {563.8197611186263, 952.0231630731846}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{-1.49652553902231, 0.10203583220606659`}, {563.6802388813737, 949.9768369268154}], Offset[{-1.49652553902231, 0.10203583220606659`}, {563.8197611186263, 952.0231630731846}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{-1.49652553902231, 0.10203583220606659`}, {563.6802388813737, 949.9768369268154}], Offset[{-1.49652553902231, 0.10203583220606659`}, {563.8197611186263, 952.0231630731846}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {610.5063714565244, 963.6430846948758}], Offset[{0., 0.}, {574.4936285434756, 962.3569153051242}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {610.5063714565244, 963.6430846948758}], Offset[{0., 0.}, {574.4936285434756, 962.3569153051242}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {617.5462057335105, 697.0931479506733}], Offset[{0., 0.}, {657.4537942664895, 618.9068520493267}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {617.5462057335105, 697.0931479506733}], Offset[{0., 0.}, {657.4537942664895, 618.9068520493267}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {662., 600.}], Offset[{0., 0.}, {662., 488.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {662., 600.}], Offset[{0., 0.}, {662., 488.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1134., 1052.}], Offset[{0., 0.}, {1134., 1065.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.4996007511721905`, -0.034606171180896705`}, { 561.7307078078726, 1097.997338341148}], Offset[{1.4996007511721905`, -0.034606171180896705`}, { 562.7692921921274, 1143.002661658852}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{-1.4996007511721905`, 0.034606171180896705`}, { 561.7307078078726, 1097.997338341148}], Offset[{-1.4996007511721905`, 0.034606171180896705`}, { 562.7692921921274, 1143.002661658852}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{-1.4996007511721905`, 0.034606171180896705`}, { 561.7307078078726, 1097.997338341148}], Offset[{-1.4996007511721905`, 0.034606171180896705`}, { 562.7692921921274, 1143.002661658852}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-1.4984528103154493`, -0.06811149137797497}, { 385.9540766091865, 405.010314597897}], Offset[{-1.4984528103154493`, -0.06811149137797497}, { 386.5459233908135, 391.989685402103}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{1.4984528103154493`, 0.06811149137797497}, {385.9540766091865, 405.010314597897}], Offset[{1.4984528103154493`, 0.06811149137797497}, {386.5459233908135, 391.989685402103}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{1.4984528103154493`, 0.06811149137797497}, {385.9540766091865, 405.010314597897}], Offset[{1.4984528103154493`, 0.06811149137797497}, {386.5459233908135, 391.989685402103}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {757.9962479260821, 978.854895735065}], Offset[{0., 0.}, {767.5037520739179, 969.145104264935}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {732.1033596569799, 1007.4902968606895`}], Offset[{0., 0.}, {744.3966403430201, 993.5097031393105}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {574.3277696397795, 916.152043315597}], Offset[{0., 0.}, {671.6722303602205, 897.847956684403}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {574.3277696397795, 916.152043315597}], Offset[{0., 0.}, {671.6722303602205, 897.847956684403}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {691.5, 896.}], Offset[{0., 0.}, {745., 896.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {691.5, 896.}], Offset[{0., 0.}, {745., 896.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {577.7046279585992, 878.8394112888133}], Offset[{0., 0.}, {576.2953720414008, 880.1605887111867}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {567.5634436079583, 896.8962773673985}], Offset[{0., 0.}, {565.9365563920417, 908.1037226326015}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1897.8105526824286`, 490.1768174963999}], Offset[{0., 0.}, {1928.1894473175714`, 461.8231825036001}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1897.8105526824286`, 490.1768174963999}], Offset[{0., 0.}, {1928.1894473175714`, 461.8231825036001}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1942.590204561205, 447.94812086885565`}], Offset[{0., 0.}, {2020.909795438795, 370.05187913114435`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1942.590204561205, 447.94812086885565`}], Offset[{0., 0.}, {2020.909795438795, 370.05187913114435`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {647.9010770927206, 1136.0179515453422`}], Offset[{0., 0.}, {647.5989229072794, 1130.9820484546578`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {649.3721621461056, 1111.2854312111867`}], Offset[{0., 0.}, {655.1278378538944, 1087.7145687888133`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1139.6846623944389`, 815.246516207034}], Offset[{0., 0.}, {1101.8153376055611`, 768.753483792966}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {814.9618970039705, 583.8961203404562}], Offset[{0., 0.}, {775.5381029960295, 544.1038796595438}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {583.8421805162279, 775.0167614792467}], Offset[{0., 0.}, {577.6578194837721, 768.9832385207533}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {596.2171989726694, 787.6519655537252}], Offset[{0., 0.}, {597.7828010273306, 789.3480344462748}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {1050.8437690699946`, 394.99877952034694`}], Offset[{0., 0.}, {1049.6562309300054`, 471.00122047965306`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {816.5045882085462, 705.3028912664076}], Offset[{0., 0.}, {803.4954117914538, 705.6971087335924}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {783.5029730935695, 705.7561700754529}], Offset[{0., 0.}, {762.4970269064305, 705.2438299245471}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {569.7129751457999, 752.0310185134654}], Offset[{0., 0.}, {560.7870248542001, 638.9689814865346}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1020.9950467482436`, 650.8926114369258}], Offset[{0., 0.}, {988.0049532517564, 640.1073885630742}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1030.793990516019, 663.9956775446435}], Offset[{0., 0.}, {1031.706009483981, 695.0043224553565}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1710.7826600459077`, 989.0023621117608}], Offset[{0., 0.}, {1709.7173399540923`, 939.9976378882392}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1703.2344308817535`, 922.2062432919372}], Offset[{0., 0.}, {1674.7655691182465`, 886.7937567080628}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1654.4995713581516`, 946.0925886236865}], Offset[{0., 0.}, {1742.5004286418484`, 946.9074113763135}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1654.4995713581516`, 946.0925886236865}], Offset[{0., 0.}, {1742.5004286418484`, 946.9074113763135}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1564.8609962069386`, 1019.2312678556885`}], Offset[{0., 0.}, {1637.1390037930614`, 952.7687321443115}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1564.8609962069386`, 1019.2312678556885`}], Offset[{0., 0.}, {1637.1390037930614`, 952.7687321443115}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1711.1470429244187`, 1008.9989188604758`}], Offset[{0., 0.}, {1712.3529570755813`, 1091.001081139524}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1739.2198265921966`, 1038.8397551889834`}], Offset[{0., 0.}, {1716.7801734078034`, 1007.1602448110166`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1762.054026409829, 944.0469372915074}], Offset[{0., 0.}, {1797.945973590171, 932.9530627084926}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1762.054026409829, 944.0469372915074}], Offset[{0., 0.}, {1797.945973590171, 932.9530627084926}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1514.185094079743, 630.9151035941965}], Offset[{0., 0.}, {1472.314905920257, 639.0848964058035}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1514.185094079743, 630.9151035941965}], Offset[{0., 0.}, {1472.314905920257, 639.0848964058035}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1544.022148421434, 627.6651901052377}], Offset[{0., 0.}, {1533.977851578566, 628.3348098947623}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1544.022148421434, 627.6651901052377}], Offset[{0., 0.}, {1533.977851578566, 628.3348098947623}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{-0.03550047272645613, 2.999789945385543}, { 1328.5007001820481`, 748.8816650909118}], Offset[{-0.03550047272645613, 2.999789945385543}, { 1263.9992998179519`, 748.1183349090882}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {1328.5007001820481`, 748.8816650909118}], Offset[{0., 0.}, {1263.9992998179519`, 748.1183349090882}]}]}, { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0.03550047272645613, -2.999789945385543}, { 1328.5007001820481`, 748.8816650909118}], Offset[{0.03550047272645613, -2.999789945385543}, { 1263.9992998179519`, 748.1183349090882}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {1105.944271909999, 456.4721359549996}], Offset[{0., 0.}, {1242.055728090001, 524.5278640450005}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1854.0305469265809`, 533.8886421892057}], Offset[{0., 0.}, {1883.4694530734191`, 504.11135781079435`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1854.0305469265809`, 533.8886421892057}], Offset[{0., 0.}, {1883.4694530734191`, 504.11135781079435`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {595.3177872040262, 863.4018439966447}], Offset[{0., 0.}, {592.6822127959738, 865.5981560033553}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1375.5, 1139.}], Offset[{0., 0.}, {1375.5, 1117.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-1.068850229172617, 1.0524063794930383`}, { 1548.9839574700463`, 777.8743318055159}], Offset[{-1.068850229172617, 1.0524063794930383`}, { 1499.0160425299537`, 727.1256681944841}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{1.068850229172617, -1.0524063794930383`}, { 1548.9839574700463`, 777.8743318055159}], Offset[{1.068850229172617, -1.0524063794930383`}, { 1499.0160425299537`, 727.1256681944841}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1660.8261804841754`, 872.5880974712221}], Offset[{0., 0.}, {1563.6738195158246`, 791.4119025287779}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0., -1.5}, {1284.5, 623.}], Offset[{0., -1.5}, {1350.5, 623.}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 1.5}, {1284.5, 623.}], Offset[{0., 1.5}, {1350.5, 623.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1252.749921911602, 798.0031235359188}], Offset[{0., 0.}, {1253.750078088398, 757.9968764640812}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {303.07468171810285`, 1234.2138732103094`}], Offset[{0., 0.}, {292.92531828189715`, 1244.7861267896906`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {277.9296967434157, 1257.905099943842}], Offset[{0., 0.}, {273.5703032565843, 1261.094900056158}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {786.2469370907413, 48.11573689968667}], Offset[{0., 0.}, {771.2530629092587, 33.88426310031333}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {664.8480344462748, 1071.2171989726694`}], Offset[{0., 0.}, {669.6519655537252, 1066.7828010273306`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1459.607136707891, 448.0005739301787}], Offset[{0., 0.}, {1460.892863292109, 327.9994260698213}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1459.607136707891, 448.0005739301787}], Offset[{0., 0.}, {1460.892863292109, 327.9994260698213}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1454.3005305310426`, 449.45801444385563`}], Offset[{0., 0.}, {1380.6994694689574`, 328.54198555614437`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1454.3005305310426`, 449.45801444385563`}], Offset[{0., 0.}, {1380.6994694689574`, 328.54198555614437`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {459.50264131013586`, 703.229824337698}], Offset[{0., 0.}, {392.49735868986414`, 704.770175662302}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {317., 749.}], Offset[{0., 0.}, {317., 766.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {287.9289321881345, 534.9289321881346}], Offset[{0., 0.}, {280.0710678118655, 527.0710678118654}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {386.3059011569011, 1150.387553756535}], Offset[{0., 0.}, {375.1940988430989, 1159.612446243465}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {196.25415516277792`, 1005.9967697359314`}], Offset[{0., 0.}, {197.24584483722208`, 1045.0032302640686`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.49652553902231, 0.10203583220606659`}, {562.3197611186263, 1075.9768369268154`}], Offset[{1.49652553902231, 0.10203583220606659`}, {562.1802388813737, 1078.0231630731846`}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{-1.49652553902231, -0.10203583220606659`}, {562.3197611186263, 1075.9768369268154`}], Offset[{-1.49652553902231, -0.10203583220606659`}, {562.1802388813737, 1078.0231630731846`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{-1.49652553902231, -0.10203583220606659`}, {562.3197611186263, 1075.9768369268154`}], Offset[{-1.49652553902231, -0.10203583220606659`}, {562.1802388813737, 1078.0231630731846`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.5, 0.}, {563., 1051.}], Offset[{1.5, 0.}, {563., 1056.}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{-1.5, 0.}, {563., 1051.}], Offset[{-1.5, 0.}, {563., 1056.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{-1.5, 0.}, {563., 1051.}], Offset[{-1.5, 0.}, {563., 1056.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {587., 1107.}], Offset[{0., 0.}, {537.5, 1107.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {329.2260634749054, 1208.8622042689572`}], Offset[{0., 0.}, {317.2739365250946, 1220.1377957310428`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {360.97476864640123`, 1173.5776880235342`}], Offset[{0., 0.}, {343.02523135359877`, 1194.4223119764658`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1375.5, 50.}], Offset[{0., 0.}, {1375.5, 43.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1375.5, 50.}], Offset[{0., 0.}, {1375.5, 43.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {742.5, 705.}], Offset[{0., 0.}, {709., 705.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1377., 1273.}], Offset[{0., 0.}, {1377., 1268.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1003.1954890063272`, 266.672065083737}], Offset[{0., 0.}, {997.3045109936728, 260.327934916263}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {972.9389034781661, 645.311089307356}], Offset[{0., 0.}, {938.5610965218339, 696.688910692644}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {928.9844216206651, 714.1583366546234}], Offset[{0., 0.}, {908.5155783793349, 760.8416633453766}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1022., 705.}], Offset[{0., 0.}, {943., 705.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {1023.48311424484, 796.8751621562991}], Offset[{0., 0.}, {940.01688575516, 712.1248378437009}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {657.8657317487066, 839.9552589992443}], Offset[{0., 0.}, {630.6342682512934, 824.0447410007557}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{0., 0.}, {656.6739158074179, 846.856897800173}], Offset[{0., 0.}, {612.8260841925821, 855.143102199827}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {660.5, 384.}], Offset[{0., 0.}, {660.5, 377.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1375.9407477507077`, 138.00971765062437`}], Offset[{0., 0.}, {1376.5592522492923`, 123.99028234937562`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1375.9407477507077`, 138.00971765062437`}], Offset[{0., 0.}, {1376.5592522492923`, 123.99028234937562`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {886.1693045781866, 424.2381293981605}], Offset[{0., 0.}, {903.8306954218134, 344.7618706018395}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {884., 529.}], Offset[{0., 0.}, {884., 444.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-1.1669117703055822`, 0.9425056606314319}, { 1773.2166289291238`, 806.2205881979628}], Offset[{-1.1669117703055822`, 0.9425056606314319}, { 1764.7833710708762`, 795.7794118020372}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{1.1669117703055822`, -0.9425056606314319}, { 1773.2166289291238`, 806.2205881979628}], Offset[{1.1669117703055822`, -0.9425056606314319}, { 1764.7833710708762`, 795.7794118020372}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.6217225506077748, 1.365086469812723}, {1749.399423534582, 783.8551829959482}], Offset[{-0.6217225506077748, 1.365086469812723}, {1717.100576465418, 769.1448170040518}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0.6217225506077748, -1.365086469812723}, {1749.399423534582, 783.8551829959482}], Offset[{0.6217225506077748, -1.365086469812723}, {1717.100576465418, 769.1448170040518}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1808.226418571477, 578.0877735403263}], Offset[{0., 0.}, {1839.773581428523, 547.9122264596737}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1808.226418571477, 578.0877735403263}], Offset[{0., 0.}, {1839.773581428523, 547.9122264596737}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1578.5, 627.}], Offset[{0., 0.}, {1564., 627.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1578.5, 627.}], Offset[{0., 0.}, {1564., 627.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1588.5, 617.}], Offset[{0., 0.}, {1588.5, 594.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1588.5, 617.}], Offset[{0., 0.}, {1588.5, 594.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {648.4824448420045, 1082.3224644558986`}], Offset[{0., 0.}, {606.0175551579955, 1102.6775355441014`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1855.2332966884676`, 583.6065761852121}], Offset[{0., 0.}, {1867.2667033115324`, 570.3934238147879}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1855.2332966884676`, 583.6065761852121}], Offset[{0., 0.}, {1867.2667033115324`, 570.3934238147879}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1665.5172500686406`, 869.4552002196497}], Offset[{0., 0.}, {1661.4827499313594`, 856.5447997803503}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1665.5172500686406`, 869.4552002196497}], Offset[{0., 0.}, {1661.4827499313594`, 856.5447997803503}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {519., 535.}], Offset[{0., 0.}, {479.5, 535.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {315.64019979269983`, 1076.907115796044}], Offset[{0., 0.}, {311.35980020730017`, 1108.092884203956}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0., 0.}, {381.14610206948333`, 1105.703142852188}], Offset[{0., 0.}, {319.85389793051667`, 1116.296857147812}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1768.0410679353229`, 1049.0946425395748`}], Offset[{0., 0.}, {1754.9589320646771`, 1047.9053574604252`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1715.6703136785452`, 1163.8693855610434`}], Offset[{0., 0.}, {1737.8296863214548`, 1192.1306144389566`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1463.2330350111527`, 575.0294551449842}], Offset[{0., 0.}, {1461.7669649888473`, 555.9705448550158}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1463.2330350111527`, 575.0294551449842}], Offset[{0., 0.}, {1461.7669649888473`, 555.9705448550158}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0., 0.}, {615.7929705563444, 811.1595417553824}], Offset[{0., 0.}, {609.2070294436556, 802.8404582446176}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.565, 0.118, 0.365}], LineBox[{ Offset[{0.48034169785427266`, 1.4210108561522234`}, { 254.52659429231852`, 1177.2022779856952`}], Offset[{0.48034169785427266`, 1.4210108561522234`}, { 237.97340570768148`, 1182.7977220143048`}]}]}, { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{-0.48034169785427266`, -1.4210108561522234`}, { 254.52659429231852`, 1177.2022779856952`}], Offset[{-0.48034169785427266`, -1.4210108561522234`}, { 237.97340570768148`, 1182.7977220143048`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {197.5, 1065.}], Offset[{0., 0.}, {197.5, 1099.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {197.5, 1119.}], Offset[{0., 0.}, {197.5, 1210.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1462.7205345866703`, 754.0024320709443}], Offset[{0., 0.}, {1463.7794654133297`, 705.9975679290557}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1462.7205345866703`, 754.0024320709443}], Offset[{0., 0.}, {1463.7794654133297`, 705.9975679290557}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {1482., 1081.}], Offset[{0., 0.}, {1456.5, 1081.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1453.5331424170067`, 636.5733234716869}], Offset[{0., 0.}, {1392.4668575829933`, 606.4266765283131}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1453.5331424170067`, 636.5733234716869}], Offset[{0., 0.}, {1392.4668575829933`, 606.4266765283131}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1462.7677611041995`, 631.0035854432163}], Offset[{0., 0.}, {1463.7322388958005`, 594.9964145567837}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1462.7677611041995`, 631.0035854432163}], Offset[{0., 0.}, {1463.7322388958005`, 594.9964145567837}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1463.7273740982243`, 686.0037169348961}], Offset[{0., 0.}, {1462.7726259017757`, 650.9962830651039}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1463.7273740982243`, 686.0037169348961}], Offset[{0., 0.}, {1462.7726259017757`, 650.9962830651039}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {603., 706.}], Offset[{0., 0.}, {549., 706.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {566.3614202394517, 952.1747715195951}], Offset[{0., 0.}, {611.1385797605483, 715.8252284804049}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {566.3614202394517, 952.1747715195951}], Offset[{0., 0.}, {611.1385797605483, 715.8252284804049}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0.0742888888044208, -1.4981592575558196`}, {778.4877283837054, 537.4952592586961}], Offset[{0.0742888888044208, -1.4981592575558196`}, {819.0122716162946, 539.5047407413039}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.0742888888044208, 1.4981592575558196`}, {778.4877283837054, 537.4952592586961}], Offset[{-0.0742888888044208, 1.4981592575558196`}, {819.0122716162946, 539.5047407413039}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{-0.027268220501272436`, -1.499752127569984}, { 838.9983475171332, 539.8182118633249}], Offset[{-0.027268220501272436`, -1.499752127569984}, { 874.0016524828668, 539.1817881366751}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0.027268220501272436`, 1.499752127569984}, {838.9983475171332, 539.8182118633249}], Offset[{0.027268220501272436`, 1.499752127569984}, {874.0016524828668, 539.1817881366751}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.925, 0.122, 0.18}], LineBox[{ Offset[{0., 0.}, {1712.5, 1111.}], Offset[{0., 0.}, {1712.5, 1118.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {661.4650527862839, 291.0143186772991}], Offset[{0., 0.}, {661.0349472137161, 282.9856813227009}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {317., 1033.}], Offset[{0., 0.}, {317., 1057.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {1058.0350383887267`, 475.789134457409}], Offset[{0., 0.}, {1088.4649616112733`, 457.210865542591}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {459.50799041278214`, 534.6003196165112}], Offset[{0., 0.}, {429.49200958721786`, 533.3996803834888}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.9761870601839527, 1.138884903547945}, {1484.407433976347, 713.4920862654403}], Offset[{-0.9761870601839527, 1.138884903547945}, {1471.592566023653, 702.5079137345597}]}]}, { AbsoluteThickness[3], RGBColor[{0.953, 0.525, 0.631}], LineBox[{ Offset[{0.9761870601839527, -1.138884903547945}, {1484.407433976347, 713.4920862654403}], Offset[{0.9761870601839527, -1.138884903547945}, {1471.592566023653, 702.5079137345597}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{0.16122276447013772`, -1.4913105713487738`}, { 893.9420704756585, 540.0748184298009}], Offset[{0.16122276447013772`, -1.4913105713487738`}, { 911.0579295243415, 541.9251815701991}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{-0.16122276447013772`, 1.4913105713487738`}, { 893.9420704756585, 540.0748184298009}], Offset[{-0.16122276447013772`, 1.4913105713487738`}, { 911.0579295243415, 541.9251815701991}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.996, 0.863, 0.}], LineBox[{ Offset[{-0.07078718710568963, -1.498328793737097}, {930.988858624914, 542.5280854192954}], Offset[{-0.07078718710568963, -1.498328793737097}, {974.511141375086, 540.4719145807046}]}]}, { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0.07078718710568963, 1.498328793737097}, {930.988858624914, 542.5280854192954}], Offset[{0.07078718710568963, 1.498328793737097}, {974.511141375086, 540.4719145807046}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {827.470783932918, 913.8300508118557}], Offset[{0., 0.}, {831.029216067082, 910.1699491881443}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.086, 0.584, 0.827}], LineBox[{ Offset[{0., 0.}, {913.1764310812042, 328.0358893649852}], Offset[{0., 0.}, {983.3235689187958, 259.9641106350148}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.682, 0.388, 0.153}], LineBox[{ Offset[{1.4968201589487276`, -0.09761870601839526}, {562.150791373456, 1027.9788010596583`}], Offset[{1.4968201589487276`, -0.09761870601839526}, {562.349208626544, 1031.0211989403417`}]}]}, { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{-1.4968201589487276`, 0.09761870601839526}, {562.150791373456, 1027.9788010596583`}], Offset[{-1.4968201589487276`, 0.09761870601839526}, {562.349208626544, 1031.0211989403417`}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{-1.4968201589487276`, 0.09761870601839526}, {562.150791373456, 1027.9788010596583`}], Offset[{-1.4968201589487276`, 0.09761870601839526}, {562.349208626544, 1031.0211989403417`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {1704.7260477374011`, 774.4488748844624}], Offset[{0., 0.}, {1671.7739522625989`, 869.5511251155376}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {317., 987.}], Offset[{0., 0.}, {317., 1013.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {861.5879562647493, 124.28720567373527`}], Offset[{0., 0.}, {849.9120437352507, 113.71279432626473`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1135.1914522061843`, 1275.9287683848693`}], Offset[{0., 0.}, {1135.8085477938157`, 1281.0712316151307`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.024, 0.318, 0.627}], LineBox[{ Offset[{0., 0.}, {1375.5, 1165.}], Offset[{0., 0.}, {1375.5, 1159.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {2013.2260634749055`, 1045.1377957310428`}], Offset[{0., 0.}, {2001.2739365250945`, 1033.8622042689572`}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {1810.8964446377756`, 920.5944610030831}], Offset[{0., 0.}, {1817.1035553622244`, 903.4055389969169}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1810.8964446377756`, 920.5944610030831}], Offset[{0., 0.}, {1817.1035553622244`, 903.4055389969169}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.541, 0.545, 0.553}], LineBox[{ Offset[{0., 0.}, {991.9045531408152, 533.2789440721831}], Offset[{0., 0.}, {1042.0954468591847`, 487.7210559278169}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.882, 0.471, 0.184}], LineBox[{ Offset[{0., 0.}, {567.5, 1333.}], Offset[{0., 0.}, {567.5, 1341.}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {567.5, 1333.}], Offset[{0., 0.}, {567.5, 1341.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.008, 0.694, 0.69}], LineBox[{ Offset[{0., 0.}, {1560.2580046626292`, 619.2001681016505}], Offset[{0., 0.}, {1582.2419953373708`, 591.7998318983495}]}], AbsoluteThickness[1], GrayLevel[1], LineBox[{ Offset[{0., 0.}, {1560.2580046626292`, 619.2001681016505}], Offset[{0., 0.}, {1582.2419953373708`, 591.7998318983495}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0.133, 0.118, 0.122}], LineBox[{ Offset[{0., 0.}, {1134., 1246.}], Offset[{0., 0.}, {1134., 1256.}]}]}}, { CapForm["Butt"], { AbsoluteThickness[3], RGBColor[{0., 0.604, 0.353}], LineBox[{ Offset[{0., 0.}, {661.0165508542804, 263.0133501505789}], Offset[{0., 0.}, {661.4834491457196, 253.98664984942107`}]}]}}}}]}, DynamicBox[GraphComputation`NetworkGraphicsBox[ 1, Typeset`graph, Typeset`boxes], { CachedValue :> Typeset`boxes, SingleEvaluation -> True, SynchronousUpdating -> False, TrackedSymbols :> {}}, ImageSizeCache->{{5.580000000000002, 323.4200000000001}, {-109.6832, 103.45024887348359`}}]]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FrameTicks->None, ImageSize->{330., Automatic}]\);
In[2]:=
X
highlightedStation[vsf_][coords_, v_, whDummy_] := With[{orig = vsf[coords, v, whDummy], \[Delta] = 2 \[Pi]/10}, With[{r = 3.5 First@Cases[orig, Style[Disk[_, r_], _] :> r]}, Join[orig, {AbsoluteThickness[3], Red, CapForm["Butt"], Circle[coords, 0.75 r]}, Table[Circle[coords, r, {\[Phi] \[Delta], (\[Phi] + 1) \[Delta]}], {\[Phi], 0, Round[2 \[Pi]/\[Delta]] - 1, 2}]]]]
In[3]:=
X
subwayHighlight[g0_, vertices_List] := Module[{g = g0}, Do[PropertyValue[{g, v}, VertexShapeFunction] = highlightedStation[ PropertyValue[{g, v}, VertexShapeFunction]], {v, vertices}]; g]
In[4]:=
X
subwayHighlight[g, First /@ SortBy[Thread[VertexList[g] -> BetweennessCentrality[g]], Last][[-10 ;;]]]
Out[4]=
