diff options
Diffstat (limited to 'mkindex.pl')
-rwxr-xr-x | mkindex.pl | 12 |
1 files changed, 11 insertions, 1 deletions
@@ -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 |