my $y = 0; my @list; print "\n +"; print "\n"; print "\n"; ##

##

my $y = 0;
my @list;

print <

PAGEHEADER

print <
  
SVG_HEADER

print "  \n";

print <
SVG_FOOTER

##

##

print <

PAGEHEADER

print <
  
SVG_HEADER

my $y = 0;
my @list;
foreach (@scores) {
    if ($_ != 0) {
        push(@list,$y++);
        push(@list,$_ * -1.0);
    }
}
print "  \n";

print <
SVG_FOOTER

##

##

print <

PAGEHEADER

print <
  
SVG_HEADER

my $y = 0;
my @list;
foreach (@scores) {
    if ($_ != 0) {
        push(@list,$y++);
        push(@list,$_ * -1.0);
    }
}
my $list = join(",",@list);

print <
SVG_BODY

print <
SVG_FOOTER

##

##

print <

PAGEHEADER

print <
  
SVG_HEADER

my $y = 0;
my @list;
foreach (@scores) {
    if ($_ != 0) {
        push(@list,$y++);
        push(@list,$_ * -1.0);
    }
}
my $list = join(",",@list);

print <

SVG_BODY