Difference between revisions of "TPAArea"

Latest revision as of 14:57, 3 July 2011

function TPAArea(const TPA: TPointArray): Integer;

function TPAArea(const TPA: TPointArray): Integer;
var
  w, h: Integer;
begin
  TPADimensions(TPA, w, h);
  Result := w * h;
end;

SCAR Divi 3.26 > Current

Returns the size of the area covered by a given TPointArray TPA.

begin
  WriteLn(TPAArea([Point(0, 0), Point(1, 2), Point(5, 4)]));
end.

Output:

@@ Line 1: / Line 1: @@
 ==Definition==
 <source lang="scar" lines="false">
-function TPAInTPA(const TPA1, TPA2: TPointArray): Boolean;
+function TPAArea(const TPA: TPointArray): Integer;
+</source>
+===Source Code===
+<source lang="scar">
+function TPAArea(const TPA: TPointArray): Integer;
+var
+  w, h: Integer;
+begin
+  TPADimensions(TPA, w, h);
+  Result := w * h;
+end;
 </source>
 ==Availability==
-SCAR Divi 3.20 > Current
+SCAR Divi 3.26 > Current
 ==Description==
-Returns [[true]] if all points in '''TPA1''' are also part of '''TPA2'''. The function does not take into account duplicates.
+Returns the size of the area covered by a given [[TPointArray]] '''TPA'''.
 ==Example==
 <source lang="scar">
 begin
-   WriteLn(TPAInTPA([Point(0, 0), Point(1, 2), Point(5, 6)],
+   WriteLn(TPAArea([Point(0, 0), Point(1, 2), Point(5, 4)]));
-    [Point(-5, 2), Point(0, 0), Point(1, 2), Point(5, 6), Point(1, 3)]));
-  WriteLn(TPAInTPA([Point(0, 0), Point(1, 2), Point(5, 6)],
-    [Point(-5, 2), Point(1, 2), Point(5, 6), Point(1, 3)]));
 end.
 </source>
 Output:
 ==See Also==
-*[[TPAContains]]
+*[[TPADensity]]
+*[[TPADimensions]]
+*[[TPABounds]]
 [[Category:Functions]]
 [[Category:TPA Functions]]
 [[Category:Array Functions]]