Размытость

[Trazzy]

Как "сгладить" изображение (blur) средствами MP?.

UPD: В "Lib_effects" почему-то не работает.

[cherepets]

Можно помучаться выбирая цвета с картинки средствами мп и пары имеющихся либ. Можно написать свою либу.

[cherepets]

Косячная реализация бай ми.

function blue(color:integer):integer; 
begin 
color:=color+16777216; 
blue:=color mod 256; 
end; 

function green(color:integer):integer; 
begin 
color:=color+16777216; 
color:=color div 256;  
green:=color mod 256;  
end; 

function red(color:integer):integer; 
begin 
color:=color+16777216; 
color:=color div 65536; 
red:=color mod 256;  
end; 

function blur(img:image; w,h:integer):image;
var scr:image;
begin
scr:=imagefromcanvas(0,0,w,h);
for i:=0 to w-1 do
for j:=0 to h-1 do begin
    setcolor((red(getcolor(im,i,j))*2+red(getcolor(im,i+1,j))+red(getcolor(im,i,j+1))+red(getcolor(im,i+1,j+1))) div 5,
    (green(getcolor(im,i,j))*2+green(getcolor(im,i+1,j))+green(getcolor(im,i,j+1))+green(getcolor(im,i+1,j+1))) div 5,
    (blue(getcolor(im,i,j))*2+blue(getcolor(im,i+1,j))+blue(getcolor(im,i,j+1))+blue(getcolor(im,i+1,j+1))) div 5);
    plot(i,j);
end;
blur:=imagefromcanvas(0,0,20,20);
drawimage(scr,0,0);
end; 


Результат (разблюрен квадрат 20х20 слева):

[Trazzy]

работает медленно на больших изображениях..

[_Nox_]

можно ускорить, только памяти мого использовать придётся

[Trazzy]

а либ больше никаких нет с blur'ом? (может я пропустил)

[cherepets]

В яве есть обращение к изображению как к массиву точек. Можешь переписать там мою функцию по нормальному и будет быстрее.
Но если ты хочешь в игре блюрить каждый кадр и это не шахматы - забей))

[Trazzy]

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

В яве есть обращение к изображению как к массиву точек. Можешь переписать там мою функцию по нормальному и будет быстрее.

int ai[] = new int[image.getWidth() * image.getHeight()];
image.getRGB(ai, 0, image.getWidth(), 0, 0, image.getWidth(), image.getHeight());

типо этого?

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

Но если ты хочешь в игре блюрить каждый кадр и это не шахматы - забей))

нет, нужно заблюрить одно изображение (задний фон).

[JACUK]

А не проще использовать готовое изображения?

[Trazzy]

нет не проще, т.к изображение подгружается из сети..
(из стороннего сайта)

[PassCall]

Хм, если нужно заблюрить картинку... можно сделать так:

Program blur;
Uses alpha;
var 
i:integer;
img:image;

begin
img:=setOpaque(LoadImage ('/pic.png'),32);

for i:=1 to 20 do
begin
drawImage (img,random (8),random (8));
end;

img:=imagefromcanvas (0,0,GetImageWidth(img),GetImageHeight(img));

drawImage (img,0,0);
repaint;

repeat
delay (1);
Until (GetKeyPressed=KE_KEY0);

end. 


Результат до и после:


Рекомендую побаловаться со счетчиком i, с величиной прозрачности и с величиной случайного разброса для достижения набольшего эффекта