Difference between revisions of "TPAChain"
From SCAR Divi Manual
(Created page with "==Definition== <source lang="scar" lines="false"> function TPAChain(const TPA: TPointArray; const Dist: Integer): T2DPointArray; </source> ==Availability== SCAR Divi 3.26 > Curr...") |
(No difference)
|
Revision as of 00:39, 3 September 2011
Definition
function TPAChain(const TPA: TPointArray; const Dist: Integer): T2DPointArray;
Availability
SCAR Divi 3.26 > Current
Description
This function chains all TPoints that are within a certain distance from each other together into individual TPointArrays.
Example
var
i: Integer;
TPA: TPointArray;
ATPA: T2DPointArray;
begin
TPA := [Point(0, 0), Point(2, 6), Point(1, 2), Point(1, 1)];
ATPA := TPAChain(TPA, 2);
for i := Low(ATPA) to High(ATPA) do
WriteLn(TPAToStr(ATPA[i]));
end.Output:
(0,0);(1,1);(1,2) (2,6)
