| … | |
… | |
| 22 | || !-e "$path.pst" |
22 | || !-e "$path.pst" |
| 23 | || -M "$path.pst" > -M $path |
23 | || -M "$path.pst" > -M $path |
| 24 | || -M "$path.png" > -M $path) { |
24 | || -M "$path.png" > -M $path) { |
| 25 | # regenerate png and metainfo |
25 | # regenerate png and metainfo |
| 26 | |
26 | |
| 27 | $ENV{CROSSFIRE_LIBDIR} = $LIBDIR; |
|
|
| 28 | system "cfmap2png", $path; |
27 | system "cfmap2png", $path; |
| 29 | system "convert", "$path.png", -filter => "lanczos", -geometry => "3.125%", -quality => 85, "$path.jpg"; |
|
|
| 30 | system "pngcrush", -m => 7, -reduce, "$path.png", "$path.png~"; |
|
|
| 31 | rename "$path.png~", "$path.png"; |
|
|
| 32 | }; |
28 | }; |
| 33 | |
29 | |
| 34 | $arch ||= Storable::retrieve "$LIBDIR/archetypes.pst"; |
30 | $arch ||= Storable::retrieve "$LIBDIR/archetypes.pst"; |
| 35 | my $meta = Storable::retrieve "$path.pst"; |
31 | my $meta = Storable::retrieve "$path.pst"; |
| 36 | |
32 | |
