summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem@fripost.org>2013-08-13 21:05:57 +0200
committerGuilhem Moulin <guilhem@fripost.org>2013-08-13 21:25:38 +0200
commit62902519eeb2dff1ae92a30e77757f39b15d9e2c (patch)
tree330704ec18a9d5d9db5b032c20b166403ffbc2ed
parent61bb681975a271f8fa4008cf6760f321e9c2e881 (diff)
Added some TODOs.
-rwxr-xr-xmkindex.pl12
1 files changed, 11 insertions, 1 deletions
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