Difference between revisions of "SplitTPA"

From SCAR Divi Manual
Jump to: navigation, search
(Created page with "==Definition== <source lang="scar" lines="false"> function SplitTPA(const TPA: TPointArray; const Dist: Integer): T2DPointArray; </source> ==Availability== SCAR Divi 3.26 > Curr...")
 
(Availability)
Line 5: Line 5:
  
 
==Availability==
 
==Availability==
SCAR Divi 3.26 > Current
+
SCAR Divi 3.27 > Current
 +
 
 +
===Aliases===
 +
*TPAChain (SCAR Divi 3.26 > Current)
  
 
==Description==
 
==Description==

Revision as of 03:27, 10 September 2011

Definition

function SplitTPA(const TPA: TPointArray; const Dist: Integer): T2DPointArray;

Availability

SCAR Divi 3.27 > Current

Aliases

  • TPAChain (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 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 := SplitTPA(TPA, 2);
  for i := Low(ATPA) to High(ATPA) do
    WriteLn(TPAToStr(ATPA[i]));
end.

Output:

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

See Also