TPAFilterBoxes
From SCAR Divi Manual
Definition
procedure TPAFilterBoxes(var TPA: TPointArray; const Boxes: TBoxArray);
Availability
SCAR Divi 3.25 > Current
Description
Filters a TPointArray TPA by removing all included coordinates that fall within the bounds of any of the boxes specified in the TBoxArray Boxes.
Example
var
TPA: TPointArray;
TBA: TBoxArray;
begin
TPA := [Point(0, 0), Point(2, 2), Point(2, 3), Point(5, 10)];
TBA := [IntToBox(0, 0, 2, 2)];
WriteLn('Unfiltered TPointArray: ' + TPAToStr(TPA));
TPAFilterBoxes(TPA, TBA);
WriteLn('Filtered TPointArray: ' + TPAToStr(TPA));
end.Output:
Unfiltered TPointArray: (0,0);(2,2);(2,3);(5,10) Filtered TPointArray: (2,3);(5,10)
