OffsetATPA

Definition

procedure OffsetATPA(var ATPA: T2DPointArray; const XOffset, YOffset: Integer);

Availability

SCAR Divi 3.28 > Current

Description

Offsets the points in every subarray of the given T2DPointArray ATPA using the OffsetTPA function.

Example

var
  ATPA: T2DPointArray;
  i: Integer;

begin
  SetLength(ATPA, 2);
  ATPA[0] := [Point(1, 6)];
  ATPA[1] := [Point(5, 6), Point(0, 0), Point(1, 1)];
  OffsetATPA(ATPA, 3, 2);
  for i := 0 to High(ATPA) do
    WriteLn(TPAToStr(ATPA[i]));
end.

Output:

(4,8)
(8,8);(3,2);(4,3)

See Also

• OffsetTPA