SplitTPAEx

Definition

function SplitTPAEx(const TPA: TPointArray; const XMax, YMax: Integer): T2DPointArray;

Availability

SCAR Divi 3.27 > Current

• Contained a bug in 3.26 that caused the resulting 2d array to contain additional wrong arrays.

Aliases

• TPAChainEx (SCAR Divi 3.26 > Current)

Description

This function splits a given TPointArray TPA into separated TPointArrays by grouping together the points that are within a given distance from each other. The distance is given separately for the x and y components of the points. The function returns a T2DPointArray containing all the resulting TPointArrays.

Example

var
  i: Integer;
  TPA: TPointArray;
  ATPA: T2DPointArray;

begin
  TPA := [Point(0, 0), Point(2, 6), Point(1, 2), Point(1, 1)];
  ATPA := SplitTPAEx(TPA, 0, 1);
  for i := Low(ATPA) to High(ATPA) do
    WriteLn(TPAToStr(ATPA[i]));
end.

Output:

(0,0)
(1,1);(1,2)
(2,6)

See Also

• SplitTPA
• TPAGroup
• TPAGroupEx