Difference between revisions of "TPAExtractCircle"
From SCAR Divi Manual
(Created page with "==Definition== <source lang="scar" lines="false"> procedure TPAExtractCircle(var TPA: TPointArray; const Center: TPoint; const Radius: Extended); </source> ==Availability== SCAR...") |
|||
| Line 29: | Line 29: | ||
==See Also== | ==See Also== | ||
*[[TPAFilterCircle]] | *[[TPAFilterCircle]] | ||
| + | *[[TPAExtractTriangle]] | ||
*[[TPAExtractPie]] | *[[TPAExtractPie]] | ||
*[[TPAExtractBoxes]] | *[[TPAExtractBoxes]] | ||
Latest revision as of 14:02, 21 November 2012
Definition
procedure TPAExtractCircle(var TPA: TPointArray; const Center: TPoint; const Radius: Extended);
Availability
SCAR Divi 3.33 > Current
Description
Extracts points from a given TPointArray TPA by removing all points that are not inside of the given circle area. Center determines the center of the circle and 'Radius represents the radius from the center you wish to extract.
Example
var
TPA: TPointArray;
begin
TPA := [Point(0, 0), Point(2, 2), Point(2, 3), Point(5, 10)];
WriteLn(TPAToStr(TPA));
TPAExtractCircle(TPA, Point(0, 0), 4);
WriteLn('Extracted: ' + TPAToStr(TPA));
end.Output:
(0,0);(2,2);(2,3);(5,10) Extracted: (0,0);(2,2);(2,3)
