Delphi图像处理 -- 颜色矩阵变换

 

[delphi] ​​view plain​​​ ​​copy​​​ ​​print​​​​?​​

1. 1. 
      
2. procedure SetColorMatrixF(Data: TImageData; Matrix: TColorMatrix);
3. var
4. I, J, Count: Integer;
5. P: PRGBQuad;
6. MainValue: Boolean;
7. v: Integer;
8. 
   
9. procedure SetPixel;
10. var
11. Pixel: array[0..3] of Byte;
12. I, J: Integer;
13. ps: PByteArray;
14. begin
15. ps := Pointer(P);
16. // 注意：为使矩阵与ARGB排列顺序一致，以下运算中调整了行列的顺序
17. for I := 0 to 3 do
18. begin
19. if I < 3 then
20. J := 2 - I
21. else
22. J := I;
23. // 如果只存在主对角线数据，只处理颜色缩放
24. if MainValue then
25. Pixel[J] := Round(Matrix[I, I] * ps[J])
26. // 否则，处理所有颜色变换
27. else
28. Pixel[J] := Max(0, Min(255, Round(Matrix[0, I] * ps[2] +
29. Matrix[1, I] * ps[1] +
30. Matrix[2, I] * ps[0] +
31. Matrix[3, I] * ps[3] +
32. Matrix[4, I] * 255)));
33. end;
34. for I := 0 to 3 do
35. ps[I] := Pixel[I];
36. end;
37. 
    
38. begin
39. // 处理矩阵中大与255的值（取模），并判断主对角线外是否存在数据
40. MainValue := True;
41. for I := 0 to 4 do
42. for J := 0 to 4 do
43. begin
44. v := Round(Matrix[I, J]) div 256;
45. if v > 0 then
46. Matrix[I, J] := Matrix[I, J] - 256.0 * v;
47. if (I <> J) and (Matrix[I, J] <> 0) then
48. MainValue := False;
49. end;
50. Count := Data.Width * Data.Height;
51. P := Data.Scan0;
52. for I := 1 to Count do
53. begin
54. SetPixel;
55. Inc(P);
56. end;
57. end;
    1. 
       

因代码已经有了注释，而实现原理、公式已经在《​​GDI+ ColorMatrix的完全揭秘​​》中进行了详尽的介绍，所以本文不再累述。

该过程代码的特点是简单易读，缺点是效率较低，在我的P4 2.8G计算机上，处理一张千万像素的照片，耗时为1000ms左右（不包括GDI+图像格式转换耗时。千万像素的24位格式图像转换为32位格式，耗时就达650ms）。

下面是一个MMX BASM代码的整数ColorMatrix实现过程：

[delphi] ​​view plain​​​ ​​copy​​​ ​​print​​​​?​​

1. 1. 
      
2. 过程定义：
3. 
   
4. // 设置图像颜色矩阵。参数：
5. // Dest输出图，Source原图，Data自身操作图像
6. // Matrix颜色矩阵
7. procedure ImageSetColorMatrix(var Data: TImageData; Matrix: TColorMatrix); overload;
8. {$IF RTLVersion >= 17.00}inline;{$IFEND}
9. procedure ImageSetColorMatrix(var Dest: TImageData;
10. const Source: TImageData; Matrix: TColorMatrix); overload;
11. 
    
12. 实现代码：
13. 
    
14. type
15. PARGBQuadW = ^TARGBQuadW;
16. TARGBQuadW = packed record
17. wBlue: Word;
18. wGreen: Word;
19. wRed: Word;
20. wAlpha: Word;
21. end;
22. 
    
23. procedure ImageSetColorMatrix(var Dest: TImageData;
24. const Source: TImageData; Matrix: TColorMatrix);
25. asm
26. push esi
27. push edi
28. push ebx
29. mov ebx, eax
30. mov edi, ecx // edi = matrix
31. mov esi, 4 // for (i = 4; i >= 0; i --)
32. fldz // {
33. @@iLoop:
34. mov ecx, 4 // for (j = 4; j >= 0; j --)
35. @@jLoop: // {
36. cmp ecx, esi
37. je @@1
38. mov eax, esi
39. imul eax, 5
40. add eax, ecx
41. fcom dword ptr [edi+eax*4]
42. fstsw ax
43. sahf
44. je @@1
45. fstp st(0) // if (i != j && matrix[i, j] != 0)
46. jmp @@TransformAll // goto TransformAll
47. @@1:
48. dec ecx
49. jns @@jLoop // }
50. dec esi
51. jns @@iLoop // }
52. fstp st(0)
53. fwait
54. 
    
