mSortByHeat

{$loadlib MIMUPlugin.dll}

const
  SHAPE_COLOR = 2366701;
  DEBUG_SHAPE_COLOR = 16777215;
  DEBUG_HEAT_COLOR = 65280;
  PERCENT = 40;

var
  TPA: TPointArray;
  bmp, width, height: Integer;

begin                       //0,1,2,3 4,5,6 7,8,9
  GetClientDimensions(width, height);
  FindColors(TPA, SHAPE_COLOR, 0, 0, (width - 1), (height - 1));
  bmp := CreateBitmap(width, height);
  DrawTPABitmap(bmp, TPA, DEBUG_SHAPE_COLOR);
  mSortByHeat(TPA, sd4Ways, True);
  SetLength(TPA, Trunc(mPercentage(PERCENT, Length(TPA))));
  DrawTPABitmap(bmp, TPA, DEBUG_HEAT_COLOR);
  DisplayDebugImgWindow(width, height);
  DrawBitmapDebugImg(bmp);
end.