#!/usr/bin/perl
#-------------------------------------------------------------------------------
#	$Id: genResolutions.pl,v 1.1 2019/07/17 14:31:09 wolf Exp $
#-------------------------------------------------------------------------------
#	Erzeuge serverResolutions-Array
#-------------------------------------------------------------------------------

use strict;

print <<"EOT";

	serverResolutions: [
EOT

my $resolution = 156543.03390625;
my $lastZoom   = 24;

foreach my $zoom (0..$lastZoom) {

	printf "\t\t%s%s\t// %u\n", $resolution, ($zoom<$lastZoom? "," : ""), $zoom;
	$resolution /= 2;
}

print <<"EOT";
	]
EOT

exit 0;

#-------------------------------------------------------------------------------
#	$Id: genResolutions.pl,v 1.1 2019/07/17 14:31:09 wolf Exp $
#-------------------------------------------------------------------------------
