Difference between revisions of "TPABounds"
From SCAR Divi Manual
| 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)]; | ||
| − | Box := | + | Box := TPABounds(TPA); |
WriteLn('Box(' + IntToStr(Box.x1) + ',' + IntToStr(Box.y1) + ',' + | WriteLn('Box(' + IntToStr(Box.x1) + ',' + IntToStr(Box.y1) + ',' + | ||
IntToStr(Box.x2) + ',' + IntToStr(Box.y2) + ')'); | IntToStr(Box.x2) + ',' + IntToStr(Box.y2) + ')'); | ||
Revision as of 10:02, 1 July 2011
Definition
function TPABounds(const TPA: TPointArray): TBox;
Availability
SCAR Divi 3.26 > Current
Aliases
- GetTPABounds (SCAR Divi 3.20 > Current)
Description
This function calculates the bounds of a given TPointArray TPA by searching the most outer coordinates of a box which can contain all of the points and returns that box as a TBox.
Example
var
TPA: TPointArray;
Box: TBox;
begin
TPA := [Point(0, 0), Point(2, 2), Point(5, 10)];
Box := TPABounds(TPA);
WriteLn('Box(' + IntToStr(Box.x1) + ',' + IntToStr(Box.y1) + ',' +
IntToStr(Box.x2) + ',' + IntToStr(Box.y2) + ')');
end.Output:
Box(0,0,5,10)
