From d3c510445657e54a12caae1293ac50c873d1b52a Mon Sep 17 00:00:00 2001 From: Olly Date: Thu, 21 Sep 2023 18:48:51 +0100 Subject: [PATCH] Export TPointArray.FurthestPoints --- Source/script/imports/simba/simba.import_tpa.pas | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/Source/script/imports/simba/simba.import_tpa.pas b/Source/script/imports/simba/simba.import_tpa.pas index 3901ce28f..6e44b37d4 100644 --- a/Source/script/imports/simba/simba.import_tpa.pas +++ b/Source/script/imports/simba/simba.import_tpa.pas @@ -258,6 +258,16 @@ procedure _LapeTPAIsPointNearby2(const Params: PParamArray; const Result: Pointe PBoolean(Result)^ := PPointArray(Params^[0])^.IsPointNearby(PPoint(Params^[1])^, PDouble(Params^[2])^, PDouble(Params^[3])^, PDouble(Params^[4])^, PDouble(Params^[5])^); end; +(* +TPointArray.FurthestPoints +~~~~~~~~~~~~~~~~~~~~~~~~~~ +> procedure TPointArray.FurthestPoints(out A, B: TPoint); +*) +procedure _LapeTPAFurthestPoints(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV +begin + PPointArray(Params^[0])^.FurthestPoints(PPoint(Params^[1])^, PPoint(Params^[2])^); +end; + (* TPointArray.NearestPoint ~~~~~~~~~~~~~~~~~~~~~~~~ @@ -797,6 +807,7 @@ procedure ImportTPA(Compiler: TSimbaScript_Compiler); addGlobalFunc('function TPointArray.IsPointNearby(Other: TPoint; MinDist, MaxDist: Double): Boolean; overload', @_LapeTPAIsPointNearby1); addGlobalFunc('function TPointArray.IsPointNearby(Other: TPoint; MinDistX, MinDistY, MaxDistX, MaxDistY: Double): Boolean; overload', @_LapeTPAIsPointNearby2); + addGlobalFunc('procedure TPointArray.FurthestPoints(out A, B: TPoint)', @_LapeTPAFurthestPoints); addGlobalFunc('function TPointArray.NearestPoint(Other: TPoint): TPoint', @_LapeTPANearestPoint); addGlobalFunc('function TPointArray.Unique: TPointArray; override', @_LapeTPAUnique);