55. // 处理颜色缩放(主对角线的数据)
56. 
    
57. sub esp, 8+2
58. mov dword ptr [esp], 256
59. fild dword ptr [esp]
60. fld st(0)
61. fmul dword ptr [edi+(2*5+2)*4]
62. fistp dword ptr [esp] // matrixI[0, 0] = matrix[2, 2] * 256
63. fld st(0)
64. fmul dword ptr [edi+(1*5+1)*4]
65. fistp dword ptr [esp+2] // matrixI[0, 1] = matrix[1, 1] * 256
66. fld st(0)
67. fmul dword ptr [edi+(0*5+0)*4]
68. fistp dword ptr [esp+4] // matrixI[0, 2] = matrix[0, 0] * 256
69. fmul dword ptr [edi+(3*5+3)*4]
70. fistp dword ptr [esp+6] // matrixI[0, 3] = matrix[3, 3] * 256
71. mov eax, ebx
72. call _SetCopyRegs
73. pxor mm7, mm7
74. movq mm1, [esp] // mm1 = m44 m11 m22 m33
75. @@yLoop:
76. push ecx
77. @@xLoop:
78. movd mm0, [esi]
79. punpcklbw mm0, mm7 // mm0 = 00 A 00 R 00 G 00 B
80. pmullw mm0, mm1 // mm0 = A*m44 R*m11 G*m22 B*m33
81. psrlw mm0, 8 // mm0 = A*m44/256 R*m11/256 G*m22/256 B*m33/256
82. packuswb mm0, mm0 // mm0 = 00 00 00 00 An Rn Gn Bn
83. movd [edi], mm0
84. add esi, 4
85. add edi, 4
86. loop @@xLoop
87. add esi, eax
88. add edi, ebx
89. pop ecx
90. dec edx
91. jnz @@yLoop
92. add esp, 8+2
93. jmp @@end
94. 
    
95. // 处理全部颜色变换
96. 
    
