source: subversion/applications/utils/import/gadm2osm/mapnikborders2osm.pl @ 5843

Last change on this file since 5843 was 5818, checked in by hakan, 12 years ago

Dump the first point in the first shape...

File size: 934 bytes
Line 
1#!/usr/bin/perl
2
3
4use strict;
5
6use Geo::ShapeFile;
7
8our $min_lat = 35.5;
9our $max_lat = 42.2;
10our $min_lon = 26.0;
11our $max_lon = 45.0;
12
13
14#
15#
16#
17sub read_shapes
18{
19        my ($filename) = @_;
20
21        my $shapeFile = new Geo::ShapeFile($filename);
22        print $shapeFile->shapes() . " shapes in " . $filename . "\n";
23
24    my @bounds = $shapeFile->bounds();
25    print "Bounds: " . join(", ", $shapeFile->bounds()) . "\n";
26
27        # x_min, y_min, x_max, y_max
28        my @ids = $shapeFile->shapes_in_area($min_lon, $max_lat, $max_lon, $min_lat);
29        print $#ids . " shapes in target area\n";
30       
31        for (1 .. 1)
32        {
33            my $shape = $shapeFile->get_shp_record($_);
34            my @points = $shape->points();
35            print "Shape # $_ is " . $shape . ", " . $#points . " points\n";
36           
37            foreach my $point (@points)
38            {
39                print "    Point " . $point . "\n";
40            }
41        }
42}
43
44
45#
46#   Run that script...
47#
48
49read_shapes("data/world_bnd_m");
50read_shapes("data/world_boundaries_m");
Note: See TracBrowser for help on using the repository browser.