The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"Раздел полезных советов: Масштабирование картинки на Perl (м..."
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Разговоры, обсуждение новостей (Public)
Изначальное сообщение [Проследить за развитием треда]

"Раздел полезных советов: Масштабирование картинки на Perl (м..."  
Сообщение от auto_tips on 28-Июн-04, 11:44 
use Image::Magick;
my $image = Image::Magick->new; #новый проект
my $x = $image->Read("photo.jpg"); #открываем файл
my ($ox,$oy)=$image->Get('base-columns','base-rows'); #определяем ширину и высоту изображения
my $nx=int(($ox/$oy)*150); #вычисляем ширину, если высоту сделать 150
$image->Resize(geometry=>geometry, width=>$nx, height=>150); #Делаем resize (изменения размера)
if($nx > 200) { #Если ширина получилась больше 200
   my $nnx = int(($nx-200)/2); #Вычисляем откуда нам резать
   $image->Crop(x=>$nnx, y=>0); #Задаем откуда будем резать
   $image->Crop('200x150'); #С того места вырезаем 200х150
}
$x = $image->Write("photo.jpg"); #Сохраняем изображение.

URL: http://www.webscript.ru/stories/02/11/11/9439190
Обсуждается: https://www.opennet.ru/tips/info/404.shtml

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

 Оглавление

Сообщения по теме [Сортировка по времени | RSS]


1. "Масштабирование картинки на Perl (модуль ImageMagick) без по..."  
Сообщение от Motodor on 28-Июн-04, 11:44 
В коде присутствует ошибка

$image->Resize(geometry=>geometry, width=>$nx, height=>150);

должно выглядить как

$image->Resize(width=>$nx, height=>150);

это баг самого Magick'a .

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

2. "Масштабирование картинки на Perl (модуль Image::Magick) без ..."  
Сообщение от Den email(??) on 04-Май-06, 12:11 
Ниче не баг.
Note, that the geometry parameter is a short cut for the width and height parameters (e.g. geometry=>'106x80' is equivalent to width=>106, height=>80 ).
Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

3. "Масштабирование картинки на Perl (модуль Image::Magick) без ..."  
Сообщение от Den email(??) on 05-Май-06, 13:16 
И еще, строки:
$image->Crop(x=>$nnx, y=>0);
$image->Crop('200x150');
Должны выглядеть как:
$image->Crop(x=>$nnx, y=>0, geometry=>200x150);
Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

4. "Масштабирование картинки на Perl (модуль Image::Magick) без ..."  
Сообщение от SKi email on 08-Окт-07, 21:02 
Кавычки тоже надо:
_Должны выглядеть как:
$image->Crop(x=>$nnx, y=>0, geometry=>'200x150');
Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]




Спонсоры:
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2021 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру