mirror of
https://github.com/sbrl/Minetest-WorldEditAdditions.git
synced 2024-09-12 08:08:30 +02:00
//smake added
This commit is contained in:
parent
5b6062017a
commit
efef201fde
@ -5,7 +5,7 @@
|
|||||||
-- @returns table A sequence table containing the substrings
|
-- @returns table A sequence table containing the substrings
|
||||||
function worldeditadditions.tochars(text,sort,rem_dups)
|
function worldeditadditions.tochars(text,sort,rem_dups)
|
||||||
--function tochars(text,s,d)
|
--function tochars(text,s,d)
|
||||||
t, set = {}, {}
|
local t, set = {}, {}
|
||||||
if rem_dups then
|
if rem_dups then
|
||||||
text:gsub(".",function(c) set[c] = true end)
|
text:gsub(".",function(c) set[c] = true end)
|
||||||
for k,v in pairs(set) do table.insert(t,k) end
|
for k,v in pairs(set) do table.insert(t,k) end
|
||||||
@ -17,3 +17,13 @@ function worldeditadditions.tochars(text,sort,rem_dups)
|
|||||||
|
|
||||||
return t
|
return t
|
||||||
end
|
end
|
||||||
|
|
||||||
|
--- Split into set of characters.
|
||||||
|
-- @param text string The string to iterate over
|
||||||
|
-- @returns table A sequence set table containing the substrings
|
||||||
|
function worldeditadditions.tocharset(text)
|
||||||
|
-- function tocharset(text)
|
||||||
|
local t = {}
|
||||||
|
text:gsub(".",function(c) t[c] = true end)
|
||||||
|
return t
|
||||||
|
end
|
||||||
|
@ -5,7 +5,7 @@ function worldeditadditions.vector.tostring(v)
|
|||||||
return "(" .. v.x ..", " .. v.y ..", " .. v.z ..")"
|
return "(" .. v.x ..", " .. v.y ..", " .. v.z ..")"
|
||||||
end
|
end
|
||||||
|
|
||||||
-- Calculates the length squared of the given vector.
|
--- Calculates the length squared of the given vector.
|
||||||
-- @param v Vector The vector to operate on
|
-- @param v Vector The vector to operate on
|
||||||
-- @return number The length of the given vector squared
|
-- @return number The length of the given vector squared
|
||||||
function worldeditadditions.vector.lengthsquared(v)
|
function worldeditadditions.vector.lengthsquared(v)
|
||||||
@ -104,3 +104,19 @@ end
|
|||||||
function worldeditadditions.vector.mean(pos1, pos2)
|
function worldeditadditions.vector.mean(pos1, pos2)
|
||||||
return vector.new((pos1.x + pos2.x)/2, (pos1.y + pos2.y)/2, (pos1.z + pos2.z)/2)
|
return vector.new((pos1.x + pos2.x)/2, (pos1.y + pos2.y)/2, (pos1.z + pos2.z)/2)
|
||||||
end
|
end
|
||||||
|
|
||||||
|
--- Returns a vector of the min values of 2 positions.
|
||||||
|
-- @param pos1 Vector pos1 of the defined region.
|
||||||
|
-- @param pos2 Vector pos2 of the defined region.
|
||||||
|
-- @return Vector Min values from input vectors.
|
||||||
|
function worldeditadditions.vector.min(pos1, pos2)
|
||||||
|
return vector.new(math.min(pos1.x + pos2.x), math.min(pos1.y + pos2.y), math.min(pos1.z + pos2.z))
|
||||||
|
end
|
||||||
|
|
||||||
|
--- Returns a vector of the max values of 2 positions.
|
||||||
|
-- @param pos1 Vector pos1 of the defined region.
|
||||||
|
-- @param pos2 Vector pos2 of the defined region.
|
||||||
|
-- @return Vector Max values from input vectors.
|
||||||
|
function worldeditadditions.vector.max(pos1, pos2)
|
||||||
|
return vector.new(math.max(pos1.x + pos2.x), math.max(pos1.y + pos2.y), math.max(pos1.z + pos2.z))
|
||||||
|
end
|
||||||
|
135
worldeditadditions_commands/commands/selectors/smake.lua
Normal file
135
worldeditadditions_commands/commands/selectors/smake.lua
Normal file
@ -0,0 +1,135 @@
|
|||||||
|
-- ███████ ███ ███ █████ ██ ██ ███████
|
||||||
|
-- ██ ████ ████ ██ ██ ██ ██ ██
|
||||||
|
-- ███████ ██ ████ ██ ███████ █████ █████
|
||||||
|
-- ██ ██ ██ ██ ██ ██ ██ ██ ██
|
||||||
|
-- ███████ ██ ██ ██ ██ ██ ██ ███████
|
||||||
|
local wea = worldeditadditions
|
||||||
|
worldedit.register_command("smake", {
|
||||||
|
params = "<operation> <mode> [<target=xyz> [<base>]]",
|
||||||
|
description = "Make one or more axes of the current selection odd, even, or equal to another.",
|
||||||
|
privs = { worldedit = true },
|
||||||
|
require_pos = 2,
|
||||||
|
parse = function(params_text)
|
||||||
|
-- Split params_text, check for missing arguments and fill in empty spots
|
||||||
|
local parts = wea.split(params_text, "%s+", false)
|
||||||
|
if #parts < 2 then
|
||||||
|
return false, "Error: Not enough arguments. Expected \"<operation> <mode> [<target=xyz> [<base>]]\"."
|
||||||
|
else
|
||||||
|
for i=3,4 do if not parts[i] then parts[i] = false end end
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Initialze local variables and sets
|
||||||
|
local oper, mode, targ, base = unpack(parts)
|
||||||
|
local operSet, modeSet = wea.makeset {"equal", "odd", "even"}, wea.makeset {"grow", "shrink", "avg"}
|
||||||
|
|
||||||
|
-- Main Logic
|
||||||
|
-- Check base if base is present and if so valid.
|
||||||
|
if base then
|
||||||
|
if base:match("[xyz]") then -- ensure correct base syntax
|
||||||
|
base = base:match("[xyz]")
|
||||||
|
else
|
||||||
|
return false, "Error: Invalid base \""..base.."\". Expected \"x\", \"y\" or \"z\"."
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Resolve target then mode (in that order incase mode is target).
|
||||||
|
if not targ then -- If no target set to default (xyz)
|
||||||
|
targ = "xyz"
|
||||||
|
elseif targ:match("[xyz]+") then -- ensure correct target syntax
|
||||||
|
targ = table.concat(wea.tochars(targ:match("[xyz]+"),true,true))
|
||||||
|
else
|
||||||
|
return false, "Error: Invalid <target> \""..targ.."\". Expected \"x\" and or \"y\" and or \"z\"."
|
||||||
|
end
|
||||||
|
|
||||||
|
if mode == "average" then -- If mode is average set to avg
|
||||||
|
mode = "avg"
|
||||||
|
elseif mode:match("[xyz]+") then -- If target is actually base set vars to correct values.
|
||||||
|
base, targ, mode = targ:sub(1,1), table.concat(wea.tochars(mode:match("[xyz]+"),true,true)), false
|
||||||
|
elseif not modeSet[mode] and not base then -- If mode is invalid and base isn't present throw error
|
||||||
|
return false, "Error: Invalid <mode> \""..mode.."\". Expected \"grow\", \"shrink\", or \"average\"/\"avg\"."
|
||||||
|
end
|
||||||
|
|
||||||
|
if base then
|
||||||
|
if oper ~= "equal" then base = false -- If operation isn't equalize we don't need <base>
|
||||||
|
elseif targ:match(base) then -- Else check that base is not in target and return error if it is
|
||||||
|
return false, "Error: <base> ("..base..") cannot be included in <target> ("..targ..")."
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Check if operator is valid
|
||||||
|
if not operSet[oper] then
|
||||||
|
return false, "Error: Invalid operator \""..oper.."\". Expected \"odd\", \"even\" or \"equal\"."
|
||||||
|
end
|
||||||
|
|
||||||
|
if false then
|
||||||
|
return false, "<operator>: " .. oper .. ", <mode>: " .. tostring(mode) .. ", <target>: " .. tostring(targ) .. ", <base>: " .. tostring(base)
|
||||||
|
end
|
||||||
|
return true, oper, mode, targ, base
|
||||||
|
end,
|
||||||
|
func = function(name, oper, mode, targ, base)
|
||||||
|
local p1, p2, eval = vector.new(worldedit.pos1[name]), vector.new(worldedit.pos2[name]), function(int) return int or 0 end
|
||||||
|
local delta, targ, _m = vector.subtract(p2,p1), wea.tocharset(targ), 0 -- local delta equation: Vd(a) = V2(a) - V1(a)
|
||||||
|
|
||||||
|
-- set _m to the max, min or mean of the target axes depending on mode
|
||||||
|
if mode == "avg" then
|
||||||
|
for k,v in pairs(targ) do _m = _m + math.abs(delta[k]) end
|
||||||
|
_m = _m / #targ
|
||||||
|
elseif mode == "grow" then
|
||||||
|
for k,v in pairs(targ) do if math.abs(delta[k]) > _m then _m = math.abs(delta[k]) end end
|
||||||
|
else
|
||||||
|
for k,v in pairs(targ) do if math.abs(delta[k]) < _m then _m = math.abs(delta[k]) end end
|
||||||
|
end
|
||||||
|
|
||||||
|
if oper == "even" then
|
||||||
|
eval = function(int)
|
||||||
|
local tmp, abs, neg = int / 2, math.abs(int), int < 0
|
||||||
|
if math.floor(tmp) ~= tmp then
|
||||||
|
if mode == "avg" then
|
||||||
|
if int > _m then int = abs - 1
|
||||||
|
else int = abs + 1 end
|
||||||
|
elseif mode == "shrink" and abs > 1 then int = abs - 1
|
||||||
|
else int = abs + 1 end
|
||||||
|
end
|
||||||
|
if neg then int = int * -1 end
|
||||||
|
return int
|
||||||
|
end
|
||||||
|
elseif oper == "odd" then
|
||||||
|
eval = function(int)
|
||||||
|
local tmp, abs, neg = int / 2, math.abs(int), int < 0
|
||||||
|
if math.floor(tmp) ~= tmp then
|
||||||
|
if mode == "avg" then
|
||||||
|
if int > _m then int = abs - 1
|
||||||
|
else int = abs + 1 end
|
||||||
|
elseif mode == "shrink" and abs > 1 then int = abs - 1
|
||||||
|
else int = abs + 1 end
|
||||||
|
end
|
||||||
|
if neg then int = int * -1 end
|
||||||
|
return int
|
||||||
|
end
|
||||||
|
elseif oper == "fac" then
|
||||||
|
-- Future feature to add compatability with //maze
|
||||||
|
-- //smake factor avg xz 5
|
||||||
|
-- //smake fac grow 3
|
||||||
|
-- Equasion: round(delta[<axis>] / factor) * factor
|
||||||
|
else -- Case: oper == "equal"
|
||||||
|
return false, "Case \"equal\" not handled."
|
||||||
|
end
|
||||||
|
|
||||||
|
-- for k,v in pairs(targ) do delta[k] = eval(delta[k]) end
|
||||||
|
|
||||||
|
--- There is a test:
|
||||||
|
local brk = ""
|
||||||
|
for k,v in pairs(targ) do
|
||||||
|
brk = brk..k..": "..delta[k]..", "
|
||||||
|
delta[k] = eval(delta[k])
|
||||||
|
brk = brk..k..": "..delta[k]..", "
|
||||||
|
end
|
||||||
|
if true then return false, brk end
|
||||||
|
-- //multi //fp set1 589 2 -82 //fp set2 615 2 -53
|
||||||
|
-- //smake even shrink
|
||||||
|
|
||||||
|
worldedit.pos2[name] = vector.add(p1,delta)
|
||||||
|
worldedit.mark_pos2(name)
|
||||||
|
return true, "position 2 set to " .. minetest.pos_to_string(p2)
|
||||||
|
end
|
||||||
|
})
|
@ -46,6 +46,7 @@ dofile(we_c.modpath.."/commands/selectors/scentre.lua")
|
|||||||
dofile(we_c.modpath.."/commands/selectors/scloud.lua")
|
dofile(we_c.modpath.."/commands/selectors/scloud.lua")
|
||||||
dofile(we_c.modpath.."/commands/selectors/scol.lua")
|
dofile(we_c.modpath.."/commands/selectors/scol.lua")
|
||||||
dofile(we_c.modpath.."/commands/selectors/scube.lua")
|
dofile(we_c.modpath.."/commands/selectors/scube.lua")
|
||||||
|
dofile(we_c.modpath.."/commands/selectors/smake.lua")
|
||||||
dofile(we_c.modpath.."/commands/selectors/spop.lua")
|
dofile(we_c.modpath.."/commands/selectors/spop.lua")
|
||||||
dofile(we_c.modpath.."/commands/selectors/spush.lua")
|
dofile(we_c.modpath.."/commands/selectors/spush.lua")
|
||||||
dofile(we_c.modpath.."/commands/selectors/srect.lua")
|
dofile(we_c.modpath.."/commands/selectors/srect.lua")
|
||||||
|
Loading…
Reference in New Issue
Block a user