13/08/03 09:34:37.40 1AqYEJbk
$start = 1;
$end = 12;
# 終 - 始 (上にパンなら正の値)
$totalgap = 550-358;
$sizey = 1137 - abs($totalgap);
open out, '>crop.bat';
for ($num = $start; $num <= $end; $num++) {
$diff = $totalgap * ($num - $start) / ($end - $start);
if ($totalgap < 0) {
$diff = $diff - $totalgap;
}
$diff = int($diff + 0.5);
$diff = sprintf("%03d", $diff);
$num = sprintf("%03d", $num);
print out "D:\\ImageMagick\\convert.exe -crop 1280x$sizey+0+$diff $num.png ${num}_$diff.png\n";
}