|
|
(2 intermediate revisions by the same user not shown) |
Line 1: |
Line 1: |
− | ==Definition==
| + | #REDIRECT [[SortATPAByMean]] |
− | <source lang="scar" lines="false">
| |
− | procedure SortATPAByMiddle(var ATPA: T2DPointArray);
| |
− | </source>
| |
| | | |
− | ==Availability==
| + | [[Category:Deprecated Functions]] |
− | 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 [http://en.wikipedia.org/wiki/Shell_sort ShellSort] algorithm. An extended function with additional functionality is available as [[SortATPAByMiddleEx]].
| |
− | | |
− | ==Example==
| |
− | <source lang="scar">
| |
− | 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.
| |
− | </source>
| |
− | | |
− | Output:
| |
− | (1,1);(2,2)
| |
− | (1,6);(5,4);(1,5)
| |
− | (5,10)
| |
− | | |
− | ==See Also==
| |
− | *[[SortATPAByMiddleEx]]
| |
− | *[[SortATPABySize]]
| |
− | | |
− | [[Category:Functions]]
| |
− | [[Category:TPA Functions]]
| |
− | [[Category:Array Functions]] | |