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

[Denis Evdokimov]

Вот вариант без $image->box(fill
Хотя с ним, ес-но должно быть быстрее.

srand(13);
my $i_ppix = *Imager::i_ppix;
my $color = Imager::Color->new( 255, 255, 255 );
for my $x ( 1 .. 128 )
{
    for my $y ( 1 .. 128 )
    {
        &$i_ppix($image, 8 * $x - 4, 8 * $y - 4, $color);
    }
}
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20121026/c56820c2/attachment.html>