… | |
… | |
329 | for my $file (@ARGV) { |
329 | for my $file (@ARGV) { |
330 | my $mapa = read_arch $file; |
330 | my $mapa = read_arch $file; |
331 | my ($pb, $meta) = cfmap_render $mapa, $file; |
331 | my ($pb, $meta) = cfmap_render $mapa, $file; |
332 | $pb->save ("$file.png~", "png"); |
332 | $pb->save ("$file.png~", "png"); |
333 | system "convert", "$file.png~", "-filter" => "lanczos", "-geometry" => "3.125%", "-quality" => 85, "$file.jpg"; |
333 | system "convert", "$file.png~", "-filter" => "lanczos", "-geometry" => "3.125%", "-quality" => 85, "$file.jpg"; |
334 | system "mogrify", "-colors" => 2048, "$file.png~"; |
334 | #system "mogrify", "-colors" => 65536, "$file.png~"; # destroys transparency |
335 | system "pngcrush", "-q", "-m" => 7, "-rem" => "alla", "-reduce", "$file.png~", "$file.png"; |
335 | system "pngcrush", "-q", "-m" => 7, "-rem", "alla", "-cc", "-reduce", "$file.png~", "$file.png"; |
336 | unlink "$file.png~"; |
336 | unlink "$file.png~"; |
337 | Storable::nstore $meta, "$file.pst"; |
337 | Storable::nstore $meta, "$file.pst"; |
338 | } |
338 | } |
339 | |
339 | |
340 | |
340 | |