52 changes: 52 additions & 0 deletions lib/utilities/types/tpointarrays.simba
Expand Up @@ -10,6 +10,32 @@ The source for this file can be found `here <https://github.com/SRL/SRL-6/blob/m


{$f-} {$f-}


(*
TPointArray.copy
~~~~~~~~~~~~~~~~

.. code-block:: pascal

function TPointArray.copy(): TPointArray;

Returns a copy of the array

.. note::

- by Coh3n

Example:

.. code-block:: pascal

TPA.copy(A2);

*)
function TPointArray.copy(): TPointArray;
begin
result := copyTPA(self);
end;

(* (*
TPointArray.copy; overload TPointArray.copy; overload
~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~
Expand Down Expand Up @@ -142,6 +168,32 @@ begin
result := (extended(length(tmp)) / (((b.x2 - b.x1) + 1) * ((b.x2 - b.x1) + 1))); result := (extended(length(tmp)) / (((b.x2 - b.x1) + 1) * ((b.x2 - b.x1) + 1)));
end; end;


(*
TPointArray.equals
~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

function TPointArray.equal() : Boolean;

Returns true if both TPointArrays are equal.

.. note::

- by Zyt3x

Example:

.. code-block:: pascal

b := TPA.equals(TPA2);

*)
function TPointArray.equals(const arr : TPointArray) : Boolean;
begin
result := sameTPA(self, arr);
end;

(* (*
TPointArray.isPointNear TPointArray.isPointNear
~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~
Expand Down