source: subversion/applications/rendering/imgAtlas/tileimage.pl @ 34399

Last change on this file since 34399 was 2530, checked in by jochen, 12 years ago
  • moving things around
  • Property svn:executable set to *
File size: 1.5 KB
Line 
1#!/usr/bin/perl
2#-----------------------------------------------------------------------------
3# Command-line program to generate a map image from OSM tiles
4#
5# Parameters:
6# * lat  - WGS84 latitude of map centre
7# * long - WGS84 longitude of map centre
8# * zoom - zoom level of tiles to use (0-17)
9# * width - image width to create, px
10# * height - image height to create, px
11# * size   - size of tiles in the output, pixels
12# * filename - name of a PNG file to export
13#
14# Copyright 2007
15#  * Oliver White
16#
17# This program is free software; you can redistribute it and/or
18# modify it under the terms of the GNU General Public License
19# as published by the Free Software Foundation; either version 2
20# of the License, or (at your option) any later version.
21#
22# This program is distributed in the hope that it will be useful,
23# but WITHOUT ANY WARRANTY; without even the implied warranty of
24# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
25# GNU General Public License for more details.
26#
27# You should have received a copy of the GNU General Public License
28# along with this program; if not, write to the Free Software
29# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA
30#-----------------------------------------------------------------------------
31use strict;
32use osm::getTileArea;
33
34my %Area;
35foreach my $Input qw(lat long zoom width height size){
36  $Area{$Input} = shift();
37}
38my $Filename = shift();
39
40getTileArea::createArea(\%Area, $Filename);
41
Note: See TracBrowser for help on using the repository browser.