mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-14 05:15:16 -05:00
679 lines
11 KiB
ReStructuredText
679 lines
11 KiB
ReStructuredText
|
|
.. _scriptref_tpa:
|
|
|
|
TPointArray Functions
|
|
=====================
|
|
|
|
Quicksort
|
|
---------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure Quicksort(var Arr : TIntegerArray);
|
|
|
|
|
|
tSwap
|
|
-----
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure tSwap(var a, b: TPoint);
|
|
|
|
|
|
tpaSwap
|
|
-------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure tpaSwap(var a, b: TPointArray);
|
|
|
|
|
|
SwapE
|
|
-----
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure SwapE(var a, b: Extended);
|
|
|
|
|
|
RAaSTPAEx
|
|
---------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure RAaSTPAEx(var a: TPointArray; const w, h: Integer);
|
|
|
|
|
|
RAaSTPA
|
|
-------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure RAaSTPA(var a: TPointArray; const Dist: Integer);
|
|
|
|
|
|
NearbyPointInArrayEx
|
|
--------------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function NearbyPointInArrayEx(const P: TPoint; w, h:Integer;const a: TPointArray): Boolean;
|
|
|
|
|
|
NearbyPointInArray
|
|
------------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function NearbyPointInArray(const P: TPoint; Dist:Integer;const a: TPointArray): Boolean;
|
|
|
|
|
|
QuickTPASort
|
|
------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure QuickTPASort(var A: TIntegerArray; var B: TPointArray; iLo, iHi: Integer; SortUp: Boolean);
|
|
|
|
|
|
QuickATPASort
|
|
-------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure QuickATPASort(var A: TIntegerArray; var B: T2DPointArray; iLo, iHi: Integer; SortUp: Boolean);
|
|
|
|
|
|
SortTPAFrom
|
|
-----------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure SortTPAFrom(var a: TPointArray; const From: TPoint);
|
|
|
|
|
|
SortATPAFrom
|
|
------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure SortATPAFrom(var a: T2DPointArray; const From: TPoint);
|
|
|
|
|
|
SortATPAFromFirstPoint
|
|
----------------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure SortATPAFromFirstPoint(var a: T2DPointArray; const From: TPoint);
|
|
|
|
|
|
InvertTPA
|
|
---------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure InvertTPA(var a: TPointArray);
|
|
|
|
|
|
InvertATPA
|
|
----------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure InvertATPA(var a: T2DPointArray);
|
|
|
|
|
|
MiddleTPAEx
|
|
-----------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function MiddleTPAEx(const TPA: TPointArray; var x, y: Integer): Boolean;
|
|
|
|
|
|
MiddleTPA
|
|
---------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function MiddleTPA(const tpa: TPointArray): TPoint;
|
|
|
|
|
|
SortATPASize
|
|
------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure SortATPASize(var a: T2DPointArray; const BigFirst: Boolean);
|
|
|
|
|
|
SortATPAFromSize
|
|
----------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure SortATPAFromSize(var a: T2DPointArray; const Size: Integer; CloseFirst: Boolean);
|
|
|
|
|
|
InIntArrayEx
|
|
------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function InIntArrayEx(const a: TIntegerArray; var Where: Integer; const Number: Integer): Boolean;
|
|
|
|
|
|
InIntArray
|
|
----------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function InIntArray(const a: TIntegerArray; Number: Integer): Boolean;
|
|
|
|
|
|
ClearSameIntegers
|
|
-----------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure ClearSameIntegers(var a: TIntegerArray);
|
|
|
|
|
|
ClearSameIntegersAndTPA
|
|
-----------------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure ClearSameIntegersAndTPA(var a: TIntegerArray; var p: TPointArray);
|
|
|
|
|
|
SplitTPAEx
|
|
----------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function SplitTPAEx(const arr: TPointArray; w, h: Integer): T2DPointArray;
|
|
|
|
|
|
SplitTPA
|
|
--------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function SplitTPA(const arr: TPointArray; Dist: Integer): T2DPointArray;
|
|
|
|
|
|
FloodFillTPA
|
|
------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function FloodFillTPA(const TPA : TPointArray) : T2DPointArray;
|
|
|
|
|
|
FilterPointsPie
|
|
---------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure FilterPointsPie(var Points: TPointArray; const SD, ED, MinR, MaxR: Extended; Mx, My: Integer);
|
|
|
|
|
|
FilterPointsLine
|
|
----------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure FilterPointsLine(var Points: TPointArray; Radial: Extended; Radius, MX, MY: Integer);
|
|
|
|
|
|
FilterPointsDist
|
|
----------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure FilterPointsDist(var Points: TPointArray; const MinDist, MaxDist: Extended; Mx, My: Integer);
|
|
|
|
|
|
GetATPABounds
|
|
-------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function GetATPABounds(const ATPA: T2DPointArray): TBox;
|
|
|
|
|
|
GetTPABounds
|
|
------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function GetTPABounds(const TPA: TPointArray): TBox;
|
|
|
|
|
|
FindTPAinTPA
|
|
------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function FindTPAinTPA(const SearchTPA, TotalTPA: TPointArray; var Matches: TPointArray): Boolean;
|
|
|
|
|
|
GetSamePointsATPA
|
|
-----------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function GetSamePointsATPA(const ATPA : T2DPointArray; var Matches : TPointArray) : boolean;
|
|
|
|
|
|
FindTextTPAinTPA
|
|
----------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function FindTextTPAinTPA(Height : integer;const SearchTPA, TotalTPA: TPointArray; var Matches: TPointArray): Boolean;
|
|
|
|
|
|
SortCircleWise
|
|
--------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure SortCircleWise(var tpa: TPointArray; const cx, cy, StartDegree: Integer; SortUp, ClockWise: Boolean);
|
|
|
|
|
|
LinearSort
|
|
----------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure LinearSort(var tpa: TPointArray; cx, cy, sd: Integer; SortUp: Boolean);
|
|
|
|
|
|
RotatePoint
|
|
-----------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function RotatePoint(Const p: TPoint; angle, mx, my: Extended): TPoint;
|
|
|
|
|
|
ChangeDistPT
|
|
------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function ChangeDistPT(const PT : TPoint; mx,my : integer; newdist : extended) : TPoint;
|
|
|
|
|
|
ChangeDistTPA
|
|
-------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function ChangeDistTPA(var TPA : TPointArray; mx,my : integer; newdist : extended) : boolean;
|
|
|
|
|
|
FindGapsTPA
|
|
-----------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function FindGapsTPA(const TPA: TPointArray; MinPixels: Integer): T2DPointArray;
|
|
|
|
|
|
RemoveDistTPointArray
|
|
---------------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function RemoveDistTPointArray(x, y, dist: Integer;const ThePoints: TPointArray; RemoveHigher: Boolean): TPointArray;
|
|
|
|
|
|
CombineTPA
|
|
----------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function CombineTPA(const Ar1, Ar2: TPointArray): TPointArray;
|
|
|
|
|
|
ReArrangeandShortenArrayEx
|
|
--------------------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function ReArrangeandShortenArrayEx(const a: TPointArray; w, h: Integer): TPointArray;
|
|
|
|
|
|
ReArrangeandShortenArray
|
|
------------------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function ReArrangeandShortenArray(const a: TPointArray; Dist: Integer): TPointArray;
|
|
|
|
|
|
TPAtoATPAEx
|
|
-----------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function TPAtoATPAEx(const TPA: TPointArray; w, h: Integer): T2DPointArray;
|
|
|
|
|
|
TPAtoATPA
|
|
---------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function TPAtoATPA(const TPA: TPointArray; Dist: Integer): T2DPointArray;
|
|
|
|
|
|
CombineIntArray
|
|
---------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function CombineIntArray(const Ar1, Ar2: TIntegerArray): TIntegerArray;
|
|
|
|
|
|
MergeATPA
|
|
---------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function MergeATPA(const ATPA : T2DPointArray) : TPointArray;
|
|
|
|
|
|
AppendTPA
|
|
---------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure AppendTPA(var TPA: TPointArray; const ToAppend: TPointArray);
|
|
|
|
|
|
TPAFromBox
|
|
----------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function TPAFromBox(const Box : TBox) : TPointArray;
|
|
|
|
|
|
RotatePoints
|
|
------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function RotatePoints(Const P: TPointArray; A, cx, cy: Extended): TPointArray ;
|
|
|
|
|
|
FindTPAEdges
|
|
------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function FindTPAEdges(const p: TPointArray): TPointArray;
|
|
|
|
|
|
ClearTPAFromTPA
|
|
---------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function ClearTPAFromTPA(const arP, ClearPoints: TPointArray): TPointArray;
|
|
|
|
|
|
ReturnPointsNotInTPA
|
|
--------------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function ReturnPointsNotInTPA(Const TotalTPA: TPointArray; const Box: TBox): TPointArray;
|
|
|
|
|
|
PointInTPA
|
|
----------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function PointInTPA(p: TPoint;const arP: TPointArray): Boolean;
|
|
|
|
|
|
ClearDoubleTPA
|
|
--------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure ClearDoubleTPA(var TPA: TPointArray);
|
|
|
|
|
|
TPACountSort
|
|
------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure TPACountSort(Var TPA: TPointArray;const max: TPoint;Const SortOnX : Boolean);
|
|
|
|
|
|
TPACountSortBase
|
|
----------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure TPACountSortBase(Var TPA: TPointArray;const maxx, base: TPoint; const SortOnX : Boolean);
|
|
|
|
|
|
InvertTIA
|
|
---------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure InvertTIA(var tI: TIntegerArray);
|
|
|
|
|
|
SumIntegerArray
|
|
---------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function SumIntegerArray(const Ints : TIntegerArray): Integer;
|
|
|
|
|
|
AverageTIA
|
|
----------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function AverageTIA(const tI: TIntegerArray): Integer;
|
|
|
|
|
|
AverageExtended
|
|
---------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function AverageExtended(const tE: TExtendedArray): Extended;
|
|
|
|
|
|
SplitTPAExWrap
|
|
--------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure SplitTPAExWrap(const arr: TPointArray; w, h: Integer; var res : T2DPointArray);
|
|
|
|
|
|
SplitTPAWrap
|
|
------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure SplitTPAWrap(const arr: TPointArray; Dist: Integer; var res: T2DPointArray);
|
|
|
|
|
|
FindGapsTPAWrap
|
|
---------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure FindGapsTPAWrap(const TPA: TPointArray; MinPixels: Integer; var Res : T2DPointArray);
|
|
|
|
|
|
RemoveDistTPointArrayWrap
|
|
-------------------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure RemoveDistTPointArrayWrap(x, y, dist: Integer;const ThePoints: TPointArray; RemoveHigher: Boolean; var Res : TPointArray);
|
|
|
|
|
|
CombineTPAWrap
|
|
--------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure CombineTPAWrap(const Ar1, Ar2: TPointArray; var Res : TPointArray);
|
|
|
|
|
|
ReArrangeandShortenArrayExWrap
|
|
------------------------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure ReArrangeandShortenArrayExWrap(const a: TPointArray; w, h: Integer; var Res : TPointArray);
|
|
|
|
|
|
ReArrangeandShortenArrayWrap
|
|
----------------------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure ReArrangeandShortenArrayWrap(const a: TPointArray; Dist: Integer; var Res : TPointArray);
|
|
|
|
|
|
TPAtoATPAExWrap
|
|
---------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure TPAtoATPAExWrap(const TPA: TPointArray; w, h: Integer; var Res : T2DPointArray);
|
|
|
|
|
|
TPAtoATPAWrap
|
|
-------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure TPAtoATPAWrap(const TPA: TPointArray; Dist: Integer; var Res : T2DPointArray);
|
|
|
|
|
|
CombineIntArrayWrap
|
|
-------------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure CombineIntArrayWrap(const Ar1, Ar2: TIntegerArray; var Res : TIntegerArray);
|
|
|
|
|
|
ReturnPointsNotInTPAWrap
|
|
------------------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure ReturnPointsNotInTPAWrap(Const TotalTPA: TPointArray; const Box: TBox; var Res : TPointArray);
|
|
|
|
|
|
MergeATPAWrap
|
|
-------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure MergeATPAWrap(const ATPA : T2DPointArray; var Res: TPointArray);
|
|
|
|
|
|
TPAFromBoxWrap
|
|
--------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure TPAFromBoxWrap(const Box : TBox; var Res : TPointArray);
|
|
|
|
|
|
RotatePointsWrap
|
|
----------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure RotatePointsWrap(Const P: TPointArray; A, cx, cy: Extended; var Res : TPointArray);
|
|
|
|
|
|
FindTPAEdgesWrap
|
|
----------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure FindTPAEdgesWrap(const p: TPointArray; var Res : TPointArray);
|
|
|
|
|
|
ClearTPAFromTPAWrap
|
|
-------------------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure ClearTPAFromTPAWrap(const arP, ClearPoints: TPointArray; var Res : TPointArray);
|
|
|
|
|
|
SameTPA
|
|
-------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function SameTPA(const aTPA, bTPA: TPointArray): Boolean;
|
|
|
|
|
|
TPAInATPA
|
|
---------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function TPAInATPA(const TPA: TPointArray;const InATPA: T2DPointArray; var Index: LongInt): Boolean;
|
|
|
|
|
|
OffsetTPA
|
|
---------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure OffsetTPA(var TPA : TPointArray; const Offset : TPoint);
|
|
|
|
|
|
OffsetATPA
|
|
----------
|
|
|
|
.. code-block:: pascal
|
|
|
|
procedure OffsetATPA(var ATPA : T2DPointArray; const Offset : TPoint);
|
|
|
|
|
|
CopyTPA
|
|
-------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function CopyTPA(const TPA : TPointArray) : TPointArray;
|
|
|
|
|
|
CopyATPA
|
|
--------
|
|
|
|
.. code-block:: pascal
|
|
|
|
function CopyATPA(const ATPA : T2DPointArray) : T2DPointArray;
|
|
|
|
|