Извлечение части из изображения - PullRequest
2 голосов
/ 04 марта 2011

Я хочу извлечь маленькие прямоугольники из изображения, а затем преобразовать / свернуть маленькие прямоугольники в цилиндры.Не требуется анимация.Я просто хочу использовать цилиндры в качестве изображений.

Я использую Perlmagick в качестве API для ImagemagicK .

Любая помощь / предложения приветствуются..

1 Ответ

1 голос
/ 26 января 2012

Если вы знаете координаты x, y и геометрию прямоугольников, которые вы пытаетесь извлечь;

use Image::Magick;
...
my $image = Image::Magick->new();
my $x = $image->Read($filename);
    die "$x" if "$x";

# 100x100 is the size of the cropped image, the +40+40 are giving the x and y
# offsets (i.e. the upper-left coordinate of the cropped image)  
$image->Crop(geometry=>"100x100+40+40"); 

Вы должны быть более конкретны в отношении цилиндров, но если это то, что я думаю, то проверьте Сценарий Цилиндризации Фреда . Приведенные примеры являются аргументами командной строки ImageMagick, так что есть немного работы, чтобы преобразовать его в эквивалент perl (или вы можете вызвать их, используя функцию exec () Perl).

...