Subversion Repositories Projects

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
544 rain-er 1
###############################################################################
2
#
3
# map.pl -  Map definition
4
#
5
## Copyright (C) 2009  Rainer Walther  (rainerwalther-mail@web.de)
6
#
7
# Creative Commons Lizenz mit den Zusaetzen (by, nc, sa)
8
#
9
# Es ist Ihnen gestattet: 
10
#     * das Werk vervielfältigen, verbreiten und öffentlich zugänglich machen
11
#     * Abwandlungen bzw. Bearbeitungen des Inhaltes anfertigen
12
# 
13
# Zu den folgenden Bedingungen:
14
#     * Namensnennung.
15
#       Sie müssen den Namen des Autors/Rechteinhabers in der von ihm festgelegten Weise nennen.
16
#     * Keine kommerzielle Nutzung.
17
#       Dieses Werk darf nicht für kommerzielle Zwecke verwendet werden.
18
#     * Weitergabe unter gleichen Bedingungen.
19
#       Wenn Sie den lizenzierten Inhalt bearbeiten oder in anderer Weise umgestalten,
20
#       verändern oder als Grundlage für einen anderen Inhalt verwenden,
21
#       dürfen Sie den neu entstandenen Inhalt nur unter Verwendung von Lizenzbedingungen
22
#       weitergeben, die mit denen dieses Lizenzvertrages identisch oder vergleichbar sind.
23
# 
24
# Im Falle einer Verbreitung müssen Sie anderen die Lizenzbedingungen, unter welche dieses
25
# Werk fällt, mitteilen. Am Einfachsten ist es, einen Link auf diese Seite einzubinden.
26
# 
27
# Jede der vorgenannten Bedingungen kann aufgehoben werden, sofern Sie die Einwilligung
28
# des Rechteinhabers dazu erhalten.
29
# 
30
# Diese Lizenz lässt die Urheberpersönlichkeitsrechte unberührt.
31
# 
32
# Weitere Details zur Lizenzbestimmung gibt es hier:
33
#   Kurzform: http://creativecommons.org/licenses/by-nc-sa/3.0/de/
34
#   Komplett: http://creativecommons.org/licenses/by-nc-sa/3.0/de/legalcode
35
#
36
###############################################################################
37
##
38
# 2009-03-06 0.0.1 rw created
39
# 2009-04-01 0.1.0 rw RC1
40
# 2009-04-18 0.1.1 rw Select default map, if configured map does not exist
41
# 2009-07-22 0.1.2 rw Offset_x and Offset_y for adjustment of map calibration
42
#
43
###############################################################################
44
 
45
$Version{'map/map.pl'} = "0.1.2 - 2009-07-22";
46
 
47
%Maps =
48
    (
49
    Hemhofen => {
50
        'Name' => "Hemhofen",
51
        'Size_X' => '800',
52
        'Size_Y' => '600',
53
        'File' => 'hemhofen-800.gif',
54
 
55
        'P1_x' => '66',               # calibration P1, P2
56
        'P1_y' => '62',
57
        'P2_x' => '778',
58
        'P2_y' => '488',
59
        'P1_Lat' => '49.685333',
60
        'P1_Lon' => '10.950134',
61
        'P2_Lat' => '49.682949',
62
        'P2_Lon' => '10.944580',
63
 
64
        'Offset_x' =>  0,             # Optional Pixel offset MK to right
65
        'Offset_y' =>  0,             # Optional pixel offset MK to top
66
 
67
        'Border' => [ 555, 430,       # airfield border
68
                      516, 555,
69
                      258, 555,
70
                      100, 300,
71
                      580, 260,
72
                      530, 94,
73
                      627, 130,
74
                      735, 300,
75
                      680, 400,
76
                      757, 470,
77
                      720, 515,
78
                      575, 420,
79
                    ],
80
        },
81
 
82
 
83
    Default => {
84
        'Name' => "Default",
85
        'Size_X' => '800',
86
        'Size_Y' => '600',
87
        'File' => 'default-800.gif',
88
 
89
        'P1_x' => '71',               # calibration P1, P2
90
        'P1_y' => '472',
91
        'P2_x' => '500',
92
        'P2_y' => '103',
93
        'P1_Lat' => '48.856253',
94
        'P1_Lon' => '2.3500000',
95
        'P2_Lat' => '54.090153',
96
        'P2_Lon' => '12.133249',
97
        },
98
    );
99
 
100
 
101
# Die verwendete Karte
102
my $MapDefault = $Cfg->{'map'}->{'MapDefault'};
103
if ( defined $Maps{$MapDefault} )
104
    {
105
    $Maps{'Current'} = $Maps{$MapDefault};
106
    }
107
else
108
    {
109
    $Maps{'Current'} = $Maps{'Default'};
110
    print "Map \$MapDefault\" not found in map.pl. Using \"Default\" map\n";
111
    }
112
 
113
#
114
# Todo: Karte automatisch anhand der aktuellen GPS Position auswählen
115
#
116
 
117
1;
118
 
119
__END__