97. @@TransformAll:
98. sub esp, 5*8+2 // 浮点颜色矩阵行列交换转换为128倍整数
99. mov dword ptr [esp], 128
100. fild dword ptr [esp]
101. mov esi, esp // esi = matrixI
102. mov eax, edi
103. mov ecx, 4 // for (i = 0; i < 4; i ++)
104. @@cvtLoop: // {
105. fld st(0)
106. fmul dword ptr [edi]
107. fistp dword ptr [esi] // matrixI[i, 0] = matrix[0, i] * 128
108. fld st(0)
109. fmul dword ptr [edi+1*5*4]
110. fistp dword ptr [esi+2] // matrixI[i, 1] = matrix[1, i] * 128
111. fld st(0)
112. fmul dword ptr [edi+2*5*4]
113. fistp dword ptr [esi+4] // matrixI[i, 2] = matrix[2, i] * 128
114. fld st(0)
115. fmul dword ptr [edi+3*5*4]
116. fistp dword ptr [esi+6] // matrixI[i, 3] = matrix[3, i] * 128
117. add esi, 8
118. add edi, 4
119. loop @@cvtLoop // }
120. fstp st(0)
121. add eax, 4*5*4 // 浮点数平移量转换为255倍整数
122. mov dword ptr [esi], 255
123. fild dword ptr [esi]
124. mov ecx, 4 // for (j = 0; j < 4; j ++)
125. @@tLoop:
126. fld st(0)
127. fmul dword ptr [eax]
128. fistp dword ptr [esi] // matrixI[4, j] = matrix[4, j] * 255
129. add esi, 2
130. add eax, 4
131. loop @@tLoop
132. fstp st(0)
133. mov esi, esp // 红蓝(0、2列)交换
134. mov ecx, 5 // for (i = 0; i < 5; i ++)
135. @@swapLoop: // matrixI[i, 0] <--> matrixI[i, 2]
136. mov ax, [esi].TARGBQuadW.wBlue
137. xchg ax, [esi].TARGBQuadW.wRed
138. mov [esi].TARGBQuadW.wBlue, ax
139. add esi, 8
140. loop @@swapLoop
141. mov eax, ebx
142. call _SetCopyRegs
143. pxor mm7, mm7
144. pcmpeqb mm4, mm4 // mm4 = FF FF FF FF FF FF FF FF
145. psrlw mm4, 15 // mm4 = 00 01 00 01 00 01 00 01
146. @@yLoopA:
147. push ecx
148. @@xLoopA:
149. movd mm0, [esi]
150. punpcklbw mm0, mm7 // mm0 = 00 A 00 R 00 G 00 B
151. movq mm1, mm0
152. movq mm2, mm0
153. movq mm3, mm0
154. // esp+4: ecx push stack
155. pmaddwd mm0, [esp+16+4] // mm0 = A*m43+R*m13 G*m23+B*m33 蓝色行
156. pmaddwd mm1, [esp+8+4] // mm1 = A*m42+R*m12 G*m22+B*m32 绿色行
157. pmaddwd mm2, [esp+4] // mm2 = A*m41+R*m11 G*m21+B*m31 红色行
158. pmaddwd mm3, [esp+24+4] // mm3 = A*m44+R*m14 G*m24+B*m34 Alpha行
159. psrad mm0, 7 // mm0 = A*m43+R*m13/128 G*m23+B*m33/128
160. psrad mm1, 7 // mm1 = A*m42+R*m12/128 G*m22+B*m32/128
161. psrad mm2, 7 // mm2 = A*m41+R*m11/128 G*m21+B*m31/128
162. psrad mm3, 7 // mm3 = A*m44+R*m14/128 G*m24+B*m34/128
163. packssdw mm0, mm1 // mm0 = Ag+Rg Gg+Bg Ab+Rb Gb+Bb
164. packssdw mm2, mm3 // mm2 = Aa+Ra Ga+Ba Ar+Rr Gr+Br
165. pmaddwd mm0, mm4 // mm0 = Ag+Rg+Gg+Bg=Gn Ab+Rb+Gb+Bb=Bn
166. pmaddwd mm2, mm4 // mm2 = Aa+Ra+Ga+Ba=An Ar+Rr+Gr+Br=Rn
167. packssdw mm0, mm2 // mm0 = 00 An 00 Rn 00 Gn 00 Bn
168. paddw mm0, [esp+32+4] // mm0 = An+At Rn+Rt Gn+Gt Bn+Bt 平移行
169. packuswb mm0, mm0 // mm0 = 00 00 00 00 An Rn Gn Bn
170. movd [edi], mm0
171. add esi, 4
172. add edi, 4
173. loop @@xLoopA
174. add esi, eax
175. add edi, ebx
176. pop ecx
177. dec edx
178. jnz @@yLoopA
179. add esp, 5*8+2
180. @@end:
181. emms
182. @@Exit:
183. pop ebx
184. pop edi
185. pop esi
186. end;
187. 
     
188. procedure ImageSetColorMatrix(var Data: TImageData; Matrix: TColorMatrix);
189. begin
190. ImageSetColorMatrix(Data, Data, Matrix);
191. end;
     1. 
        

该过程中作了更详细的注释，其特点是处理速度较快。在我的机器上，不包括图像格式转换耗时，处理千万像素图片主对角线数据耗时不到50ms，而处理全部变换耗时350-400ms。

 

[delphi] ​​view plain​​​ ​​copy​​​ ​​print​​​​?​​

1. 1. 
      
2. unit main2;
3. 
   
4. interface
5. 
   
6. uses
7. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
8. Dialogs, StdCtrls, Buttons, Grids, ExtCtrls, Gdiplus, ImageData;
9. 
   
