Lib_alpha: Прозрачность картинок

[odd]

Добавил ещё функцию SetTransparentColor.
Скажем, у вас есть картинка im с белым фоном. Делаем:

SetTransparentColor(255, 255, 255);
im = SetOpaque(im, 255);

И получим ту же картинку, но уже с прозрачным фоном.
То же касается и полупрозрачных картинок.
Если раскинуть мозгами, можно теперь делать довольно интересные графические эффекты в играх.

[GOODBYTE]

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

Не подскажешь, в чём ошибка?

program hello;

uses alpha;

var 	load_image : image;
			im_h, im_w, h, w, ph, pw, i : integer;

begin
	
	load_image := loadImage('/media.png');
	
	h  := getHeight;
	w := getWidth;
	im_w := getImageWidth(load_image);
	im_h := getImageHeight(load_image);
	
	(* вычиселение новых координат :) *)
	
	ph := h / 2;
	pw := (w / 2) - (im_w / 2);
	
	for i := 1 to alpha.GetAlphaLevels do

		begin
			
			setColor(0, 0, 0);
			FillRect(0, 0, w, h);
						
			alpha.SetTransparentColor(255,255,255); 
			load_image := alpha.SetOpaque(load_image,alpha.GetAlphaLevels);
			
			DrawImage(load_image, pw, ph);
			
			repaint;
			delay(2);
		
		end;
set_color(255,255,255);
		drawText('Hello world!', 0, 0);
		repaint;	
		delay(2000);
end.

[ViNT]

Ну так 255 это же полная прозрачность?
Вот и получается, что каждый раз в цикле изображению ставится полная прозрачность и его не видно. К тому же я сомневаюсь, что белый пиксель с наложенной альфой будет соответствовать чисто белому пикселю.

[GOODBYTE]

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

[ViNT]

Где ж оно будет переходить если написано:
load_image := alpha.SetOpaque(load_image,alpha.GetAlphaLevels);?
Во-первых, нужно поставить i вместо выделенного, во-вторых, картинку каждый раз нужно грузить снова, т.к. он уже после первой обработки не содержит ни одного белого пиксела.

Тогда уж так:

uses alpha;

var 	load_image,im : image;
			im_h, im_w, h, w, ph, pw, i : integer;

begin
	
	load_image := loadImage('/img.png');
	
	h  := getHeight;
	w := getWidth;
	im_w := getImageWidth(load_image);
	im_h := getImageHeight(load_image);
	
	(* вычиселение новых координат :) *)
	
	ph := h / 2;
	pw := (w / 2) - (im_w / 2);

	alpha.SetTransparentColor(255,255,255);
	setColor(0, 0, 0);
	for i := alpha.GetAlphaLevels downto 0 do
	begin
	 FillRect(0, 0, w, h);
   im := alpha.SetOpaque(load_image,I);
	 DrawImage(im, pw, ph);
   repaint;
	 delay(10);
	end;
	
setcolor(255,255,255);
		drawText('Hello world!', 0, 0);
		repaint;	
		delay(2000);
end.

[GOODBYTE]

уф, логику нарушил. спс )

[InkutaY]

А можно в стелать процедуру в библиотеку, что бы она меняла в картинке определенный цвет на другой?

[odd]

Сообщение от InkutaY

А можно в стелать процедуру в библиотеку, что бы она меняла в картинке определенный цвет на другой?

Да легко. Скоро будет. Ждите.

Кстати, для новичков: GetAlphaLevels по-идее возвращает 256 в то время как максимальная принимаемая функцией SetOpaque прозрачность равна 255. Намёк ясен?

Кстати, в функции SetTransparentColor порядок цветов нарушен. Надо RGB, а там BGR какой-то получился. Пофиксю одновременно с выходом функции замены одного цвета на другой.

[InkutaY]

Класно!, буду ждать спс

[ViNT]

odd, советую в новой версии сделать возможность задания прозрачного/заменяемого цвета в формате ARGB, а не RGB, и функцию для определения цвета указанного пикселя в ARGB формате.

[odd]

Сообщение от ViNT

odd, советую в новой версии сделать возможность задания прозрачного/заменяемого цвета в формате ARGB, а не RGB, и функцию для определения цвета указанного пикселя в ARGB формате.

Хорошо, добавлю. А пока держите RGB версию. Добавлена функция замены цвета ReplaceColor.

[odd]

Как и обещал, всё сделал. Держите.

Пример выполнения:

Program AlphaTest;
Uses	alpha;
Var	im: image;
Begin
	im:=LoadImage('/world.png'); // Загружаем картинку
	DrawImage(im, 5, 5); // Рисуем её
	im:=SetOpaque(im, 127); // Ставим общую прозрачность картинки на 50%
	im:=ReplaceColor(im, GetColor(im, 0, 0), 0); // Заменяем цвет фона на прозрачный
	DrawImage(im, 25, 25); // Рисуем вторую картинку чуть ниже для сравнения
	Repaint; Delay(10000);
End.

Добавлена функция GetColor(image im, int x, int y) которая возвращает цвет пиксела в картинке с выбранными координатами в ARGB формате.

[beisik]

Отличная библиотека, но бесит тот факт, что если в картинке уже есть прозрачность, то SetOpaque ее полностью убирает ):

[odd]

Сообщение от beisik

Отличная библиотека, но бесит тот факт, что если в картинке уже есть прозрачность, то SetOpaque ее полностью убирает ):

Меня лично ничего не бесит. Просто потом делаешь ReplaceColor на полностью прозрачный и всё.

[Cliffe Snake]

Ещё неплохо бы задавать прозрачность в функциях в процентах(0-100), а не числом(0-255). Хотя в принципе и так сойдет, спасиб за библу =)