From 62902519eeb2dff1ae92a30e77757f39b15d9e2c Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Tue, 13 Aug 2013 21:05:57 +0200
Subject: Added some TODOs.

---
 mkindex.pl | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'mkindex.pl')

diff --git a/mkindex.pl b/mkindex.pl
index 4d3afa7..bfbca3d 100755
--- a/mkindex.pl
+++ b/mkindex.pl
@@ -244,6 +244,13 @@ GetOptions( "q|quiet"  => sub { delete $config{progress} }
           , "man"     => sub { pod2usage(-exitstatus => 0, -verbose => 2) }
           )
     or pod2usage(2);
+# TODO: -n|--numeric: put numbers instead of text
+# TODO: -o|--overview: use a different overview mapset
+# TODO: when the input is RGB (not RGBA), we want add an alpha channel
+# but keep the nodata value as matte within the map bounds.
+# This seems to be possible with a clever use of
+# gdalwarp/gdal_translate.
+# http://www.gdal.org/frmt_gtiff.html
 pod2usage(2) unless $#ARGV > 0;
 
 my $index = pop;
@@ -458,11 +465,11 @@ sub merge {
     # '-multi' seems to slow down gdalwarp, though :-(
     push @opts, '--config', 'GDAL_CACHEMAX', $config{wm}, '-wm', $config{wm}
         if $config{wm};
+    push @opts, '-q' unless $config{progress};
     push @opts, '-s_srs', $config{s_srs}->ExportToProj4() if $config{s_srs};
     push @opts, '-t_srs', $config{t_srs}->ExportToProj4() if $config{t_srs};
     push @opts, '-r', $config{resampling} if $config{resampling};
     push @opts, '-ts', $config{outsize}->[0], $config{outsize}->[1];
-    push @opts, '-q' unless $config{progress};
     my $driver_opts = $driver_opts;
     # gdalwarp cannot create properly compressed output
     # http://trac.osgeo.org/gdal/wiki/UserDocs/GdalWarp#GeoTIFFoutput-coCOMPRESSisbroken
@@ -518,6 +525,9 @@ sub annotate {
                           @{$map->{t_corners}}[0,1,3,2];
         my $points = join (' ', map {join ',', @$_} @points);
         &debug( "Polygon: " . $points );
+        # TODO: when drawing a semi-transparent border, all borders
+        # should be in the same group so the corners are not "darker"
+        # than the rest.
         $img->Draw( @draw, points => $points );
 
         # Find the middle of the polygon; We add a Y-offset to be
-- 
cgit v1.2.3