| … | |
… | |
| 147 | # possibly enlarge |
147 | # possibly enlarge |
| 148 | if (0 > aio_stat "$stem.64x64.png") { |
148 | if (0 > aio_stat "$stem.64x64.png") { |
| 149 | my $other = "$stem.64x64.png~"; |
149 | my $other = "$stem.64x64.png~"; |
| 150 | |
150 | |
| 151 | if (0 > aio_lstat $other or (-M _) > (-M $path)) { |
151 | if (0 > aio_lstat $other or (-M _) > (-M $path)) { |
| 152 | warn "rescale $other\n";#d# |
|
|
| 153 | my $wrap = 0; # for the time being |
152 | my $wrap = 0; # for the time being |
| 154 | fork_sub { |
153 | fork_sub { |
| 155 | system "convert png:\Q$path\E -depth 8 rgba:-" |
154 | system "convert png:\Q$path\E -depth 8 rgba:-" |
| 156 | . "| $exec_prefix/bin/cfhq2xa $w $h $wrap" |
155 | . "| $exec_prefix/bin/cfhq2xa $w $h $wrap" |
| 157 | . "| convert -depth 8 -size ".($w * 2)."x".($h * 2)." rgba:- $QUANTIZE -quality 00 png32:\Q$other\E~" |
156 | . "| convert -depth 8 -size ".($w * 2)."x".($h * 2)." rgba:- $QUANTIZE -quality 00 png32:\Q$other\E~" |
