むりくりPDFの余白を伸ばす(4)：Illustrator10のPDF限定センタートンボを検知して/MediaBoxを伸ばすスクリプト

Tweet

仕事がちょっと過酷くさいのでこんなのでお茶を濁すテスト。

Illustrator 10 の PDF 限定で、センタートンボを検知して/MediaBoxを伸ばすスクリプトです。

入力には、pdftk hoge.pdf output fuga.pdf uncompress した後の、fuga.pdf を使ってください。

pdftk については、再三書いているとおり、PDF HACKS で説明されています。pdftk で具具って見て、わけわかんねー場合に PDF HACKS を買うというのがいいのではないかと。って、おとといも書きました。

（ここだけの話、PDF HACKS って印刷屋さん向けじゃあねえですよね。）

while(<>) {
    $a.=$_;
}
 
$a =~tr/\r/\n/d;
 
$Regex = <<'REGEX';
/CS\d+ CS 1  SCN
(.+?) (.+?) m
(.+?) (.+?) l
S
/CS\d+ CS 1  SCN
(.+?) (.+?) m
(.+?) (.+?) l
S
/CS\d+ CS 1  SCN
(.+?) (.+?) m
(.+?) (.+?) l
S
/CS\d+ CS 1  SCN
(.+?) (.+?) m
(.+?) (.+?) l
S
/CS\d+ CS 1  SCN
(.+?) (.+?) m
(.+?) (.+?) l
S
/CS\d+ CS 1  SCN
(.+?) (.+?) m
(.+?) (.+?) l
S
/CS\d+ CS 1  SCN
(.+?) (.+?) m
(.+?) (.+?) l
S
/CS\d+ CS 1  SCN
(.+?) (.+?) m
(.+?) (.+?) l
S
EMC
REGEX
;
 
while ($a=~m/$Regex/gm ) {
    if (
        ($3 == $1+24) &&
        ($5 == $1+18) &&
        ($7 == $5) &&
        ($11== $9-24) &&
        ($13== $9-18) &&
        ($15== $13) &&
        ($4  == $2) &&
        ($6  == $2+36) &&
        ($8  == $2-36) &&
        ($10 == $2) &&
        ($12 == $2) &&
        ($14 == $8) &&
        ($16 == $6) &&
        ($17 == $21-36) &&
        ($19 == $21+36) &&
        ($23 == $21) &&
        ($25 == $19) &&
        ($27 == $17) &&
        ($29 == $21) &&
        ($31 == $21) &&
        ($18 == $22 - 18) &&
        ($20 == $18) &&
        ($24 == $22 - 24) &&
        ($26 == $30 + 18) &&
        ($28 == $26) &&
        ($32 == $30 + 24)
    )
    {
        $b ="/MediaBox[$1 $30 $9 $22]";
    }
}
if ($b) {
    $a =~ s#/MediaBox \[.+\]#$b#;
}
print $a;
close FH;
 

このペースで全部の Illustrator の PDF に対してやらなくてはいけないのかしら。おてんとさまはあしたのぼるのかしら。

2005.06.08 00:00 投稿　大野 義貴 [Script] | 固定リンク |