| … | |
… | |
| 217 | |
217 | |
| 218 | ($map_pb, \%meta) |
218 | ($map_pb, \%meta) |
| 219 | } |
219 | } |
| 220 | |
220 | |
| 221 | for my $file (@ARGV) { |
221 | for my $file (@ARGV) { |
| 222 | my $mapa = read_arch $file; |
|
|
| 223 | $file =~ s/\.map$//; |
222 | $file =~ s/\.map$//; |
|
|
223 | my $mapa = read_arch "$file.map"; |
| 224 | my ($pb, $meta) = cfmap_render $mapa, $file; |
224 | my ($pb, $meta) = cfmap_render $mapa, $file; |
| 225 | $pb->save ("$file.png~~", "png"); |
225 | $pb->save ("$file.png~~", "png"); |
| 226 | system "gm", "convert", "$file.png~~", "-filter" => "lanczos", "-geometry" => "3.125%", "-quality" => 85, "$file.jpg"; |
226 | system "gm", "convert", "$file.png~~", "-filter" => "lanczos", "-geometry" => "3.125%", "-quality" => 85, "$file.jpg"; |
| 227 | #system "mogrify", "-colors" => 65536, "$file.png~"; # destroys transparency |
227 | #system "mogrify", "-colors" => 65536, "$file.png~"; # destroys transparency |
| 228 | system "optipng", "-q", "-out", "$file.png~", "$file.png~~"; |
228 | system "optipng", "-q", "-out", "$file.png~", "$file.png~~"; |
| 229 | # system "pngnq <\Q$file.png~\E >\Q$file.png\E"; |
229 | # system "pngnq <\Q$file.png~\E >\Q$file.png\E"; |
| 230 | unlink "$file.png~~"; |
230 | unlink "$file.png~~"; |
| 231 | utime +(stat $file)[8,9], "$file.jpg"; |
231 | utime +(stat "$file.map")[8,9], "$file.jpg" or die "$file.jpg: $!"; |
| 232 | utime +(stat $file)[8,9], "$file.png~"; |
232 | utime +(stat "$file.map")[8,9], "$file.png~" or die "$file.png~: $!"; |
| 233 | rename "$file.png~", "$file.png"; |
233 | rename "$file.png~", "$file.png"; |
| 234 | } |
234 | } |
| 235 | |
235 | |
| 236 | |
236 | |
| 237 | |
237 | |
