TPAEdge

Definition

procedure TPAEdge(var TPA: TPointArray);

Availability

SCAR Divi 3.37 > Current

Description

Filters all points out of the given TPointArray TPA which aren't edge-points. Edge-points are points that are on the edge of the TPA, not completely surrounded by other points.

Example

var
  TPA: TPointArray;

begin
  TPA := TPAFromBox(Box(1, 1, 3, 3)); 
  TPAEdge(TPA);
  WriteLn(TPAToStr(TPA));
end.

Output:

(1,1);(1,2);(1,3);(2,3);(3,3);(3,2);(2,1);(3,1)