-- Test-Touren für den Weihnachtsmann von Klaus Lüttich
-- 06.01.2005

module Tours where

import List (nub)

type Tour = [(String,((Int,Int,Int),(Int,Int,Int)))]

-- Quelle: http://www.getty.edu/research/conducting_research/vocabularies/tgn/?find=Bremen&place=&nation=&prev_page=2&english=Y
-- Einige Orte mit Namen Bremen in den USA wurden weggelassen
-- und http://www.opengeodb.de (NRW,BW)
tourBremenWorld :: Tour
tourBremenWorld = 
    [("Bremen (Germany,HB)"  ,(( 008,48,00),(53,05,00)))
    ,("Bremen (USA,Alabama)" ,((-086,58,00),(33,59,00)))
    ,("Bremen (USA,Georgia)" ,((-085,08,00),(33,43,00)))
    ,("Bremen (USA,Illinois)",((-090,24,00),(42,24,00)))
    ,("Bremen (USA,Indiana)" ,((-086,08,00),(41,26,00)))
    ,("Bremen (Germany,NRW)" ,(( 007,58,60),(51,28,60)))
    ,("New Bremen (USA,NY)"  ,((-075,26,00),(43,50,00)))
    ,("Bremen (Germany,BW)"  ,(( 009,22,60),(48,01,60)))]

-- http://www.opengeodb.de
tourBremenUndUmzu :: Tour
tourBremenUndUmzu =
    [("Bremen"  ,((008,48,00),(53,05,00)))
    ,("Achim"   ,((009,01,00),(53,01,60)))
    ,("Oyten"   ,((009,01,00),(53,02,60)))
    ,("Stuhr"   ,((008,45,00),(53,01,60)))
    ,("Delmenhorst",((008,37,00),(53,02,60)))
    ,("Weyhe"      ,((008,50,60),(52,58,00)))
    ,("Lilienthal" ,((008,55,00),(53,07,60)))
    ,("Lemwerder",((008,37,00),(53,10,00)))]

-- Quelle: http://www.confluence.org
-- Einige Bundesländer haben mehr als die aufgeführten 
-- Konfluenz Punkte
tourGermanConfluencePoints :: Tour
tourGermanConfluencePoints =
    [("14.8km  O von Alfeld",((010,00,00),(52,00,00)))
    ,("11.5km  W von Lüchow",((011,00,00),(53,00,00)))
    ,("11.3km  O von Soltau",((010,00,00),(53,00,00)))
    ,(" 1.2km  W von Achim" ,((009,00,00),(53,00,00)))
    ,("19.4km SW von Oldenburg",((008,00,00),(53,00,00)))
    ,(" 6.0km  S von Newmünster",((010,00,00),(54,00,00)))
    ,("12.7km NW von Brunsbüttel",((009,00,00),(54,00,00)))
    ,("11.8km SW von Zeitz" ,((012,00,00),(51,00,00)))
    ,(" 7.4km NW von Zerbst",((012,00,00),(52,00,00)))
    ,(" 4.5km NO von Köln"  ,((007,00,00),(51,00,00)))
    ,(" 9.9km SW von Heinsberg",((006,00,00),(51,00,00)))
    ,("11.6km NO von Detmold"  ,((009,00,00),(52,00,00)))
    ,(" 7.4km  S von Ahaus"    ,((007,00,00),(52,00,00)))
    ,(" 8.8km  O von Wittich"  ,((007,00,00),(50,00,00)))
    ,("17.5km NW von Rosenheim",((012,00,00),(48,00,00)))
    ,("11.0km SO von Landsberg",((011,00,00),(48,00,00)))
    ,("15.5km  N von Deggendorf",((013,00,00),(49,00,00)))
    ,(" 7.0km  W von Regensburg",((012,00,00),(49,00,00)))
    ,(" 6.7km  W von Marktredwitz",((012,00,00),(50,00,00)))
    ,(" 2.9km NO von Arnstein" ,((010,00,00),(50,00,00)))
    ,(" 5.7km  O von Jüterbog" ,((013,00,00),(52,00,00)))
    ,("16.2km NO von Neu-Ruppin",((013,00,00),(53,00,00)))
    ,("16,6km  O von Wittenberge",((012,00,00),(53,00,00)))
    ,("13.7km  O von Tuttlingen",((009,00,00),(48,00,00)))
    ,("10.6km  O von Freiburg",((008,00,00),(48,00,00)))
    ,("11.0km SW von Rostock"  ,((012,00,00),(54,00,00)))
    ,(" 2.2km NE von Mittweida",((013,00,00),(51,00,00)))
    ,(" 0.2km NW von Winkel",((008,00,00),(50,00,00)))]

-- http://www.getty.edu/research/conducting_research/vocabularies/tgn/
tourWorldWideCities :: Tour
tourWorldWideCities =     
    [("Bremen"  ,(( 008,48,00),(53,05,00)))
    ,("New York City",((-074,00,00),(40,42,00)))
    ,("Sydney",((151,10,00),(-33,55,00)))
    ,("Johannesburg",((028,02,00),(-26,10,00)))
    ,("London",((-000,-10,00),(51,30,00))) 
    -- eigentlich westlich von Greenwich; 
    -- deshalb ist hier ausnahmsweise die Minute vorzeichenbestimmend.
    ,("Moskva",((037,42,00),(55,45,00)))
    ,("Beijing",((116,26,00),(39,55,00)))
    ,("Tokyo",((139,30,00),(35,45,00)))
    ,("Rio de Janeiro",((-045,09,00),(-11,51,00)))
    ,("El Encantado",((-066,47,00),(10,27,00)))
    ,("Aceguá",((-054,07,00),(-31,54,00)))
    ,("Jayapura",((140,39,00),(-02,37,00)))]

tourAllPoints :: Tour
tourAllPoints = (nub (tourBremenWorld++tourBremenUndUmzu++
                         tourGermanConfluencePoints++tourWorldWideCities))

tourRevAllPoints :: Tour
tourRevAllPoints = reverse tourAllPoints