mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-11 20:05:03 -05:00
354ab2aab9
Fixed bug in FindDTM(s). Might want to optimze the function though. Replaced all the fSqrt with Sqrt.. git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@529 3f818213-9676-44b0-a9b4-5e4c4e03d09d
67 lines
2.3 KiB
PHP
67 lines
2.3 KiB
PHP
procedure SplitTPAExWrap(arr: TPointArray; w, h: Integer; out res : T2DPointArray);
|
|
begin
|
|
res := SplitTPAEx(arr,w,h);
|
|
end;
|
|
|
|
procedure SplitTPAWrap(arr: TPointArray; Dist: Integer; out res: T2DPointArray);
|
|
begin
|
|
res := SplitTPA(arr,dist);
|
|
end;
|
|
|
|
procedure FindGapsTPAWrap(TPA: TPointArray; MinPixels: Integer; out Res : T2DPointArray); extdecl;
|
|
begin
|
|
Res := FindGapsTPA(TPA,MinPixels);
|
|
end;
|
|
procedure RemoveDistTPointArrayWrap(x, y, dist: Integer; ThePoints: TPointArray; RemoveHigher: Boolean; out Res : TPointArray);extdecl;
|
|
begin
|
|
Res := RemoveDistTPointArray(x,y,dist,thepoints,removehigher);
|
|
end;
|
|
procedure CombineTPAWrap(Ar1, Ar2: TPointArray; out Res : TPointArray);extdecl;
|
|
begin
|
|
Res := CombineTPA(Ar1,Ar2);
|
|
end;
|
|
procedure ReArrangeandShortenArrayExWrap(a: TPointArray; w, h: Integer; out Res : TPointArray);extdecl;
|
|
begin
|
|
Res := ReArrangeandShortenArrayEx(a,w,h);
|
|
end;
|
|
procedure ReArrangeandShortenArrayWrap(a: TPointArray; Dist: Integer; out Res : TPointArray);extdecl;
|
|
begin
|
|
Res := ReArrangeandShortenArray(a,dist);
|
|
end;
|
|
procedure TPAtoATPAExWrap(TPA: TPointArray; w, h: Integer; out Res : T2DPointArray);extdecl;
|
|
begin
|
|
Res := TPAtoATPAEx(TPA,w,h);
|
|
end;
|
|
procedure TPAtoATPAWrap(TPA: TPointArray; Dist: Integer; out Res : T2DPointArray);extdecl;
|
|
begin
|
|
Res := TPAtoATPA(TPA,Dist);
|
|
end;
|
|
procedure CombineIntArrayWrap(Ar1, Ar2: TIntegerArray; out Res : TIntegerArray);extdecl;
|
|
begin
|
|
Res := CombineIntArray(Ar1,Ar2);
|
|
end;
|
|
procedure MergeATPAWrap(ATPA : T2DPointArray; out Res: TPointArray); extdecl;
|
|
begin
|
|
Res := MergeATPA(ATPA);
|
|
end;
|
|
procedure TPAFromBoxWrap(const Box : TBox; out Res : TPointArray);extdecl;
|
|
begin
|
|
Res := TPAFromBox(Box);
|
|
end;
|
|
procedure RotatePointsWrap(Const P: TPointArray; A, cx, cy: Extended; out Res : TPointArray);extdecl;
|
|
begin
|
|
Res := RotatePoints(P,a,cx,cy);
|
|
end;
|
|
procedure FindTPAEdgesWrap(p: TPointArray; out Res : TPointArray);extdecl;
|
|
begin
|
|
Res := FindTPAEdges(p);
|
|
end;
|
|
procedure ClearTPAFromTPAWrap(arP, ClearPoints: TPointArray; out Res : TPointArray);extdecl;
|
|
begin
|
|
Res := ClearTPAFromTPA(arP, clearpoints);
|
|
end;
|
|
procedure ReturnPointsNotInTPAWrap(Const TotalTPA: TPointArray; const Box: TBox; out Res : TPointArray);extdecl;
|
|
begin
|
|
Res := ReturnPointsNotInTPA(TotalTPA,box);
|
|
end;
|