From 49bf0f19bc81a240cf82213891e52659d8e036dd Mon Sep 17 00:00:00 2001 From: Starbeamrainbowlabs Date: Sun, 4 Jul 2021 12:03:29 +0100 Subject: [PATCH] Perlin: remove debug functions --- .../lib/noise/engines/perlin.lua | 12 ---- .../lib/noise/engines/perlin_test.lua | 70 ------------------- 2 files changed, 82 deletions(-) delete mode 100644 worldeditadditions/lib/noise/engines/perlin_test.lua diff --git a/worldeditadditions/lib/noise/engines/perlin.lua b/worldeditadditions/lib/noise/engines/perlin.lua index 5577d9a..03bf4ad 100644 --- a/worldeditadditions/lib/noise/engines/perlin.lua +++ b/worldeditadditions/lib/noise/engines/perlin.lua @@ -50,18 +50,6 @@ function Perlin:load() end end ---- Formats a key-value table of values as a string. --- @param map table The table of key-value pairs to format. --- @returns string The given table of key-value pairs formatted as a string. -local function format_map(map) - local result = {} - for key, value in pairs(map) do - table.insert(result, key.."\t"..tostring(value)) - end - return table.concat(result, "\n") -end - - --- Returns a noise value for a given point in 3D space. -- @param x number The x co-ordinate. -- @param y number The y co-ordinate. diff --git a/worldeditadditions/lib/noise/engines/perlin_test.lua b/worldeditadditions/lib/noise/engines/perlin_test.lua deleted file mode 100644 index 33c90e9..0000000 --- a/worldeditadditions/lib/noise/engines/perlin_test.lua +++ /dev/null @@ -1,70 +0,0 @@ -local Perlin = require("perlin") - ---- Pads str to length len with char from left --- Adapted from the above -local function str_padstart(str, len, char) - if char == nil then char = ' ' end - return string.rep(char, len - #str) .. str -end -local function array_2d(tbl, width) - print("==== count: "..(#tbl+1)..", width:"..width.." ====") - local display_width = 1 - for _i,value in pairs(tbl) do - display_width = math.max(display_width, #tostring(value)) - end - display_width = display_width + 2 - local next = {} - for i=0, #tbl do - table.insert(next, str_padstart(tostring(tbl[i]), display_width)) - if #next == width then - print(table.concat(next, "")) - next = {} - end - end -end - - ---- Finds the minimum value in the given list. --- @param list number[] The list (table) of numbers to find the minimum value of. --- @returns number The minimum value in the given list. -function min(list) - if #list == 0 then return nil end - local min = nil - for i,value in ipairs(list) do - if min == nil or min > value then - min = value - end - end - return min -end - ---- Finds the maximum value in the given list. --- @param list number[] The list (table) of numbers to find the maximum value of. --- @returns number The maximum value in the given list. -function max(list) - if #list == 0 then return nil end - local max = nil - for i,value in ipairs(list) do - if max == nil or max < value then - max = value - end - end - return max -end - - -local p = Perlin.new() - -local result = {} -local size = { x = 10, z = 25 } - -for x = 0, size.x do - for y = 0, size.z do - result[y*size.x + x] = p:noise(x, y, 0) - end -end - -print(array_2d(result, size.x)) - -print("MAX ", max(result)) -print("MIN ", min(result))