#!/usr/bin/perl
#
# anthologize -- convert an image scatter to structured notation

while (<STDIN>)
{
    push(@header, $_);
    last if /^$/;
}


$n = 0;
while (<STDIN>)
{
    if (/^#P/)
    {
	push(@lines, "#E\n\n") if $n;
	chop $_;
	push(@contents, "#I :$n " . substr($_, 3) . " 0 0 0\n");
	push(@lines, "#B $n\n");
	push(@lines, "#K " . $ARGV[0] . "\n") if @ARGV;
	push(@lines, "#P\n");
	$n++;
    }
    else
    {
	push(@lines, $_);
    }
	
}

print @header, @lines, "#E\n\n", @contents, "\n## Pattern ends here.\n";


