Difference between revisions of "SortATPAByMiddle"
From SCAR Divi Manual
(→Description) |
|||
| Line 34: | Line 34: | ||
==See Also== | ==See Also== | ||
*[[SortATPAByMiddleEx]] | *[[SortATPAByMiddleEx]] | ||
| + | *[[SortATPAByFirst]] | ||
| + | *[[SortATPAByFirstEx]] | ||
*[[SortATPABySize]] | *[[SortATPABySize]] | ||
Revision as of 10:56, 24 October 2011
Definition
procedure SortATPAByMiddle(var ATPA: T2DPointArray);
Availability
SCAR Divi 3.28 > Current
Description
Sorts the given T2DPointArray ATPA by the distance of the middle of the points calculated with TPAMiddle to the origin (0,0) using the fast ShellSort algorithm. An extended function with additional functionality is available as SortATPAByMiddleEx.
Example
var
ATPA: T2DPointArray;
i: Integer;
begin
SetLength(ATPA, 3);
ATPA[0] := [Point(1, 6), Point(5, 4), Point(1, 5)];
ATPA[1] := [Point(1, 1), Point(2, 2)];
ATPA[2] := [Point(5, 10)];
SortATPAByMiddle(ATPA);
for i := 0 to High(ATPA) do
WriteLn(TPAToStr(ATPA[i]));
end.Output:
(1,1);(2,2) (1,6);(5,4);(1,5) (5,10)
