How Compose MNG image target Qmovie

[patrik08]

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... ?