From 74702b5863b832729fa4df86d7a3d5d5ff5a7b6b Mon Sep 17 00:00:00 2001
From: Revar Desmera <revarbat@gmail.com>
Date: Mon, 4 Feb 2019 04:22:36 -0800
Subject: [PATCH] Fixed wrap_range negative index wrapping.

---
 math.scad | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/math.scad b/math.scad
index 24a27f8..f6a0f4d 100644
--- a/math.scad
+++ b/math.scad
@@ -73,13 +73,18 @@ function reverse(list) = [ for (i = [len(list)-1 : -1 : 0]) list[i] ];
 
 // Returns a slice of the given array, wrapping around past the beginning, if end < start
 function wrap_range(list, start, end) =
-	(end<start)?
+	let(
+		l = len(list),
+		st = start<0? (start%l)+l : (start%l),
+		en = end<0? (end%l)+l : (end%l)
+	)
+	(en<st)?
 		concat(
-			[for (i=[start:len(list)-1]) list[i]],
-			[for (i=[0:end]) list[i]]
+			[for (i=[st:l-1]) list[i]],
+			[for (i=[0:en]) list[i]]
 		)
 	:
-		[for (i=[start:end]) list[i]]
+		[for (i=[st:en]) list[i]]
 ;