Help for this page

Select Code to Download

Select or download this

sub coloring{
  my @color= qw(  lavender lightblue honeydew);
  my $color_no=int(rand($#color));
  return $color[$color_no];
}

Select or download this

my $lavender=$im->colorAllocate(230,230,255);
my $lightblue=$im->colorAllocate(173,216,230);
...
       my $genecolor= coloring ();
       $im->filledRectangle($X1,$Y1-20,$X2,$Y2,$$genecolor);
            }