bgracontrols/test/test_extra/Plugins/SamplePlugin1/grayscale.lpr

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.