Barrows rooms - test 1

var
  tpa,room,other,approx: TPointArray;
  ATPA: T2DPointArray;
  m: TMufasaBitmap;
begin
  srl.FindColors(tpa, CTS2(1776416, 2, 0.2, 0.2), [52,117,553,450]);
  tpa := tpa.Grow(10);
  tpa := tpa.Invert();
  approx := tpa.Erode(40).Grow(40);

  room := tpa.PointsInRangeOf(approx, 0, 20);
  other := ClearTPAFromTPA(TPA, room);
  ATPA := other.Cluster(2) + room;

  m.Init();
  m.FromClient();
  m.DrawATPA(ATPA);

  m.Debug();
end.