mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-03 14:12:17 -05:00
425 lines
15 KiB
PHP
425 lines
15 KiB
PHP
procedure Lape_Quicksort(const Params: PParamArray);
|
|
begin
|
|
ps_Quicksort(PIntegerArray(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_tSwap(const Params: PParamArray);
|
|
begin
|
|
ps_tSwap(PPoint(Params^[0])^, PPoint(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_tpaSwap(const Params: PParamArray);
|
|
begin
|
|
ps_tpaSwap(PPointArray(Params^[0])^, PPointArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_SwapE(const Params: PParamArray);
|
|
begin
|
|
ps_SwapE(PExtended(Params^[0])^, PExtended(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_RAaSTPAEx(const Params: PParamArray);
|
|
begin
|
|
ps_RAaSTPAEx(PPointArray(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_RAaSTPA(const Params: PParamArray);
|
|
begin
|
|
ps_RAaSTPA(PPointArray(Params^[0])^, PInteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_NearbyPointInArrayEx(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_NearbyPointInArrayEx(PPoint(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PPointArray(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_NearbyPointInArray(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_NearbyPointInArray(PPoint(Params^[0])^, PInteger(Params^[1])^, PPointArray(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_QuickTPASort(const Params: PParamArray);
|
|
begin
|
|
ps_QuickTPASort(PIntegerArray(Params^[0])^, PPointArray(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PBoolean(Params^[3])^);
|
|
end;
|
|
|
|
procedure Lape_QuickATPASort(const Params: PParamArray);
|
|
begin
|
|
ps_QuickATPASort(PIntegerArray(Params^[0])^, P2DPointArray(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PBoolean(Params^[3])^);
|
|
end;
|
|
|
|
procedure Lape_SortTPAFrom(const Params: PParamArray);
|
|
begin
|
|
ps_SortTPAFrom(PPointArray(Params^[0])^, PPoint(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_SortATPAFrom(const Params: PParamArray);
|
|
begin
|
|
ps_SortATPAFrom(P2DPointArray(Params^[0])^, PPoint(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_SortATPAFromFirstPoint(const Params: PParamArray);
|
|
begin
|
|
ps_SortATPAFromFirstPoint(P2DPointArray(Params^[0])^, PPoint(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_InvertTPA(const Params: PParamArray);
|
|
begin
|
|
ps_InvertTPA(PPointArray(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_InvertATPA(const Params: PParamArray);
|
|
begin
|
|
ps_InvertATPA(P2DPointArray(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_MiddleTPAEx(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_MiddleTPAEx(PPointArray(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_MiddleTPA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PPoint(Result)^ := ps_MiddleTPA(PPointArray(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_SortATPASize(const Params: PParamArray);
|
|
begin
|
|
ps_SortATPASize(P2DPointArray(Params^[0])^, PBoolean(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_SortATPAFromSize(const Params: PParamArray);
|
|
begin
|
|
ps_SortATPAFromSize(P2DPointArray(Params^[0])^, PInteger(Params^[1])^, PBoolean(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_InIntArrayEx(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_InIntArrayEx(PIntegerArray(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_InIntArray(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_InIntArray(PIntegerArray(Params^[0])^, PInteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_ClearSameIntegers(const Params: PParamArray);
|
|
begin
|
|
ps_ClearSameIntegers(PIntegerArray(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_ClearSameIntegersAndTPA(const Params: PParamArray);
|
|
begin
|
|
ps_ClearSameIntegersAndTPA(PIntegerArray(Params^[0])^, PPointArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_SplitTPAEx(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
P2DPointArray(Result)^ := ps_SplitTPAEx(PPointArray(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_SplitTPA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
P2DPointArray(Result)^ := ps_SplitTPA(PPointArray(Params^[0])^, PInteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_FloodFillTPA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
P2DPointArray(Result)^ := ps_FloodFillTPA(PPointArray(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_FilterPointsPie(const Params: PParamArray);
|
|
begin
|
|
ps_FilterPointsPie(PPointArray(Params^[0])^, PExtended(Params^[1])^, PExtended(Params^[2])^, PExtended(Params^[3])^, PExtended(Params^[4])^, PInteger(Params^[2])^, PInteger(Params^[3])^);
|
|
end;
|
|
|
|
procedure Lape_FilterPointsDist(const Params: PParamArray);
|
|
begin
|
|
ps_FilterPointsDist(PPointArray(Params^[0])^, PExtended(Params^[1])^, PExtended(Params^[2])^, PInteger(Params^[2])^, PInteger(Params^[3])^);
|
|
end;
|
|
|
|
procedure Lape_FilterPointsLine(const Params: PParamArray);
|
|
begin
|
|
ps_FilterPointsLine(PPointArray(Params^[0])^, PExtended(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^);
|
|
end;
|
|
|
|
procedure Lape_FilterTPADist(const Params: PParamArray);
|
|
begin
|
|
ps_FilterTPADist(PPointArray(Params^[0])^, Pinteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_GetATPABounds(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBox(Result)^ := ps_GetATPABounds(P2DPointArray(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_GetTPABounds(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBox(Result)^ := ps_GetTPABounds(PPointArray(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_FindTPAinTPA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_FindTPAinTPA(PPointArray(Params^[0])^, PPointArray(Params^[1])^, PPointArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_GetSamePointsATPA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pboolean(Result)^ := ps_GetSamePointsATPA(P2DPointArray(Params^[0])^, PPointArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_FindTextTPAinTPA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_FindTextTPAinTPA(Pinteger(Params^[0])^, PPointArray(Params^[1])^, PPointArray(Params^[2])^, PPointArray(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_SortCircleWise(const Params: PParamArray);
|
|
begin
|
|
ps_SortCircleWise(PPointArray(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PBoolean(Params^[2])^, PBoolean(Params^[3])^);
|
|
end;
|
|
|
|
procedure Lape_LinearSort(const Params: PParamArray);
|
|
begin
|
|
ps_LinearSort(PPointArray(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PBoolean(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_RotatePoint(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PPoint(Result)^ := ps_RotatePoint(PPoint(Params^[0])^, PExtended(Params^[1])^, PExtended(Params^[2])^, PExtended(Params^[3])^);
|
|
end;
|
|
|
|
procedure Lape_ChangeDistPT(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PPoint(Result)^ := ps_ChangeDistPT(PPoint(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^, Pextended(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_ChangeDistTPA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pboolean(Result)^ := ps_ChangeDistTPA(PPointArray(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^, Pextended(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_FindGapsTPA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
P2DPointArray(Result)^ := ps_FindGapsTPA(PPointArray(Params^[0])^, PInteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_RemoveDistTPointArray(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PPointArray(Result)^ := ps_RemoveDistTPointArray(PInteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PPointArray(Params^[1])^, PBoolean(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_CombineTPA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PPointArray(Result)^ := ps_CombineTPA(PPointArray(Params^[0])^, PPointArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_ReArrangeandShortenArrayEx(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PPointArray(Result)^ := ps_ReArrangeandShortenArrayEx(PPointArray(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_ReArrangeandShortenArray(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PPointArray(Result)^ := ps_ReArrangeandShortenArray(PPointArray(Params^[0])^, PInteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_TPAtoATPAEx(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
P2DPointArray(Result)^ := ps_TPAtoATPAEx(PPointArray(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_TPAtoATPA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
P2DPointArray(Result)^ := ps_TPAtoATPA(PPointArray(Params^[0])^, PInteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_CombineIntArray(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PIntegerArray(Result)^ := ps_CombineIntArray(PIntegerArray(Params^[0])^, PIntegerArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_MergeATPA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PPointArray(Result)^ := ps_MergeATPA(P2DPointArray(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_AppendTPA(const Params: PParamArray);
|
|
begin
|
|
ps_AppendTPA(PPointArray(Params^[0])^, PPointArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_TPAFromBox(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PPointArray(Result)^ := ps_TPAFromBox(PBox(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_RotatePoints(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PPointArray(Result)^ := ps_RotatePoints(PPointArray(Params^[0])^, PExtended(Params^[1])^, PExtended(Params^[2])^, PExtended(Params^[3])^);
|
|
end;
|
|
|
|
procedure Lape_FindTPAEdges(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PPointArray(Result)^ := ps_FindTPAEdges(PPointArray(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_ClearTPAFromTPA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PPointArray(Result)^ := ps_ClearTPAFromTPA(PPointArray(Params^[0])^, PPointArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_ReturnPointsNotInTPA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PPointArray(Result)^ := ps_ReturnPointsNotInTPA(PPointArray(Params^[0])^, PBox(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_PointInTPA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_PointInTPA(PPoint(Params^[0])^, PPointArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_ClearDoubleTPA(const Params: PParamArray);
|
|
begin
|
|
ps_ClearDoubleTPA(PPointArray(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_TPACountSort(const Params: PParamArray);
|
|
begin
|
|
ps_TPACountSort(PPointArray(Params^[0])^, PPoint(Params^[1])^, PBoolean(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_TPACountSortBase(const Params: PParamArray);
|
|
begin
|
|
ps_TPACountSortBase(PPointArray(Params^[0])^, PPoint(Params^[1])^, PPoint(Params^[2])^, PBoolean(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_InvertTIA(const Params: PParamArray);
|
|
begin
|
|
ps_InvertTIA(PIntegerArray(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_SumIntegerArray(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PInteger(Result)^ := ps_SumIntegerArray(PIntegerArray(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_AverageTIA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PInteger(Result)^ := ps_AverageTIA(PIntegerArray(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_AverageExtended(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PExtended(Result)^ := ps_AverageExtended(PExtendedArray(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_SplitTPAExWrap(const Params: PParamArray);
|
|
begin
|
|
ps_SplitTPAExWrap(PPointArray(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, P2DPointArray(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_SplitTPAWrap(const Params: PParamArray);
|
|
begin
|
|
ps_SplitTPAWrap(PPointArray(Params^[0])^, PInteger(Params^[1])^, P2DPointArray(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_FindGapsTPAWrap(const Params: PParamArray);
|
|
begin
|
|
ps_FindGapsTPAWrap(PPointArray(Params^[0])^, PInteger(Params^[1])^, P2DPointArray(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_RemoveDistTPointArrayWrap(const Params: PParamArray);
|
|
begin
|
|
ps_RemoveDistTPointArrayWrap(PInteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PPointArray(Params^[1])^, PBoolean(Params^[2])^, PPointArray(Params^[3])^);
|
|
end;
|
|
|
|
procedure Lape_CombineTPAWrap(const Params: PParamArray);
|
|
begin
|
|
ps_CombineTPAWrap(PPointArray(Params^[0])^, PPointArray(Params^[1])^, PPointArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_ReArrangeandShortenArrayExWrap(const Params: PParamArray);
|
|
begin
|
|
ps_ReArrangeandShortenArrayExWrap(PPointArray(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PPointArray(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_ReArrangeandShortenArrayWrap(const Params: PParamArray);
|
|
begin
|
|
ps_ReArrangeandShortenArrayWrap(PPointArray(Params^[0])^, PInteger(Params^[1])^, PPointArray(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_TPAtoATPAExWrap(const Params: PParamArray);
|
|
begin
|
|
ps_TPAtoATPAExWrap(PPointArray(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, P2DPointArray(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_TPAtoATPAWrap(const Params: PParamArray);
|
|
begin
|
|
ps_TPAtoATPAWrap(PPointArray(Params^[0])^, PInteger(Params^[1])^, P2DPointArray(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_CombineIntArrayWrap(const Params: PParamArray);
|
|
begin
|
|
ps_CombineIntArrayWrap(PIntegerArray(Params^[0])^, PIntegerArray(Params^[1])^, PIntegerArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_MergeATPAWrap(const Params: PParamArray);
|
|
begin
|
|
ps_MergeATPAWrap(P2DPointArray(Params^[0])^, PPointArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_TPAFromBoxWrap(const Params: PParamArray);
|
|
begin
|
|
ps_TPAFromBoxWrap(PBox(Params^[0])^, PPointArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_RotatePointsWrap(const Params: PParamArray);
|
|
begin
|
|
ps_RotatePointsWrap(PPointArray(Params^[0])^, PExtended(Params^[1])^, PExtended(Params^[2])^, PExtended(Params^[3])^, PPointArray(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_FindTPAEdgesWrap(const Params: PParamArray);
|
|
begin
|
|
ps_FindTPAEdgesWrap(PPointArray(Params^[0])^, PPointArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_ClearTPAFromTPAWrap(const Params: PParamArray);
|
|
begin
|
|
ps_ClearTPAFromTPAWrap(PPointArray(Params^[0])^, PPointArray(Params^[1])^, PPointArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_ReturnPointsNotInTPAWrap(const Params: PParamArray);
|
|
begin
|
|
ps_ReturnPointsNotInTPAWrap(PPointArray(Params^[0])^, PBox(Params^[1])^, PPointArray(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_SameTPA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_SameTPA(PPointArray(Params^[0])^, PPointArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_TPAInATPA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_TPAInATPA(PPointArray(Params^[0])^, P2DPointArray(Params^[1])^, PLongInt(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_OffsetTPA(const Params: PParamArray);
|
|
begin
|
|
ps_OffsetTPA(PPointArray(Params^[0])^, PPoint(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_OffsetATPA(const Params: PParamArray);
|
|
begin
|
|
ps_OffsetATPA(P2DPointArray(Params^[0])^, PPoint(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_CopyTPA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PPointArray(Result)^ := ps_CopyTPA(PPointArray(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_CopyATPA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
P2DPointArray(Result)^ := ps_CopyATPA(P2DPointArray(Params^[0])^);
|
|
end;
|