Difference between revisions of "ReverseATPA"

From SCAR Divi Manual
Jump to: navigation, search
m (Freddy moved page InvertATPA to ReverseATPA)
 
Line 1: Line 1:
 
==Definition==
 
==Definition==
 
<source lang="scar" lines="false">
 
<source lang="scar" lines="false">
procedure InvertATPA(var ATPA: T2DPointArray);
+
procedure ReverseATPA(var ATPA: T2DPointArray);
 
</source>
 
</source>
  
 
==Availability==
 
==Availability==
SCAR Divi 3.28 > Current
+
SCAR Divi 3.36 > Current
 +
 
 +
===Aliases===
 +
*InvertATPA (SCAR Divi 3.28 > 3.35)
  
 
==Description==
 
==Description==
This function inverts a given [[T2DPointArray]] '''ATPA''' by reversing the order of the arrays contained in within it.
+
This function reverses a given [[T2DPointArray]] '''ATPA''' by reversing the order of the arrays contained in within it.
  
 
==Example==
 
==Example==
Line 21: Line 24:
 
   ATPA[1] := [Point(1, 1), Point(2, 2)];
 
   ATPA[1] := [Point(1, 1), Point(2, 2)];
 
   ATPA[2] := [Point(5, 10)];
 
   ATPA[2] := [Point(5, 10)];
   InvertATPA(ATPA);
+
   ReverseATPA(ATPA);
 
   for i := 0 to High(ATPA) do
 
   for i := 0 to High(ATPA) do
 
     WriteLn(TPAToStr(ATPA[i]));
 
     WriteLn(TPAToStr(ATPA[i]));

Latest revision as of 00:16, 8 September 2012

Definition

procedure ReverseATPA(var ATPA: T2DPointArray);

Availability

SCAR Divi 3.36 > Current

Aliases

  • InvertATPA (SCAR Divi 3.28 > 3.35)

Description

This function reverses a given T2DPointArray ATPA by reversing the order of the arrays contained in within it.

Example

var
  ATPA: T2DPointArray;
  i: Integer;

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

Output:

(5,10)
(1,1);(2,2)
(1,6);(5,4);(1,5)

See Also