TPointArray Functions

Quicksort

procedure Quicksort(var Arr : TIntegerArray);

tSwap

procedure tSwap(var a, b: TPoint);

tpaSwap

procedure tpaSwap(var a, b: TPointArray);

SwapE

procedure SwapE(var a, b: Extended);

RAaSTPAEx

procedure RAaSTPAEx(var a: TPointArray; const w, h: Integer);

RAaSTPA

procedure RAaSTPA(var a: TPointArray; const Dist: Integer);

NearbyPointInArrayEx

function NearbyPointInArrayEx(const P: TPoint; w, h:Integer;const  a: TPointArray): Boolean;

NearbyPointInArray

function NearbyPointInArray(const P: TPoint; Dist:Integer;const  a: TPointArray): Boolean;

QuickTPASort

procedure QuickTPASort(var A: TIntegerArray; var B: TPointArray; iLo, iHi: Integer; SortUp: Boolean);

QuickATPASort

procedure QuickATPASort(var A: TIntegerArray; var B: T2DPointArray; iLo, iHi: Integer; SortUp: Boolean);

SortTPAFrom

procedure SortTPAFrom(var a: TPointArray; const From: TPoint);

SortATPAFrom

procedure SortATPAFrom(var a: T2DPointArray; const From: TPoint);

SortATPAFromFirstPoint

procedure SortATPAFromFirstPoint(var a: T2DPointArray; const From: TPoint);

InvertTPA

procedure InvertTPA(var a: TPointArray);

InvertATPA

procedure InvertATPA(var a: T2DPointArray);

MiddleTPAEx

function MiddleTPAEx(const TPA: TPointArray; var x, y: Integer): Boolean;

MiddleTPA

function MiddleTPA(const tpa: TPointArray): TPoint;

SortATPASize

procedure SortATPASize(var a: T2DPointArray; const BigFirst: Boolean);

SortATPAFromSize

procedure SortATPAFromSize(var a: T2DPointArray; const Size: Integer; CloseFirst: Boolean);

InIntArrayEx

function InIntArrayEx(const a: TIntegerArray; var Where: Integer; const Number: Integer): Boolean;

InIntArray

function InIntArray(const a: TIntegerArray; Number: Integer): Boolean;

ClearSameIntegers

procedure ClearSameIntegers(var a: TIntegerArray);

ClearSameIntegersAndTPA

procedure ClearSameIntegersAndTPA(var a: TIntegerArray; var p: TPointArray);

SplitTPAEx

function SplitTPAEx(const arr: TPointArray; w, h: Integer): T2DPointArray;

SplitTPA

function SplitTPA(const arr: TPointArray; Dist: Integer): T2DPointArray;

FloodFillTPA

function FloodFillTPA(const TPA : TPointArray) : T2DPointArray;

FilterPointsPie

procedure FilterPointsPie(var Points: TPointArray; const SD, ED, MinR, MaxR: Extended; Mx, My: Integer);

FilterPointsLine

procedure FilterPointsLine(var Points: TPointArray; Radial: Extended; Radius, MX, MY: Integer);

FilterPointsDist

procedure FilterPointsDist(var Points: TPointArray; const MinDist, MaxDist: Extended; Mx, My: Integer);

GetATPABounds

function GetATPABounds(const ATPA: T2DPointArray): TBox;

GetTPABounds

function GetTPABounds(const TPA: TPointArray): TBox;

FindTPAinTPA

function FindTPAinTPA(const SearchTPA, TotalTPA: TPointArray; var Matches: TPointArray): Boolean;

GetSamePointsATPA

function GetSamePointsATPA(const  ATPA : T2DPointArray; var Matches : TPointArray) : boolean;

FindTextTPAinTPA

function FindTextTPAinTPA(Height : integer;const  SearchTPA, TotalTPA: TPointArray; var Matches: TPointArray): Boolean;

SortCircleWise

procedure SortCircleWise(var tpa: TPointArray; const cx, cy, StartDegree: Integer; SortUp, ClockWise: Boolean);

LinearSort

procedure LinearSort(var tpa: TPointArray; cx, cy, sd: Integer; SortUp: Boolean);

RotatePoint

function RotatePoint(Const p: TPoint; angle, mx, my: Extended): TPoint;

ChangeDistPT

function ChangeDistPT(const PT : TPoint; mx,my : integer; newdist : extended) : TPoint;

ChangeDistTPA

function ChangeDistTPA(var TPA : TPointArray; mx,my : integer; newdist : extended) : boolean;

FindGapsTPA

function FindGapsTPA(const TPA: TPointArray; MinPixels: Integer): T2DPointArray;

RemoveDistTPointArray

function RemoveDistTPointArray(x, y, dist: Integer;const  ThePoints: TPointArray; RemoveHigher: Boolean): TPointArray;

CombineTPA

function CombineTPA(const Ar1, Ar2: TPointArray): TPointArray;

ReArrangeandShortenArrayEx

function ReArrangeandShortenArrayEx(const a: TPointArray; w, h: Integer): TPointArray;

ReArrangeandShortenArray

