… | |
… | |
15 | # |
15 | # |
16 | # You should have received a copy of the GNU General Public License |
16 | # You should have received a copy of the GNU General Public License |
17 | # along with gvpe; if not, write to the Free Software |
17 | # along with gvpe; if not, write to the Free Software |
18 | # Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
18 | # Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
19 | |
19 | |
20 | # tower of stars: missing craters? |
|
|
21 | |
|
|
22 | our $VERSION = '1.2'; |
20 | our $VERSION = '1.21'; |
23 | |
21 | |
24 | use strict; |
22 | use strict; |
25 | |
23 | |
26 | use Storable; |
24 | use Storable; |
27 | use List::Util qw(max); |
25 | use List::Util qw(max); |
… | |
… | |
383 | system "pngcrush", "-q", "-m" => 7, "-rem", "alla", "-cc", "-reduce", "$file.png~~", "$file.png~"; |
381 | system "pngcrush", "-q", "-m" => 7, "-rem", "alla", "-cc", "-reduce", "$file.png~~", "$file.png~"; |
384 | # system "pngnq <\Q$file.png~\E >\Q$file.png\E"; |
382 | # system "pngnq <\Q$file.png~\E >\Q$file.png\E"; |
385 | unlink "$file.png~~"; |
383 | unlink "$file.png~~"; |
386 | Storable::nstore $meta, "$file.pst"; |
384 | Storable::nstore $meta, "$file.pst"; |
387 | utime +(stat $file)[8,9], "$file.pst"; |
385 | utime +(stat $file)[8,9], "$file.pst"; |
|
|
386 | utime +(stat $file)[8,9], "$file.jpg"; |
388 | utime +(stat $file)[8,9], "$file.png~"; |
387 | utime +(stat $file)[8,9], "$file.png~"; |
389 | rename "$file.png~", "$file.png"; |
388 | rename "$file.png~", "$file.png"; |
390 | } |
389 | } |
391 | |
390 | |
392 | |
391 | |