Tweak split/cluster algorithms:

  - width/height params are now xrad, yrad using ellipse distance
  - for 8 way (diagonal) connections use <x>.5 distance

Author: ollydev

Source/script/imports/simba.import_point.pas

@@ -891,43 +891,43 @@ function TPointArray.Split(Dist: Integer): T2DPointArray;
 *)
 procedure _LapeTPASplit1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
 begin
-  P2DPointArray(Result)^ := PPointArray(Params^[0])^.Split(PInteger(Params^[1])^);
+  P2DPointArray(Result)^ := PPointArray(Params^[0])^.Split(PSingle(Params^[1])^);
 end;
 
 (*
 TPointArray.Split
 -----------------
 ```
-function TPointArray.Split(DistX, DistY: Integer): T2DPointArray;
+function TPointArray.Split(DistX, DistY: Single): T2DPointArray;
 ```
 *)
 procedure _LapeTPASplit2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
 begin
-  P2DPointArray(Result)^ := PPointArray(Params^[0])^.Split(PInteger(Params^[1])^, PInteger(Params^[2])^);
+  P2DPointArray(Result)^ := PPointArray(Params^[0])^.Split(PSingle(Params^[1])^, PSingle(Params^[2])^);
 end;
 
 (*
 TPointArray.Cluster
 -------------------
 ```
-function TPointArray.Cluster(Dist: Integer): T2DPointArray;
+function TPointArray.Cluster(Dist: Single): T2DPointArray;
 ```
 *)
 procedure _LapeTPACluster1(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
 begin
-  P2DPointArray(Result)^ := PPointArray(Params^[0])^.Cluster(PInteger(Params^[1])^);
+  P2DPointArray(Result)^ := PPointArray(Params^[0])^.Cluster(PSingle(Params^[1])^);
 end;
 
 (*
 TPointArray.Cluster
 -------------------
 ```
-function TPointArray.Cluster(DistX, DistY: Integer): T2DPointArray;
+function TPointArray.Cluster(DistX, DistY: Single): T2DPointArray;
 ```
 *)
 procedure _LapeTPACluster2(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
 begin
-  P2DPointArray(Result)^ := PPointArray(Params^[0])^.Cluster(PInteger(Params^[1])^, PInteger(Params^[2])^);
+  P2DPointArray(Result)^ := PPointArray(Params^[0])^.Cluster(PSingle(Params^[1])^, PSingle(Params^[2])^);
 end;
 
 (*
@@ -1609,10 +1609,10 @@ procedure ImportPoint(Script: TSimbaScript);
     addGlobalFunc('function TPointArray.SortByRow(Reverse: Boolean = False): TPointArray', @_LapeTPASortByRow);
     addGlobalFunc('function TPointArray.SortByColumn(Reverse: Boolean = False): TPointArray', @_LapeTPASortByColumn);
 
-    addGlobalFunc('function TPointArray.Split(Dist: Integer): T2DPointArray; overload', @_LapeTPASplit1);
-    addGlobalFunc('function TPointArray.Split(DistX, DistY: Integer): T2DPointArray; overload', @_LapeTPASplit2);
-    addGlobalFunc('function TPointArray.Cluster(Dist: Integer): T2DPointArray; overload', @_LapeTPACluster1);
-    addGlobalFunc('function TPointArray.Cluster(DistX, DistY: Integer): T2DPointArray; overload', @_LapeTPACluster2);
+    addGlobalFunc('function TPointArray.Split(Dist: Single): T2DPointArray; overload', @_LapeTPASplit1);
+    addGlobalFunc('function TPointArray.Split(DistX, DistY: Single): T2DPointArray; overload', @_LapeTPASplit2);
+    addGlobalFunc('function TPointArray.Cluster(Dist: Single): T2DPointArray; overload', @_LapeTPACluster1);
+    addGlobalFunc('function TPointArray.Cluster(DistX, DistY: Single): T2DPointArray; overload', @_LapeTPACluster2);
 
     addGlobalFunc('function TPointArray.Partition(Dist: Integer): T2DPointArray; overload', @_LapeTPAPartition1);
     addGlobalFunc('function TPointArray.Partition(Width, Height: Integer): T2DPointArray; overload', @_LapeTPAPartition2);