Difference between revisions of "TPABounds"
From SCAR Divi Manual
| (One intermediate revision by the same user not shown) | |||
| Line 8: | Line 8: | ||
===Aliases=== | ===Aliases=== | ||
| − | *GetTPABounds (SCAR Divi 3.20 > | + | *GetTPABounds (SCAR Divi 3.20 > 3.35) |
==Description== | ==Description== | ||
| 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) + ')'); | ||
Latest revision as of 12:52, 14 July 2012
Definition
function TPABounds(const TPA: TPointArray): TBox;
Availability
SCAR Divi 3.26 > Current
Aliases
- GetTPABounds (SCAR Divi 3.20 > 3.35)
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)
