forum.boolean.name - Lib_effects : библиотека для применения различных эффектов к картинке

forum.boolean.name (http://forum.boolean.name/index.php)

- Библиотеки (http://forum.boolean.name/forumdisplay.php?f=124)

Lib_effects : библиотека для применения различных эффектов к картинке

30.01.09
Автор: aNNiMON

function effect(img : Image; mode : integer) : Image;
public static Image effect(Image img, int mode) - применить эффект к картинке

img - исходная картинка;
mode - числовое значение для эффекта:
0 - Обесцвечивание;
1 - Негатив;
2 - Затемнение - каждый вызов метода затемняет цвета на 20;
3 - Осветление - каждый вызов метода осветляет цвета на 20;
4 - Сепия;
5 - Сглаживание;
6 - Искажение;

function change(img : Image; ch : integer; val : integer) : Image;
public static Image change (Image img, int ch, int val) - изменить канал изображения на величину val.

img - исходная картинка;
ch - канал:
0 - alpha;
1 - red;
2 - green;
3 - blue;
val - значение (может быть и отрицательным) для изменения канала.

function get(img : Image; x, y, ch : integer) : integer;
public static int get (Image img, int x, int y, int ch) - возвращает значение выбранного канала в данной точке изображения.

img - исходная картинка;
ch - канал:
0 - alpha;
1 - red;
2 - green;
3 - blue;
int x и int y - точка в изображении.

function saturation(img : Imagel val : integer) : Imaage;
public static Image saturation(Image img, int val) - уменьшение нассыщености.

img - исходная картинка;
val - значение от 0 до 255 чем выше значение, тем меньше уменьшение насыщености.

function changecolor(img : Image; r1, g1, b1, a2, r2, g2, b2 : integer): Image;
public static Image changecolor(Image img, int r1, int g1, int b1, int a2, int r2, int g2, int b2) - сменить цвет r1g1b1 на r2g2b2 с прозрачностью a2

img - исходная картинка;
r1,g1,b1,r2,g2,b2 - цвета
a2 - прозрачность

Ответ: Lib_effects : библиотека для применения различных эффектов к картинке

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

Ответ: Lib_effects : библиотека для применения различных эффектов к картинке

Хм.. Чёто у меня МП ругается на обновлённую Effects, пишет что-то вроде "Failed to load Lib_effects". Первая работает нормально, а эта не хочет.
Точный лог: "newproject.mpsrc:2: error, error reading external library file"
Ошибка возникает сразу после добавления "effects" в строку Uses.

Ответ: Lib_effects : библиотека для применения различных эффектов к картинке

Цитата:

Сообщение от Cliffe Snake (Сообщение 107532)

Та же самая проблемма. У всех так?

Ответ: Lib_effects : библиотека для применения различных эффектов к картинке

FAQ почитайте и тада ничё вылетать не будет. В совместимость с видной 98 ставьте.Только эмуль из МП командой Run запускаться не будет. Но это мелочи. А так либа прикольная :) Аффтару респект. Ща можно прогу для редактирования картинок наваять.

Ответ: Lib_effects : библиотека для применения различных эффектов к картинке

Цитата:

Сообщение от Трава (Сообщение 114166)

Вы тоже внимательно почитайте, что в предыдущих сообщениях написано. MP не вылетает, а конкретно ругаеться: "newproject.mpsrc:2: error, error reading external library file". А Факи читали и совместимость установлена. ;)

Ответ: Lib_effects : библиотека для применения различных эффектов к картинке

Тада хз... У меня работает. А какая у тя версия? В смысле, русская или англ? У меня англ и всё пашет.

Ответ: Lib_effects : библиотека для применения различных эффектов к картинке

Цитата:

Сообщение от Трава (Сообщение 114847)

Тада хз... У меня работает. А какая у тя версия? В смысле, русская или англ? У меня англ и всё пашет.

Английская. И вот эта прога у тебя пашет?:

PHP код:




program NewProject; 
uses effects; 
var  
img : image; 
begin 
SetColor(0,0,0);    // Очищаем экран черным 
FillRect(0,0,GetWidth,GetHeight); 
 
SetColor(255,20,20); 
drawline(10,10,60,60);    // Рисую линию 
 
img := ImageFromCanvas(0,0,70,70);  // Грабим с конваса 
img := effect(img,1); //Негатив (инверсия) 
DrawImage(img,0,0); // Выводим что получилось 
Repaint;      
 
    delay(2000); 
end.

У меня лично нет. Она выводит всю туже красную линию на черном. А должна по идее синию на белом. Такое ощущение, что effect возвращает в img NIL или что-то непотребное, поэтому DrawImage не выполняеться (выполняеться, но с кривыми параметрами). Или же effect вообще не выполняеться, а сразу выходит из процедуры. Что я делаю не так?

Ответ: Lib_effects : библиотека для применения различных эффектов к картинке

МП при работе с либой ошибок не выдаёт. Я про это. А исходник не пашет :ok: :SOS:

Ответ: Lib_effects : библиотека для применения различных эффектов к картинке

Цитата:

Сообщение от Трава (Сообщение 114966)

МП при работе с либой ошибок не выдаёт. Я про это. А исходник не пашет :ok: :SOS:

А я говорю выдает. Я про ту либу, которая не в первом сообщении в этой теме, а где-то в 3-4. Которая в зипе занимает 5,1Kb.

Ответ: Lib_effects : библиотека для применения различных эффектов к картинке

Фак. :-D Я про первую

Ответ: Lib_effects : библиотека для применения различных эффектов к картинке

Вторая либа не рабочая

Ответ: Lib_effects : библиотека для применения различных эффектов к картинке

У меня при совместимости с 95(с 98-м тоже помоему катит) кнопочка Run отлично работает:)