[Moscow.pm] Конкурс

[Михаил Монашёв]

Здравствуйте, Mons.

Добавил проверку подсчёта пикселей:

my $black_color = Imager::Color->new(0, 0, 0);
my $nonblack_pixels=0;
for my $x (0..1023) {
        for my $y (0..1023) {
                if ( $image->getpixel(x=>$x, y=>$y) != $black_color) {
                        $nonblack_pixels++;
                }
        }
}
if ($nonblack_pixels > 39293) {
        die 'Too match non-black pixels: '.$nonblack_pixels;
}

Она на твой вариант:
$image->>box( fill => { hatch => 'tile_L' } );
ругается.

-- 
С уважением,
 Михаил                          mailto:postmaster на softsearch.ru