Move boxarray to unit

Villavu · Sep 23, 2023 · d0bbee4 · d0bbee4
1 parent bfcd61d
commit d0bbee4
Show file tree

Hide file tree

Showing 4 changed files with 23 additions and 9 deletions.
diff --git a/Source/algorithms/simba.algo_sort.pas b/Source/algorithms/simba.algo_sort.pas
@@ -3,7 +3,6 @@
   Project: Simba (https://github.com/MerlijnWajer/Simba)
   License: GNU General Public License (https://www.gnu.org/licenses/gpl-3.0)
 }
-
 unit simba.algo_sort;
 
 {$DEFINE SIMBA_MAX_OPTIMIZATION}

diff --git a/Source/script/imports/simba/simba.import_boxarray.pas b/Source/script/imports/simba/simba.import_boxarray.pas
@@ -14,6 +14,7 @@ implementation
 
 uses
   lptypes,
+  simba.boxarray,
   simba.algo_difference, simba.algo_intersection, simba.algo_symmetricDifference;
 
 (*
@@ -270,4 +271,4 @@ procedure ImportBoxArray(Compiler: TSimbaScript_Compiler);
   end;
 end;
 
-end.
+end.
diff --git a/Source/boxarray.inc → Source/simba.boxarray.pas b/Source/boxarray.inc → Source/simba.boxarray.pas
@@ -1,6 +1,18 @@
-{%MAINUNIT simba.mufasatypes}
+{
+  Author: Raymond van Venetië and Merlijn Wajer
+  Project: Simba (https://github.com/MerlijnWajer/Simba)
+  License: GNU General Public License (https://www.gnu.org/licenses/gpl-3.0)
+}
+unit simba.boxarray;
+
+{$i simba.inc}
+
+interface
+
+uses
+  Classes, SysUtils,
+  simba.mufasatypes;
 
-{$IFDEF HEADER}
 type
   TBoxArrayHelper = type helper for TBoxArray
   public
@@ -28,9 +40,13 @@
     function Expand(SizeMod: Integer): TBoxArray; overload;
     function Expand(WidMod, HeiMod: Integer): TBoxArray; overload;
   end;
-{$ENDIF}
 
-{$IFDEF BODY}
+implementation
+
+uses
+  Math,
+  simba.math, simba.algo_sort;
+
 class function TBoxArrayHelper.Create(Start: TPoint; Columns, Rows, Width, Height: Int32; Spacing: TPoint): TBoxArray;
 var
   I: Int32;
@@ -306,6 +322,6 @@ function TBoxArrayHelper.Sort(Weights: TDoubleArray; LowToHigh: Boolean): TBoxAr
 begin
   Result := specialize Sorted<TBox, Double>(Self, Weights, LowToHigh);
 end;
-{$ENDIF}
 
+end.
 
diff --git a/Source/simba.mufasatypes.pas b/Source/simba.mufasatypes.pas
@@ -339,7 +339,6 @@   TCircle = record
   {$DEFINE HEADER}
     {$i generics.inc}
     {$i box.inc}
-    {$i boxarray.inc}
     {$i point.inc}
     {$i string.inc}
 
@@ -431,7 +430,6 @@ implementation
 {$DEFINE BODY}
   {$i generics.inc}
   {$i box.inc}
-  {$i boxarray.inc}
   {$i point.inc}
   {$i string.inc}
-Original file line number
+Diff line change
@@ Expand Up / @@ -14,6 +14,7 @@ implementation @@
     uses
       lptypes,
+      simba.boxarray,
       simba.algo_difference, simba.algo_intersection, simba.algo_symmetricDifference;
     (*
@@ Expand Down Expand Up / @@ -270,4 +271,4 @@ procedure ImportBoxArray(Compiler: TSimbaScript_Compiler); @@
       end;
     end;
-    end.
+    end.