rX = Sum([Bx+i y+j] * [Mij])
где rX - результирующий байт(в программе это один из компонентов цвета)
Sum() - сумма аргументов
Bx+i y+j - исходный байт поля в координатах (x+i,y+j)
Mij - коэффициент матричного фильтра в столбце i и строке j (числа от -1 до 1 )

0.0 0.0  0.0
0.5 0.5  0.0
0.0 0.0 -0.1

Add(MainForm,2953706,392,294)
{
 Width=393
 Height=275
 link(onCreate,7930945:doEvent1,[])
}
Add(InlineCode,13082634,308,154)
{
 WorkPoints=#6:doWork|8:doSetFlt|
 EventPoints=#6:onWork|
 VarPoints=#6:Bitmap|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|17:     bmp:PBitmap;|47:     flt:array[-1..1] of array [-1..1] of real;|53:     procedure getPixel(y,x:integer; var r,g,b:byte);|9:   public|23:     fltData:THI_Event;|22:     onWork:THI_Event;|5:     |24:     constructor Create;|51:     procedure doWork(var _Data:TData; index:word);|51:     procedure Bitmap(var _Data:TData; index:word);|53:     procedure doSetFlt(var _Data:TData; index:word);|5: end;|0:|14:implementation|0:|52:type   TArr = array[0..0] of record r,g,b:byte; end;|0:|31:constructor THiAsmClass.Create;|5:begin|12:  inherited;|29:  bmp := newbitmap(200, 200);|29:  bmp.PixelFormat := pf24bit;|4:end;|0:|60:procedure THiAsmClass.doSetFlt(var _Data:TData; index:word);|16:var i,j:integer;|5:begin|22:   for i := -1 to 1 do|23:    for j := -1 to 1 do|44:      flt[i][j] := ReadReal(_Data, fltData);|4:end;|0:|60:procedure THiAsmClass.getPixel(y,x:integer; var r,g,b:byte);|35:var maxx, minx, maxy, miny:integer;|18:    i,j,c:integer;|18:    rx,gx,bx:real;|5:begin|25:   minx := max(0, x - 1);|38:   maxx := min(Bmp.Width-1, x + 1);   |25:   miny := max(0, y - 1);|36:   maxy := min(Bmp.Height-1, y + 1);|11:   rx := 0;|11:   bx := 0;|11:   gx := 0;|27:   for j := miny to maxy do|29:     for i := minx to maxx do|40:       with TArr(Bmp.ScanLine[j]^)[i] do|13:        begin|42:           rx := rx + flt[i - x][j - y]*r;|42:           gx := gx + flt[i - x][j - y]*g;|42:           bx := bx + flt[i - x][j - y]*b;|12:        end;|44:   c := (maxx - minx + 1)*(maxy - miny + 1);|18:   r := round(rx);|18:   g := round(gx);|23:   b := round(bx);     |4:end;|0:|58:procedure THiAsmClass.doWork(var _Data:TData; index:word);|20:var    i, j:integer;|17:       p:pointer;|21:       rx,gx,bx:byte;|5:begin|33:    for j := 0 to bmp.Height-1 do|34:      for i := 0 to bmp.Width-1 do|13:        begin|37:          getPixel(j, i, rx, gx, bx);|43:          with TArr(Bmp.ScanLine[j]^)[i] do|17:            begin|22:              r := rx;|22:              g := gx;|29:              b := bx;       |16:            end;|12:        end;|28:   _hi_onEvent(onWork, bmp);|4:end;|0:|58:procedure THiAsmClass.Bitmap(var _Data:TData; index:word);|5:begin|24:   dtBitmap(_Data, bmp);|4:end;|0:|4:end.|
 link(onWork,14265880:doDraw,[])
}
Add(PaintBox,16464149,238,154)
{
 Left=25
 Top=20
 Width=220
 Height=215
 Point(onMouseDown)
 Point(MouseX)
 Point(MouseY)
 Point(onMouseMove)
 link(onBeforeDraw,13082634:doWork,[])
}
Add(Img_Bmp,14265880,371,154)
{
 link(onDraw,14136332:doDraw,[(415,160)(415,114)(127,114)(127,272)])
 link(Bitmap,16464149:Bitmap,[(377,142)(222,142)(222,198)(244,198)])
}
Add(Timer,9416628,175,154)
{
 Interval=33
 link(onTimer,16464149:doRefresh,[])
}
Add(Img_Rectangle,7686781,308,273)
{
 Point2=655370
 Point2AsOffset=0
 Color=65535
 Point(Point1)
 link(Bitmap,9351547:Var2,[])
 link(Point1,13678798:Point,[])
}
Add(PointXY,13678798,322,217)
{
 link(X,11429199:Var3,[(328,205)])
 link(Y,3232855:Var3,[(335,198)])
}
Add(Edit,15366742,448,49)
{
 Left=280
 Top=55
 Width=25
 Text="0.1"
}
Add(Edit,5059,511,49)
{
 Left=305
 Top=55
 Width=25
 Text="0.29"
}
Add(Edit,10304443,574,49)
{
 Left=330
 Top=55
 Width=25
 Text="0"
}
Add(Edit,5382071,448,91)
{
 Left=280
 Top=75
 Width=25
 Text="0"
}
Add(Edit,11317333,511,91)
{
 Left=305
 Top=75
 Width=25
 Text="0"
}
Add(Edit,16311021,574,91)
{
 Left=330
 Top=75
 Width=25
 Text="0"
}
Add(Edit,8047997,448,133)
{
 Left=280
 Top=95
 Width=25
 Text="0.2"
}
Add(Edit,4019761,511,133)
{
 Left=305
 Top=95
 Width=25
 Text="0.29"
}
Add(Edit,546085,574,133)
{
 Left=330
 Top=95
 Width=25
 Text="0.1"
}
Add(Button,10404142,427,245)
{
 Left=290
 Top=120
 Caption="Set"
 link(onClick,5688018:doWork2,[])
}
Add(MT_AddData,3351470,497,245)
{
 Count=9
 link(onAdd,13082634:doSetFlt,[(626,251)(626,34)(296,34)(296,167)])
 link(Data1,15366742:Text,[(503,163)(454,163)])
 link(Data2,5059:Text,[(510,163)(517,163)])
 link(Data3,10304443:Text,[(517,163)(580,163)])
 link(Data4,5382071:Text,[(524,184)(454,184)])
 link(Data5,11317333:Text,[(531,184)(517,184)])
 link(Data6,16311021:Text,[(538,184)(580,184)])
 link(Data7,8047997:Text,[(545,205)(454,205)])
 link(Data8,4019761:Text,[(552,205)(517,205)])
 link(Data9,546085:Text,[(559,205)(580,205)])
}
Add(HubEx,5688018,469,238)
{
 link(onEvent,3351470:doAdd,[])
}
Add(GetDataEx,9351547,301,231)
{
 link(Data,13082634:Bitmap,[])
}
Add(Img_Text,2278945,245,266)
{
 Font=[MS Sans Serif,12,0,65535,1]
 Text="HiAsm"
 Point(X)
 Point(Y)
 link(Bitmap,141080:Var2,[])
 link(Y,14605233:reCalc,[(272,254)(240,254)(240,366)(209,366)])
}
Add(GetDataEx,11429199,252,196)
{
 Angle=3
 link(Data,16464149:MouseX,[(251,205)])
}
Add(GetDataEx,3232855,259,189)
{
 Angle=3
 link(Data,16464149:MouseY,[(258,198)])
}
Add(BASS_ChannelVisibleOcilloScope,14136332,140,266)
{
 SoundStream="main"
 Pen=16776960
 FrameClear=1
 link(onDraw,3559132:doNext,[])
 link(WindowsHandle,141080:Var1,[(146,240)])
}
Add(BASS_Init,1840341,497,315)
{
 link(onInit,9865709:doExecute,[])
}
Add(Hub,7930945,441,308)
{
 link(onEvent1,5688018:doWork3,[(473,314)])
 link(onEvent2,1840341:doInit,[])
}
Add(BASS_StreamCreateFile,8550269,609,315)
{
 Name="main"
 link(onCreate,10627324:doPlay,[])
}
Add(BASS_ChannelPlay,10627324,672,315)
{
 Channel="main"
}
Add(GetDataEx,141080,238,231)
{
 Angle=1
 link(Data,9351547:Var1,[])
}
Add(Counter,3559132,196,266)
{
 Max=200
 link(onNext,2278945:doDraw,[])
}
Add(MathParse,14605233,196,322)
{
 DataCount=1
 MathStr="10*sin(%1/10) + 10"
 Point(reCalc)
 link(X1,3559132:Count,[])
}
Add(ODialog,9865709,553,315)
{
 Filter="*.mp3|*.mp3"
 StartDir=""
 FileName=""
 link(onExecute,8550269:doCreate,[])
}