Здравствуйте, 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:[email protected]
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
