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

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

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

> Вот вариант без $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);
>     }
> }

Хорошая идея убрать rand и писать по одному пикселю в каждый квадратик
8х8. Точек вдовое меньше, цикл вдовое быстрее, а размер файла больше.
Но hatch пока всёравно быстрее. Но уже всего в 5 раз.

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