25 lines
312 B
ObjectPascal
25 lines
312 B
ObjectPascal
library grayscale;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Classes, strings, BGRABitmap, BGRABitmapTypes;
|
|
|
|
procedure FilterName(s: pchar); cdecl;
|
|
begin
|
|
StrCopy(s, 'Grayscale');
|
|
end;
|
|
|
|
procedure ApplyFilter(BGRA: TBGRABitmap); cdecl;
|
|
begin
|
|
BGRA.InplaceGrayscale();
|
|
end;
|
|
|
|
exports
|
|
FilterName,
|
|
ApplyFilter;
|
|
|
|
begin
|
|
end.
|
|
|