| … | |
… | |
| 367 | my $mapa = read_arch $file; |
367 | my $mapa = read_arch $file; |
| 368 | my ($pb, $meta) = cfmap_render $mapa, $file; |
368 | my ($pb, $meta) = cfmap_render $mapa, $file; |
| 369 | $pb->save ("$file.png~", "png"); |
369 | $pb->save ("$file.png~", "png"); |
| 370 | system "convert", "$file.png~", "-filter" => "lanczos", "-geometry" => "3.125%", "-quality" => 85, "$file.jpg"; |
370 | system "convert", "$file.png~", "-filter" => "lanczos", "-geometry" => "3.125%", "-quality" => 85, "$file.jpg"; |
| 371 | #system "mogrify", "-colors" => 65536, "$file.png~"; # destroys transparency |
371 | #system "mogrify", "-colors" => 65536, "$file.png~"; # destroys transparency |
| 372 | # system "pngcrush", "-q", "-m" => 7, "-rem", "alla", "-cc", "-reduce", "$file.png~", "$file.png"; |
372 | system "pngcrush", "-q", "-m" => 7, "-rem", "alla", "-cc", "-reduce", "$file.png~", "$file.png"; |
| 373 | system "pngnq <\Q$file.png~\E >\Q$file.png\E"; |
373 | # system "pngnq <\Q$file.png~\E >\Q$file.png\E"; |
| 374 | unlink "$file.png~"; |
374 | unlink "$file.png~"; |
| 375 | Storable::nstore $meta, "$file.pst"; |
375 | Storable::nstore $meta, "$file.pst"; |
| 376 | } |
376 | } |
| 377 | |
377 | |
| 378 | |
378 | |
