lulcoffin

{$loadlib pumbaa.dll}

procedure DebugBitmap(bmp: Integer);
var
  w, h: Integer;
begin
  GetBitmapSize(bmp, w, h);
  DisplayDebugImgWindow(w, h);
  DrawBitmapDebugImg(bmp);
end;

var
  shape, TPA: TPointArray;
  bmp, t: Integer;

begin
  bmp := CreateBitmap(500, 500);
  shape := [Point(200, 50), Point(300, 50), Point(400, 200), Point(300, 450), Point(200, 450), Point(100, 200)];
  t := GetSystemTime;
  pp_TPAFromPolygon(shape, TPA);
  WriteLn(IntToStr(GetSystemTime - t) + ' ms.');
  DrawTPABitmap(bmp, TPA, 16777215);
  DrawTPABitmap(bmp, shape, 255);
  DebugBitmap(bmp);
end.