[Pilot_Red]

когда то делал гауссово размытие.
level это то же что и k

Код:

kof:=1/(sqr(level));
for i:=0 to Image.width do
    for j:=0 to image.height do
        begin
            r:=0;
           g:=0;
            b:=0;
            for ii:=-level to level do
                for jj:=-level to level do
                    begin
                        ik:=i+ii;
                         jk:=j+jj;
                        if   (ik>=0)and (jk>=0) and (ik<=image.width)and (jk<=image.height) then
                            begin
                                r:=r+image.texture[jk,ik].R;
                                g:=g+image.texture[jk,ik].g;
                                b:=b+image.texture[jk,ik].b;
                            end;
                    end;
          image.texture[j,i].R:=round(r*kof);
          image.texture[j,i].g:=round(g*kof);
          image.texture[j,i].b:=round(b*kof);
   end;