function ReArrangeandShortenArray(const a: TPointArray; Dist: Integer): TPointArray;

TPAtoATPAEx

function TPAtoATPAEx(const TPA: TPointArray; w, h: Integer): T2DPointArray;

TPAtoATPA

function TPAtoATPA(const TPA: TPointArray; Dist: Integer): T2DPointArray;

CombineIntArray

function CombineIntArray(const Ar1, Ar2: TIntegerArray): TIntegerArray;

MergeATPA

function MergeATPA(const ATPA : T2DPointArray)  : TPointArray;

AppendTPA

procedure AppendTPA(var TPA: TPointArray; const ToAppend: TPointArray);

TPAFromBox

function TPAFromBox(const Box : TBox) : TPointArray;

RotatePoints

function RotatePoints(Const P: TPointArray; A, cx, cy: Extended): TPointArray ;

FindTPAEdges

function FindTPAEdges(const p: TPointArray): TPointArray;

ClearTPAFromTPA

function ClearTPAFromTPA(const arP, ClearPoints: TPointArray): TPointArray;

ReturnPointsNotInTPA

function ReturnPointsNotInTPA(Const TotalTPA: TPointArray; const Box: TBox): TPointArray;

PointInTPA

function PointInTPA(p: TPoint;const  arP: TPointArray): Boolean;

ClearDoubleTPA

procedure ClearDoubleTPA(var TPA: TPointArray);

TPACountSort

procedure TPACountSort(Var TPA: TPointArray;const max: TPoint;Const SortOnX : Boolean);

TPACountSortBase

procedure TPACountSortBase(Var TPA: TPointArray;const maxx, base: TPoint; const SortOnX : Boolean);

InvertTIA

procedure InvertTIA(var tI: TIntegerArray);

SumIntegerArray

function SumIntegerArray(const Ints : TIntegerArray): Integer;

AverageTIA

function AverageTIA(const tI: TIntegerArray): Integer;

AverageExtended

function AverageExtended(const tE: TExtendedArray): Extended;

SplitTPAExWrap

procedure SplitTPAExWrap(const arr: TPointArray; w, h: Integer; var res : T2DPointArray);

SplitTPAWrap

procedure SplitTPAWrap(const arr: TPointArray; Dist: Integer; var res: T2DPointArray);

FindGapsTPAWrap

procedure FindGapsTPAWrap(const TPA: TPointArray; MinPixels: Integer; var Res : T2DPointArray);

RemoveDistTPointArrayWrap

procedure RemoveDistTPointArrayWrap(x, y, dist: Integer;const  ThePoints: TPointArray; RemoveHigher: Boolean; var Res :  TPointArray);

CombineTPAWrap

procedure CombineTPAWrap(const Ar1, Ar2: TPointArray; var Res :  TPointArray);

ReArrangeandShortenArrayExWrap

procedure ReArrangeandShortenArrayExWrap(const a: TPointArray; w, h: Integer; var Res :  TPointArray);

ReArrangeandShortenArrayWrap

procedure ReArrangeandShortenArrayWrap(const a: TPointArray; Dist: Integer; var Res :  TPointArray);

TPAtoATPAExWrap

procedure TPAtoATPAExWrap(const TPA: TPointArray; w, h: Integer; var Res :  T2DPointArray);

TPAtoATPAWrap

procedure TPAtoATPAWrap(const TPA: TPointArray; Dist: Integer; var Res :  T2DPointArray);

CombineIntArrayWrap

procedure CombineIntArrayWrap(const Ar1, Ar2: TIntegerArray; var Res :  TIntegerArray);

ReturnPointsNotInTPAWrap

procedure ReturnPointsNotInTPAWrap(Const TotalTPA: TPointArray; const Box: TBox; var Res :  TPointArray);

MergeATPAWrap

procedure MergeATPAWrap(const ATPA : T2DPointArray; var Res: TPointArray);

TPAFromBoxWrap

procedure TPAFromBoxWrap(const Box : TBox; var Res : TPointArray);

RotatePointsWrap

procedure RotatePointsWrap(Const P: TPointArray; A, cx, cy: Extended; var Res :  TPointArray);

FindTPAEdgesWrap

procedure FindTPAEdgesWrap(const p: TPointArray; var Res :  TPointArray);

ClearTPAFromTPAWrap

procedure ClearTPAFromTPAWrap(const arP, ClearPoints: TPointArray;  var Res :  TPointArray);

SameTPA

function SameTPA(const aTPA, bTPA: TPointArray): Boolean;

TPAInATPA

function TPAInATPA(const TPA: TPointArray;const  InATPA: T2DPointArray; var Index: LongInt): Boolean;

OffsetTPA

procedure OffsetTPA(var TPA : TPointArray; const Offset : TPoint);

OffsetATPA

procedure OffsetATPA(var ATPA : T2DPointArray; const Offset : TPoint);

CopyTPA

function CopyTPA(const TPA : TPointArray) : TPointArray;

CopyATPA

function CopyATPA(const ATPA : T2DPointArray) : T2DPointArray;