From 679e2b1b702c96c96a808b216b8f5e87c894a3f3 Mon Sep 17 00:00:00 2001
From: Wuzzy <Wuzzy2@mail.ru>
Date: Thu, 30 Apr 2020 21:08:42 +0200
Subject: [PATCH] Explosions: Reduce repeated code

---
 mods/CORE/mcl_explosions/init.lua | 101 ++++++++++--------------------
 1 file changed, 34 insertions(+), 67 deletions(-)

diff --git a/mods/CORE/mcl_explosions/init.lua b/mods/CORE/mcl_explosions/init.lua
index 7f6e4909f..4a1da2326 100644
--- a/mods/CORE/mcl_explosions/init.lua
+++ b/mods/CORE/mcl_explosions/init.lua
@@ -55,79 +55,46 @@ local function compute_sphere_rays(radius)
   local rays = {}
   local sphere = {}
 
-  for y = -radius, radius do
-    for z = -radius, radius do
-      for x = -radius, 0, 1 do
-        local d = x * x + y * y + z * z
-        if d <= radius * radius then
-          local pos = { x = x, y = y, z = z }
-          sphere[minetest.hash_node_position(pos)] = pos
-          break
-        end
-      end
-    end
-  end
-
-  for y = -radius, radius do
-    for z = -radius, radius do
-      for x = radius, 0, -1 do
-        local d = x * x + y * y + z * z
-        if d <= radius * radius then
-          local pos = { x = x, y = y, z = z }
-          sphere[minetest.hash_node_position(pos)] = pos
-          break
-        end
-      end
-    end
-  end
-
-  for x = -radius, radius do
-    for z = -radius, radius do
-      for y = -radius, 0, 1 do
-        local d = x * x + y * y + z * z
-        if d <= radius * radius then
-          local pos = { x = x, y = y, z = z }
-          sphere[minetest.hash_node_position(pos)] = pos
-          break
-        end
-      end
-    end
-  end
-
-  for x = -radius, radius do
-    for z = -radius, radius do
-      for y = radius, 0, -1 do
-        local d = x * x + y * y + z * z
-        if d <= radius * radius then
-          local pos = { x = x, y = y, z = z }
-          sphere[minetest.hash_node_position(pos)] = pos
-          break
-        end
-      end
-    end
-  end
-
-  for x = -radius, radius do
+  for i=1, 2 do
     for y = -radius, radius do
-      for z = -radius, 0, 1 do
-        local d = x * x + y * y + z * z
-        if d <= radius * radius then
-          local pos = { x = x, y = y, z = z }
-          sphere[minetest.hash_node_position(pos)] = pos
-          break
+      for z = -radius, radius do
+        for x = -radius, 0, 1 do
+          local d = x * x + y * y + z * z
+          if d <= radius * radius then
+            local pos = { x = x, y = y, z = z }
+            sphere[minetest.hash_node_position(pos)] = pos
+            break
+          end
         end
       end
     end
   end
 
-  for x = -radius, radius do
-    for y = -radius, radius do
-      for z = radius, 0, -1 do
-        local d = x * x + y * y + z * z
-        if d <= radius * radius then
-          local pos = { x = x, y = y, z = z }
-          sphere[minetest.hash_node_position(pos)] = pos
-          break
+  for i=1,2 do
+    for x = -radius, radius do
+      for z = -radius, radius do
+        for y = -radius, 0, 1 do
+          local d = x * x + y * y + z * z
+          if d <= radius * radius then
+            local pos = { x = x, y = y, z = z }
+            sphere[minetest.hash_node_position(pos)] = pos
+            break
+          end
+        end
+      end
+    end
+  end
+
+  for i=1,2 do
+    for x = -radius, radius do
+      for y = -radius, radius do
+        for z = -radius, 0, 1 do
+          local d = x * x + y * y + z * z
+          if d <= radius * radius then
+            local pos = { x = x, y = y, z = z }
+            sphere[minetest.hash_node_position(pos)] = pos
+            break
+          end
         end
       end
     end