From 9f1d43d4c21a4a5bc76689174c08b3040c3342be Mon Sep 17 00:00:00 2001
From: Deyan Dobromirov <dvd_video@abv.bg>
Date: Fri, 13 Sep 2024 17:28:11 +0300
Subject: [PATCH] Optimized: `asmlib.GetWrap` being 50% faster. Removed loop

---
 lua/trackassembly/trackasmlib.lua | 29 +++++++++++++++++------------
 1 file changed, 17 insertions(+), 12 deletions(-)

diff --git a/lua/trackassembly/trackasmlib.lua b/lua/trackassembly/trackasmlib.lua
index 3276ceb3..b5423ce2 100644
--- a/lua/trackassembly/trackasmlib.lua
+++ b/lua/trackassembly/trackasmlib.lua
@@ -511,15 +511,19 @@ end
 --[[
  * When requested wraps the first value according to
  * the interval described by the other two values
- * Inp: -6 -5 -4 -3 -2 -1 0 1 2 3 4 5 6 7 8 9 10
- * Out:  3  1  2  3  1  2 3 1 2 3 1 2 3 1 2 3  1
- * This is an example call for the input between 1 and 3
+ * Inp (V): -6 -5 -4 -3 -2 -1 0 1 2 3 4 5 6 7 8 9 10
+ * Out (R):  3  1  2  3  1  2 3 1 2 3 1 2 3 1 2 3  1
+ * This is an example call for the input between L=1 and H=3
+ * nV - Current value being wrapped
+ * nL - Wrapper low value
+ * nH - Wrapper high value
+ * Returns the wrapped value mapped to the interval provided
 ]]
-function GetWrap(nVal,nMin,nMax) local nVal = nVal
-  while(nVal < nMin or nVal > nMax) do
-    nVal = ((nVal < nMin) and (nMax - (nMin - nVal) + 1) or nVal)
-    nVal = ((nVal > nMax) and (nMin + (nVal - nMax) - 1) or nVal)
-  end; return nVal -- Returns the N-stepped value
+function GetWrap(nV, nL, nH)
+  if(nV == 0) then return nH end
+  if(nV >= nL and nV <= nH) then return nV end
+  local nC = nV % nH
+  return (nC == 0) and nH or nC
 end
 
 --[[
@@ -2061,10 +2065,11 @@ end
 function SwitchID(vID,vDir,oRec)
   local stPOA, ID = LocatePOA(oRec,vID); if(not IsHere(stPOA)) then
     LogInstance("ID missing "..GetReport(vID)); return 1 end
-  local nDir = (tonumber(vDir) or 0); nDir = (((nDir > 0) and 1) or ((nDir < 0) and -1) or 0)
-  if(nDir == 0) then LogInstance("Direction mismatch"); return ID end
-  ID = GetWrap(ID + nDir,1,oRec.Size) -- Move around the snap location selected
-  stPOA = LocatePOA(oRec,ID); if(not IsHere(stPOA)) then
+  local nDir = mathFloor(tonumber(vDir) or 0)
+  local iDir = (((nDir > 0) and 1) or ((nDir < 0) and -1) or 0)
+  if(iDir == 0) then LogInstance("Direction mismatch"); return ID end
+  local ID = GetWrap(ID + iDir, 1, oRec.Size) -- Move around the snap
+  local stPOA = LocatePOA(oRec,ID); if(not IsHere(stPOA)) then
     LogInstance("Offset missing "..GetReport(ID)); return 1 end
   return ID
 end