10. type
11. TForm1 = class(TForm)
12. Label1: TLabel;
13. PaintBox1: TPaintBox;
14. SpeedButton1: TSpeedButton;
15. SpeedButton2: TSpeedButton;
16. SpeedButton3: TSpeedButton;
17. SpeedButton4: TSpeedButton;
18. StringGrid1: TStringGrid;
19. BitBtn1: TBitBtn;
20. BitBtn3: TBitBtn;
21. BitBtn2: TBitBtn;
22. procedure FormCreate(Sender: TObject);
23. procedure FormDestroy(Sender: TObject);
24. procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
25. Rect: TRect; State: TGridDrawState);
26. procedure StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer;
27. var Value: string);
28. procedure PaintBox1Paint(Sender: TObject);
29. procedure BitBtn1Click(Sender: TObject);
30. procedure BitBtn2Click(Sender: TObject);
31. procedure BitBtn3Click(Sender: TObject);
32. procedure SpeedButton2Click(Sender: TObject);
33. procedure SpeedButton3Click(Sender: TObject);
34. procedure SpeedButton1Click(Sender: TObject);
35. procedure SpeedButton4Click(Sender: TObject);
36. procedure StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
37. const Value: string);
38. private
39. { Private declarations }
40. Source: TGpBitmap;
41. Dest: TGpBitmap;
42. SrcData: TImageData;
43. DstData: TImageData;
44. Matrix: TColorMatrix;
45. 
    
46. function CheckFloatStr(Str: string): Double;
47. procedure InitColorMatrix;
48. public
49. { Public declarations }
50. end;
51. 
    
52. var
53. Form1: TForm1;
54. 
    
55. implementation
56. 
    
57. {$R *.dfm}
58. 
    
59. procedure TForm1.BitBtn1Click(Sender: TObject);
60. begin
61. ImageSetColorMatrix(DstData, SrcData, Matrix);
62. PaintBox1.Invalidate;
63. with StringGrid1 do
64. begin
65. Cells[Col, Row] := FloatToStr(Matrix[Row, Col]);
66. Invalidate;
67. SetFocus;
68. end;
69. end;
70. 
    
71. procedure TForm1.BitBtn2Click(Sender: TObject);
72. begin
73. InitColorMatrix;
74. BitBtn1.Click;
75. end;
76. 
    
77. procedure TForm1.BitBtn3Click(Sender: TObject);
78. begin
79. Close;
80. end;
81. 
    
82. function TForm1.CheckFloatStr(Str: string): Double;
83. var
84. i, len: Integer;
85. dec, neg: Boolean;
86. s: string;
87. begin
88. Result := 0;
89. len := Length(Str);
90. if len = 0 then Exit;
91. dec := False;
92. neg := False;
93. i := 1;
94. s := '';
95. if (Str[i] = '-') or (Str[i] = '+') then
96. begin
97. if Str[i] = '-' then neg := True;
98. Inc(i);
99. end;
100. while (i <= len) do
101. begin
102. if Str[i] = '.' then
103. begin
104. if dec then Break;
105. dec := True;
106. end
107. else if (Str[i] < '0') or (Str[i] > '9') then Break;
108. s := s + Str[i];
109. Inc(i);
110. end;
111. if Length(s) > 0 then
112. begin
113. if neg then s := '-' + s;
114. Result := StrToFloat(s);
115. end;
116. end;
117. 
     
118. procedure TForm1.FormCreate(Sender: TObject);
119. var
120. Bmp: TGpBitmap;
121. Data: TBitmapData;
122. R: TGpRect;
123. begin
124. // 从文件装入图像到Bmp
125. Bmp := TGpBitmap.Create('..\..\media\100_0349.jpg');
126. R := GpRect(0, 0, Bmp.Width, Bmp.Height);
127. // 分别建立新的源和目标图像数据到SrcData和DstData
128. SrcData := NewImageData(R.Width, R.Height);
129. DstData := NewImageData(R.Width, R.Height);
130. // 将Bmp图像数据分别锁定拷贝到SrcData和DstData
131. Data := TBitmapData(SrcData);
132. Data := Bmp.LockBits(R, [imRead, imWrite, imUserInputBuf], pf32bppARGB);
133. Bmp.UnlockBits(Data);
134. Data.Scan0 := DstData.Scan0;
135. Data := Bmp.LockBits(R, [imRead, imWrite, imUserInputBuf], pf32bppARGB);
136. Bmp.UnlockBits(Data);
137. Bmp.Free;
138. // 分别用图像数据SrcData和DstData建立位图Source和Dest
139. // 注：图像数据结构用于数据处理，位图用于显示，这样即可绑定数据结构和位图，
140. // 又能避免每次处理图像数据时的锁定和解锁操作
141. Source := TGpBitmap.Create(SrcData.Width, SrcData.Height, SrcData.Stride,
142. pf32bppARGB, SrcData.Scan0);
143. Dest := TGpBitmap.Create(DstData.Width, DstData.Height, DstData.Stride,
144. pf32bppARGB, DstData.Scan0);
145. 
     
