[plamo:15706] Re: dvi2ps

[Takehiko Ogata]

尾形です。

> 神戸大学の辰己です。
>
> Postscript レベルで duplicate してくれるフィルタって、どこかにないでしょ
> うか？

自作フィルターとして使用しているもので、あまり綺麗では
ありませんが参考になれば。（ヘッダー部分は合わないかも）

cat xxx.ps | cpy.pl 2 | lpr -Pppp のように使用しています。
cat xxx.ps | dup.pl | lpr -Pppp 両面印刷の場合。

--- cpy.pl ----------------------------
#!/usr/bin/perl

$cps = $ARGV[0];
$in = <STDIN>;            #ヘッダーが1行あるとしています。
print $in;

print "/#copies $cps def\n";
print "%%BeginFeature: *Jog $cps\n";
print "<</Jog $cps >>setpagedevice\n";
print "%%EndFeature\n";

while($in=<STDIN>){
 print $in;
}
--- dup.pl ----------------------------
#!/usr/bin/perl

$in = <STDIN>;
print $in;

print "%%BeginFeature: *Duplex\n";
print "<</Duplex true >>setpagedevice\n";
print "%%EndFeature\n";

while($in=<STDIN>){
 print $in;
}
--------------------------------------