ppm.out が crop する fortran の プログ ラムです。 script の 例です。*.gif *.ppm がある場合 ppm.out で crop します。

#
foreach i(`ls *.gif`)
set ii = $i:r
echo $ii
mv $ii.ppm aa.ppm
ppm.out
ppmtogif bb.ppm > ../toto/$ii.gif
end
この後で gifmerge を ../toto で 実行します。研究室には rope:/local2/bin/gifmerge にあります。

% gifmerge -255,255,255 -20 -l10000 -nopos *.gif >! ../xx.gif