Difference between revisions of "SortATPAByMiddleEx"
From SCAR Divi Manual
(→Example) |
|||
| Line 29: | Line 29: | ||
Output: | Output: | ||
| − | + | ||
(1,6);(5,4);(1,5) | (1,6);(5,4);(1,5) | ||
(5,10) | (5,10) | ||
Revision as of 11:04, 24 October 2011
Definition
procedure SortATPAByMiddleEx(var ATPA: T2DPointArray; const Point: TPoint);
Availability
SCAR Divi 3.28 > Current
Description
Sorts the given T2DPointArray ATPA by the distance of the middle of the points of every non-empty subarray calculated with TPAMiddle to the TPoint given in Point using the fast ShellSort algorithm. Empty subarrays are placed at the start of the array.
Example
var
ATPA: T2DPointArray;
i: Integer;
begin
SetLength(ATPA, 4);
ATPA[0] := [Point(1, 6), Point(5, 4), Point(1, 5)];
ATPA[1] := [Point(1, 1), Point(2, 2)];
ATPA[2] := [];
ATPA[3] := [Point(5, 10)];
SortATPAByMiddleEx(ATPA, Point(5, 5));
for i := 0 to High(ATPA) do
WriteLn(TPAToStr(ATPA[i]));
end.Output:
(1,6);(5,4);(1,5) (5,10) (1,1);(2,2)
