diff options
Diffstat (limited to 'maketiles/fixindex')
-rwxr-xr-x | maketiles/fixindex | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/maketiles/fixindex b/maketiles/fixindex deleted file mode 100755 index 8bfed69db..000000000 --- a/maketiles/fixindex +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/perl -w -# -# fixindex: -# Fix the indices generated by the buggy version of 10kfull. -# -# Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. -# Email: chris@mysociety.org; WWW: http://www.mysociety.org/ -# - -my $rcsid = ''; $rcsid .= '$Id: fixindex,v 1.2 2006-09-20 15:20:30 chris Exp $'; - -use strict; - -use constant SUBTILES_PER_TILE => 31; - -while (defined(my $line = <STDIN>)) { - chomp($line); - if ($line =~ /^(0|[1-9]\d*) (0|[1-9]\d*) ([0-9a-f]+)$/) { - my ($x, $y, $id) = ($1, $2, $3); - $y = int($y / SUBTILES_PER_TILE) * SUBTILES_PER_TILE - + SUBTILES_PER_TILE - 1 - ($y % SUBTILES_PER_TILE); - print "$x $y $id\n"; - } else { - print "$line\n"; - } -} |