146. InitColorMatrix;
147. end;
148. 
     
149. procedure TForm1.FormDestroy(Sender: TObject);
150. begin
151. Dest.Free;
152. Source.Free;
153. FreeImageData(DstData);
154. FreeImageData(SrcData);
155. end;
156. 
     
157. procedure TForm1.InitColorMatrix;
158. var
159. i, j: Integer;
160. begin
161. for i := 0 to 4 do
162. begin
163. for j := 0 to 4 do
164. if i = j then Matrix[i, j] := 1 else Matrix[i, j] := 0;
165. end;
166. end;
167. 
     
168. procedure TForm1.PaintBox1Paint(Sender: TObject);
169. var
170. g: TGpGraphics;
171. begin
172. g := TGpGraphics.Create(PaintBox1.Canvas.Handle);
173. try
174. g.DrawImage(Source, 10, 10);
175. g.DrawImage(Dest, SrcData.Width + 20, 10);
176. finally
177. g.Free;
178. end;
179. end;
180. 
     
181. procedure TForm1.SpeedButton1Click(Sender: TObject);
182. var
183. i: Integer;
184. begin
185. InitColorMatrix;
186. for i := 0 to 2 do
187. begin
188. Matrix[0, i] := 0.30;
189. Matrix[1, i] := 0.59;
190. Matrix[2, i] := 0.11;
191. end;
192. BitBtn1.Click;
193. end;
194. 
     
195. procedure TForm1.SpeedButton2Click(Sender: TObject);
196. var
197. i: Integer;
198. begin
199. InitColorMatrix;
200. for i := 0 to 2 do
201. Matrix[4, i] := 0.10;
202. BitBtn1.Click;
203. end;
204. 
     
205. procedure TForm1.SpeedButton3Click(Sender: TObject);
206. begin
207. InitColorMatrix;
208. Matrix[0, 0] := -1;
209. Matrix[1, 1] := -1;
210. Matrix[2, 2] := -1;
211. BitBtn1.Click;
212. end;
213. 
     
214. procedure TForm1.SpeedButton4Click(Sender: TObject);
215. begin
216. InitColorMatrix;
217. Matrix[3, 3] := 0.5;
218. BitBtn1.Click;
219. end;
220. 
     
221. procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
222. Rect: TRect; State: TGridDrawState);
223. var
224. Text: string;
225. begin
226. Text := Format('%.2f', [Matrix[ARow, ACol]]);
227. StringGrid1.Canvas.FillRect(Rect);
228. StringGrid1.Canvas.Pen.Color := clBtnShadow;
229. StringGrid1.Canvas.Rectangle(Rect);
230. InflateRect(Rect, -2, -2);
231. DrawText(StringGrid1.Canvas.Handle, PChar(text), Length(text), &Rect, DT_RIGHT);
232. end;
233. 
     
234. procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer;
235. var Value: string);
236. begin
237. Value := Format('%.2f', [Matrix[ARow, ACol]]);
238. end;
239. 
     
240. procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
241. const Value: string);
242. begin
243. Matrix[ARow, ACol] := CheckFloatStr(Value);
244. end;
245. 
     
246. end.
     1. 
        

 ​

1. 1. 
      
2. procedure ImageSetColorMatrix(var Dest: TImageData;
3. const Source: TImageData; Matrix: TColorMatrix); overload;
4. asm
5. push ebp
6. push esi
7. push edi
8. push ebx
9. // ebp为16字节对齐的128位栈内存地址
10. sub esp, 32
11. mov ebp, esp
12. add ebp, 16
13. and ebp, -16
14. 
    
15. // 检查颜色矩阵除主对角线和虚拟列外的数据项，如不等于零，执行全部颜色变换
16. mov edi, ecx
17. mov esi, 4 // for (i = 4; i >= 0; i --)
18. @@iLoop: // {
19. mov ecx, 3 // for (j = 3; j >= 0; j --)
20. @@jLoop: // {
21. cmp ecx, esi // if (i == j) continue
22. je @@1
23. lea ebx, [esi+esi*4]
24. add ebx, ecx // index = i * 5 + j
25. cmp dword ptr[edi+ebx*4], 0
26. jne @@Transform // if (Matrix[Index]) goto @@Transform
27. @@1:
28. dec ecx
29. jns @@jLoop // }
30. dec esi
31. jns @@iLoop // }
32. 
    
