I find only a small perl script on
http://homepage2.nifty.com/sophia0/soft/png/cyclo.txt
&InitCrcTable;
$r = "NG\r\n\x1a\n";
$sig_p = "\x89P".$r;
$sig_m = "\x8aM".$r;
# Check File
@png = ();
for ($i=0;$i<=$#number;$i++) {
$file = $imgdir.$number[$i].'.png';
$size = -s $file;
open(IN, "< $file") || &Error(1);
binmode(IN);
read(IN, $sig, 8);
if ($sig ne $sig_p) { close(IN); &Error(2); }
read(IN, $png[$i], $size-8);
close(IN);
}
$it = ($#number+1) * $b_repeat;
if ($r_repeat) {
srand;
$it += int(rand(($#number+1) * $r_repeat));
}
$ti = $it * ($#number+1) + 1;
$|=1;
print "Content-type: $mime\n\n";
binmode(STDOUT);
&InitCrcTable;
$r = "NG\r\n\x1a\n";
$sig_p = "\x89P".$r;
$sig_m = "\x8aM".$r;
# Check File
@png = ();
for ($i=0;$i<=$#number;$i++) {
$file = $imgdir.$number[$i].'.png';
$size = -s $file;
open(IN, "< $file") || &Error(1);
binmode(IN);
read(IN, $sig, 8);
if ($sig ne $sig_p) { close(IN); &Error(2); }
read(IN, $png[$i], $size-8);
close(IN);
}
$it = ($#number+1) * $b_repeat;
if ($r_repeat) {
srand;
$it += int(rand(($#number+1) * $r_repeat));
}
$ti = $it * ($#number+1) + 1;
$|=1;
print "Content-type: $mime\n\n";
binmode(STDOUT);
To copy to clipboard, switch view to plain text mode
Can i this compose on QBuffer and at end save to file... ?
Bookmarks