Difference between revisions of "TPAMiddle"
From SCAR Divi Manual
(→Example) |
|||
| Line 21: | Line 21: | ||
begin | begin | ||
TPA := [Point(0, 0), Point(2, 2), Point(5, 10)]; | TPA := [Point(0, 0), Point(2, 2), Point(5, 10)]; | ||
| − | MiddlePoint := | + | MiddlePoint := TPAMiddle(TPA); |
WriteLn('Middle-Point(' + IntToStr(MiddlePoint.x) + ',' + IntToStr(MiddlePoint.y) + ')'); | WriteLn('Middle-Point(' + IntToStr(MiddlePoint.x) + ',' + IntToStr(MiddlePoint.y) + ')'); | ||
end. | end. | ||
Revision as of 19:57, 26 June 2011
Definition
function TPAMiddle(const TPA: TPointArray): TPoint;
Availability
SCAR Divi 3.20 > Current
Description
This function determines the center point of a given TPointArray TPA by calculating the averages of the x and y coordinates. An extended function with additional functionality is available as TPAMiddleEx.
Aliases
- MiddleTPA
Example
var
TPA: TPointArray;
MiddlePoint: TPoint;
begin
TPA := [Point(0, 0), Point(2, 2), Point(5, 10)];
MiddlePoint := TPAMiddle(TPA);
WriteLn('Middle-Point(' + IntToStr(MiddlePoint.x) + ',' + IntToStr(MiddlePoint.y) + ')');
end.Output:
Middle-Point(2,4)