33. // 处理颜色缩放
34. mov ebx, [edi+(2*5+2)*4]
35. mov ecx, [edi+(1*5+1)*4]
36. mov [ebp], ebx
37. mov [ebp+4], ecx
38. mov ebx, [edi+(0*5+0)*4]
39. mov ecx, [edi+(3*5+3)*4]
40. mov [ebp+8], ebx
41. mov [ebp+12], ecx
42. movaps xmm1, [ebp] // xmm1 = m44 m11 m22 m33
43. pxor xmm7, xmm7
44. call _SetCopyRegs
45. @@yLoop_Scale:
46. push ecx
47. @@xLoop_Scale:
48. movd xmm0, [esi]
49. punpcklbw xmm0, xmm7
50. punpcklwd xmm0, xmm7
51. cvtdq2ps xmm0, xmm0
52. mulps xmm0, xmm1 // xmm0 = [A R G B] * [m44 m11 m22 m33]
53. cvtps2dq xmm0, xmm0
54. packssdw xmm0, xmm7
55. packuswb xmm0, xmm7
56. movd [edi], xmm0
57. add esi, 4
58. add edi, 4
59. loop @@xLoop_Scale
60. pop ecx
61. add esi, eax
62. add edi, ebx
63. dec edx
64. jnz @@yLoop_Scale
65. jmp @@Exit
66. 
    
67. // 处理全部的颜色变换
68. @@Transform:
69. // 颜色矩阵按行分别装入sse寄存器，不包括虚拟位列
70. movups xmm1, [edi+0*5*4]
71. movups xmm2, [edi+1*5*4]
72. movups xmm3, [edi+2*5*4]
73. movups xmm4, [edi+3*5*4]
74. movups xmm5, [edi+4*5*4]
75. // 平移行乘上255
76. mov ebx, 255
77. cvtsi2ss xmm6, ebx
78. pshufd xmm6, xmm6, 0
79. mulps xmm5, xmm6
80. // 交换每行的红与蓝位置
81. pshufd xmm1, xmm1, 11000110b
82. pshufd xmm2, xmm2, 11000110b
83. pshufd xmm3, xmm3, 11000110b
84. pshufd xmm4, xmm4, 11000110b
85. pshufd xmm5, xmm5, 11000110b
86. // 平移行保存在栈中
87. movaps [ebp], xmm5
88. pxor xmm7, xmm7
89. call _SetCopyRegs
90. @@yLoop:
91. push ecx
92. @@xLoop:
93. movd xmm0, [esi]
94. punpcklbw xmm0, xmm7
95. punpcklwd xmm0, xmm7
96. cvtdq2ps xmm0, xmm0
97. pshufd xmm5, xmm0, 0
98. pshufd xmm6, xmm0, 01010101b
99. mulps xmm5, xmm3 // vb = blue * m3
100. mulps xmm6, xmm2 // vg = green * m2
101. addps xmm5, [ebp] // vb += m5
102. addps xmm5, xmm6 // vb += vg
103. pshufd xmm6, xmm0, 10101010b
104. pshufd xmm0, xmm0, 11111111b
105. mulps xmm6, xmm1 // vr = red * m1
106. mulps xmm0, xmm4 // va = alpha * m4
107. addps xmm0, xmm6 // v = va + vr
108. addps xmm0, xmm5 // v += vb
109. cvtps2dq xmm0, xmm0
110. packssdw xmm0, xmm7
111. packuswb xmm0, xmm7
112. movd [edi], xmm0
113. add esi, 4
114. add edi, 4
115. loop @@xLoop
116. pop ecx
117. add esi, eax
118. add edi, ebx
119. dec edx
120. jnz @@yLoop
121. @@Exit:
122. add esp, 32
123. pop ebx
124. pop edi
125. pop esi
126. pop ebp
127. end;
128. 
     
129. procedure ImageSetColorMatrix(var Data: TImageData; Matrix: TColorMatrix); overload;
130. begin
131. ImageSetColorMatrix(Data, Data, Matrix);
132. end;
133. //---------------------------------------------------------------------------