| … | |
… | |
| 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 | Storable::nstore $meta, "$file.pst"; |
|
|
| 232 | utime +(stat $file)[8,9], "$file.pst"; |
|
|
| 233 | utime +(stat $file)[8,9], "$file.jpg"; |
231 | utime +(stat $file)[8,9], "$file.jpg"; |
| 234 | utime +(stat $file)[8,9], "$file.png~"; |
232 | utime +(stat $file)[8,9], "$file.png~"; |
| 235 | rename "$file.png~", "$file.png"; |
233 | rename "$file.png~", "$file.png"; |
| 236 | } |
234 | } |
| 237 | |
235 | |
