merge icons 50% to better represent overlaping ones

diff --git a/tiles.pl b/tiles.pl
index e855ba9..4a11d75 100755 (executable)
--- a/tiles.pl
+++ b/tiles.pl
@@ -195,7 +195,8 @@ while ( my ($zoom,$tilex,$tiley) = $sth->fetchrow_array )
  {
   $ix = $lngpix - $left - $xiconoff ;                  # Remove half image size
   $iy = $latpix - $top - $yiconoff ;                   # Remove half image size
-  $im->copy($imicon,$ix,$iy,0,0,$xiconpix,$yiconpix) ;
+#  $im->copy($imicon,$ix,$iy,0,0,$xiconpix,$yiconpix) ;
+  $im->copyMerge($imicon,$ix,$iy,0,0,$xiconpix,$yiconpix,50) ;
  }
 
  open(my $PNG, '>', $file) || die "$file: $!";