Mysaa/Logikraft
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Compare commits

base: Mysaa/Logikraft:5873ebdd77d3f214191ed0b66f358fbaabc2c727
Branches Tags
Mysaa/Logikraft:master
...
compare: Mysaa/Logikraft:master
Branches Tags
Mysaa/Logikraft:master
15 Commits
5873ebdd77 ... master
Author SHA1 Message Date
Mysaa dbb30f0634 Second Linker Upgrade 2024-05-20 19:56:30 +02:00
Mysaa 2c8f51f8ba Upgraded the linker 2024-05-20 19:06:14 +02:00
Mysaa 6a2c44da91 Removed empty file 2024-05-20 15:26:32 +02:00
Mysaa 98303dd4d1 Fixed rotated circuits ports 2024-05-20 15:24:07 +02:00
Mysaa a5cbf1d7b2 Added more components 2024-05-20 14:18:52 +02:00
Mysaa a1177efa69 The circuitry now really computes the circuit 2024-05-20 13:58:26 +02:00
Mysaa b907e06c5f Editor now can read circuits 2024-05-20 03:39:54 +02:00
Mysaa 0298b85323 Upgraded circuit generation 2024-05-20 01:02:42 +02:00
Mysaa ef8b8910b0 Completed the Editor 2024-05-20 00:14:34 +02:00
Mysaa abbc9b3d07 Rework codebase - Added Editor 2024-05-19 23:29:32 +02:00
Mysaa 9d3ab2f0e0 Added a lot of circuits code 2024-05-19 00:16:20 +02:00
Mysaa 3ea8517ff9 Added the resizer 2024-05-18 20:43:35 +02:00
Mysaa 6e4c9f1b02 Fixed the linker 2024-05-18 20:35:10 +02:00
Mysaa 3d9944921f Rewrite of the linker 2024-05-18 20:06:53 +02:00
Mysaa 3d633619c4 Added components 2024-05-18 14:47:59 +02:00
26 changed files with 1276 additions and 533 deletions
Expand all files Collapse all files
blocks/cable.lua
+162 -310
View File
@@ -1,110 +1,3 @@
--[[
cable_NS1 -> One connection from north to south
cable_NW1_ES1 -> One connection from north to west, and another from east to south
cable_NWE8_S8 -> One connection between north, west and east, 8bit single cable from south
cable_0 -> The one cable without connection
--]]
local nodebox_single = {
{-0.0625, -0.5, 0.25, 0.0625, -0.375, 0.5},
{-0.125, -0.5, 0.25, 0.125, -0.25, 0.5}
}
local nodebox_straight = {
{-0.0625, -0.5, -0.5, 0.0625, -0.375, 0.5},
{-0.125, -0.5, -0.5, 0.125, -0.25, 0.5}
}
local nodeboxes_corner = {
{
{-0.5, -0.5, -0.0625, 0.0625, -0.375, 0.0625}, -- NodeBox1
{-0.0625, -0.5, 0.0625, 0.0625, -0.375, 0.5}, -- NodeBox2
},
{
{-0.5, -0.5, -0.125, 0.125, -0.25, 0.125}, -- NodeBox1
{-0.125, -0.5, 0.125, 0.125, -0.25, 0.5}, -- NodeBox2
}
}
local nodeboxes_jump = {
{
{-0.5, -0.5, -0.0625, -0.1875, -0.375, 0.0625}, -- NodeBox2
{0.1875, -0.5, -0.0625, 0.5, -0.375, 0.0625}, -- NodeBox3
{-0.3125, -0.1875, -0.0625, 0.3125, -0.0625, 0.0625}, -- NodeBox4
{-0.3125, -0.375, -0.0625, -0.1875, -0.1875, 0.0625}, -- NodeBox5
{0.1875, -0.375, -0.0625, 0.3125, -0.1875, 0.0625}, -- NodeBox6
},
{
{-0.5, -0.5, -0.125, -0.1875, -0.25, 0.125}, -- NodeBox2
{0.1875, -0.5, -0.125, 0.5, -0.25, 0.125}, -- NodeBox3
{-0.4375, -0.1875, -0.125, 0.4375, 0.0625, 0.125}, -- NodeBox4
{-0.4375, -0.25, -0.125, -0.1875, -0.1875, 0.125}, -- NodeBox5
{0.1875, -0.25, -0.125, 0.4375, -0.1875, 0.125}, -- NodeBox6
}
}
local nodeboxes_ccorner = {
{
{-0.5, -0.5, -0.0625, -0.1875, -0.375, 0.0625}, -- NodeBox1
{-0.0625, -0.5, 0.1875, 0.0625, -0.375, 0.5}, -- NodeBox2
{-0.3125, -0.5, 0.0625, -0.1875, -0.375, 0.3125}, -- NodeBox3
{-0.1875, -0.5, 0.1875, -0.0625, -0.375, 0.3125}, -- NodeBox4
},
{
{-0.5, -0.5, -0.125, -0.125, -0.25, 0.125}, -- NodeBox1
{-0.125, -0.5, 0.125, 0.125, -0.25, 0.5}, -- NodeBox2
{-0.375, -0.5, 0.125, -0.125, -0.25, 0.375}, -- NodeBox4
}
}
local nodeboxes_tri = {
{
{-0.5, -0.5, -0.0625, 0.5, -0.375, 0.0625}, -- NodeBox1
{-0.0625, -0.5, 0.0625, 0.0625, -0.375, 0.5}, -- NodeBox2
},
{
{-0.5, -0.5, -0.125, 0.5, -0.25, 0.125}, -- NodeBox1
{-0.125, -0.5, 0.125, 0.125, -0.25, 0.5}, -- NodeBox2
}
}
local nodeboxes_cross = {
{
{-0.5, -0.5, -0.0625, 0.5, -0.375, 0.0625}, -- NodeBox1
{-0.0625, -0.5, 0.0625, 0.0625, -0.375, 0.5}, -- NodeBox2
{-0.0625, -0.5, -0.5, 0.0625, -0.375, -0.0625}, -- NodeBox3
},
{
{-0.5, -0.5, -0.125, 0.5, -0.25, 0.125}, -- NodeBox1
{-0.125, -0.5, 0.125, 0.125, -0.25, 0.5}, -- NodeBox2
{-0.125, -0.5, -0.5, 0.125, -0.25, -0.125}, -- NodeBox3
}
}
local nodebox_disconnected = {-0.125, -0.5, -0.125, 0.125, -0.25, 0.125}
local function rotateNodebox(nb,rot)
return
(math.fmod(rot,4)==0) and {nb[1],nb[2],nb[3],nb[4],nb[5],nb[6]} or
(math.fmod(rot,4)==1) and {nb[3],nb[2],-nb[1],nb[6],nb[5],-nb[4]} or
(math.fmod(rot,4)==2) and {-nb[1],nb[2],-nb[3],-nb[4],nb[5],-nb[6]} or
(math.fmod(rot,4)==3) and {-nb[3],nb[2],nb[1],-nb[6],nb[5],nb[4]} or
nb -- Should not happen
end
local function rotate4dir(conn,r)
local function rotate4dirOnce(conn)
return math.floor(conn/2) + 8*math.fmod(conn,2)
end
local x = math.fmod(conn,16)
for i=1,r do
x = rotate4dirOnce(x)
end
return (conn - math.fmod(conn,16) + x)
end
local function constArray(val,size)
local t = {}
for i=1,size
do
table.insert(t,val)
end
return t
end
--[[
name: the name of the cable
nodeboxes: All the rendered nodeboxes
@@ -113,11 +6,12 @@ end
nbconn: Which correspond each nodebox correspond to
ex: {1,1,2,1} -> nodeboxes 1,2,3 correspond to connection ES, and nodebox 2 correspond to connection W
--]]
logikraft.cablesnb = {}
logikraft.cablesconn = {}
logikraft.cablesnbconn = {}
local function createCables(name,nodeboxes,connections,nbconn)
minetest.register_node("logikraft:cable_"..name, {
logikraft.cablenodes = {}
logikraft.cables = {}
function logikraft.registerCable(name,nodeboxes,connections,nbconn)
local nodename = "logikraft:cable_"..name
minetest.register_node(nodename, {
tiles = {
"cable_gray.png",
"cable_gray.png",
@@ -126,18 +20,16 @@ local function createCables(name,nodeboxes,connections,nbconn)
"cable_gray.png",
"cable_gray.png",
},
drawtype = "nodebox",
paramtype = "light",
drawtype = "nodebox",
node_box = {
type = "fixed",
fixed = nodeboxes
},
groups = {circuitry = 1,dig_immediate = 3}
groups = {circuitry = 1,dig_immediate = 3},
drop = nil
})
if name == "EW8_N1_S1"
then print(dump(connections)) end
-- We sort the connections and nbconn
local connections2 = table.copy(connections)
table.sort(connections2)
@@ -147,211 +39,40 @@ local function createCables(name,nodeboxes,connections,nbconn)
do
nbconn2[i] = perm[v]
end
if name == "EW8_N1_S1"
then print(dump(connections2)) end
logikraft.cablesnb[name] = nodeboxes
logikraft.cablesconn[name] = connections2
logikraft.cablesnbconn[name] = nbconn2
logikraft.cablenodes[nodename] = name
logikraft.cables[name] = {
nbs = nodeboxes,
conns = connections2,
nbToConn = nbconn2
}
end
-- cable_NSEW0
for v=1,2 do
createCables("NSEW"..tostring((v-1)*7+1),nodeboxes_cross[v],{(v-1)*16+8+4+2+1},constArray(1,#nodeboxes_cross[v]))
end
--[
-- cable_NW0_SE0
-- cable_NE0_SW0
-- cable_NS0_EW0
for v0=1,2 do
for v1=1,2 do
local nodeboxes = {}
local nbconn = {}
for _,nb in ipairs(nodeboxes_ccorner[v0]) do
table.insert(nodeboxes, nb)
table.insert(nbconn, 1)
end
for _,nb in ipairs(nodeboxes_ccorner[v1]) do
table.insert(nodeboxes, rotateNodebox(nb,2))
table.insert(nbconn, 2)
end
createCables("NW"..tostring((v0-1)*7+1).."_SE"..tostring((v1-1)*7+1),nodeboxes,{(v0-1)*16+8+1,(v1-1)*16+4+2},nbconn)
local nodeboxes = {}
local nbconn = {}
for _,nb in ipairs(nodeboxes_ccorner[v0]) do
table.insert(nodeboxes, rotateNodebox(nb,1))
table.insert(nbconn, 1)
end
for _,nb in ipairs(nodeboxes_ccorner[v1]) do
table.insert(nodeboxes, rotateNodebox(nb,3))
table.insert(nbconn, 2)
end
createCables("NE"..tostring((v0-1)*7+1).."_SW"..tostring((v1-1)*7+1),nodeboxes,{(v0-1)*16+8+4,(v1-1)*16+2+1},nbconn)
local nodeboxes = {}
local nbconn = {}
table.insert(nodeboxes, nodebox_straight[v0])
table.insert(nbconn, 1)
for _,nb in ipairs(nodeboxes_jump[v1]) do
table.insert(nodeboxes, rotateNodebox(nb,2))
table.insert(nbconn, 2)
end
createCables("NS"..tostring((v0-1)*7+1).."_EW"..tostring((v1-1)*7+1),nodeboxes,{(v0-1)*16+8+2,(v1-1)*16+4+1},nbconn)
end
end
-- cable_AB0_C0_D0 -- ("NW","NE","SE","SW") * (/ + C0 + D0 + C0D0)
-- cable_AB0_C0_D0 -- ("NS" "EW") * (/ + C0 + D0 + C0D0)
for v=1,2 do
for v1=0,2 do
for v2=0,2 do
for r,rn in ipairs({{"NW","E","S"},{"NE","S","W"},{"SE","W","N"},{"SW","N","E"}}) do
local nodeboxes = {}
local nbconn = {}
local connz = {rotate4dir((v-1)*16+8+1,r-1)}
for _,nb in ipairs(nodeboxes_corner[v]) do
table.insert(nodeboxes, rotateNodebox(nb,r-1))
table.insert(nbconn, 1)
function logikraft.cableFromConns(conns)
for name,cable in pairs(logikraft.cables)
do
if table.equals1(conns,cable.conns)
then return name
end
if v1 ~= 0 then
table.insert(nodeboxes, rotateNodebox(nodebox_single[v1],r))
table.insert(nbconn, 2)
table.insert(connz,rotate4dir((v1-1)*16+4,r-1))
end
if v2 ~= 0 then
table.insert(nodeboxes, rotateNodebox(nodebox_single[v2],r+1))
table.insert(nbconn, v1==0 and 2 or 3)
table.insert(connz,rotate4dir((v2-1)*16+2,r-1))
end
createCables(
rn[1]..tostring((v-1)*7+1)..
(v1~=0 and ("_"..rn[2]..tostring((v1-1)*7+1)) or "")..
(v2~=0 and ("_"..rn[3]..tostring((v2-1)*7+1)) or "")
,nodeboxes,connz,nbconn
)
end
for r,rn in ipairs({{"NS","E","W"},{"EW","N","S"}}) do
local nodeboxes = {}
local nbconn = {}
local connz = {rotate4dir((v-1)*16+8+2,r-1)}
table.insert(nodeboxes, rotateNodebox(nodebox_straight[v],r-1))
table.insert(nbconn, 1)
if v1 ~= 0 then
table.insert(nodeboxes, rotateNodebox(nodebox_single[v1],r))
table.insert(nbconn, 2)
table.insert(connz,rotate4dir((v1-1)*16+4,r-1))
end
if v2 ~= 0 then
table.insert(nodeboxes, rotateNodebox(nodebox_single[v2],r+2))
table.insert(nbconn, v1==0 and 2 or 3)
table.insert(connz,rotate4dir((v2-1)*16+1,r-1))
end
createCables(
rn[1]..tostring((v-1)*7+1)..
(v1~=0 and ("_"..rn[2]..tostring((v1-1)*7+1)) or "")..
(v2~=0 and ("_"..rn[3]..tostring((v2-1)*7+1)) or ""),
nodeboxes,connz,nbconn
)
end
return nil
end
end
end
-- "cable_A0_B0_C0_D0" -- (n s e w ns ...)
for v1=0,2 do
for v2=0,2 do
for v3=0,2 do
for v4=0,2 do
local nodeboxes = {}
local nbconn = {}
local name = ""
local connz = {}
if v1 ~= 0 then
table.insert(nodeboxes, rotateNodebox(nodebox_single[v1],0))
table.insert(nbconn, 1)
table.insert(connz,(v1-1)*16+8)
name = name.."_N"..tostring((v1-1)*7+1)
end
if v2 ~= 0 then
table.insert(nodeboxes, rotateNodebox(nodebox_single[v2],1))
table.insert(nbconn, #nbconn+1)
table.insert(connz,(v2-1)*16+4)
name = name.."_E"..tostring((v2-1)*7+1)
end
if v3 ~= 0 then
table.insert(nodeboxes, rotateNodebox(nodebox_single[v3],2))
table.insert(nbconn, #nbconn+1)
table.insert(connz,(v3-1)*16+2)
name = name.."_S"..tostring((v3-1)*7+1)
end
if v4 ~= 0 then
table.insert(nodeboxes, rotateNodebox(nodebox_single[v4],3))
table.insert(nbconn, #nbconn+1)
table.insert(connz,(v4-1)*16+1)
name = name.."_W"..tostring((v4-1)*7+1)
end
if name == "" then
table.insert(nodeboxes, nodebox_disconnected)
table.insert(nbconn, 1)
table.insert(connz,(v1-1)*16+0) -- special case of no connection
name = "_zero"
end
createCables(string.sub(name,2,-1),nodeboxes,connz,nbconn)
end
end
end
end
-- "cable_ABC0_D0" -- ("NEW","NES","ESW","SWN") * (/ + D0)
for v=1,2 do
for v1=0,2 do
for r,rn in ipairs({{"NEW","S"},{"NES","W"},{"ESW","N"},{"SWN","E"}}) do
local nodeboxes = {}
local nbconn = {}
local connz = {rotate4dir((v-1)*16+8+4+1,r-1)}
for _,nb in ipairs(nodeboxes_tri[v]) do
table.insert(nodeboxes, rotateNodebox(nb,r-1))
table.insert(nbconn, 1)
end
if v1 ~= 0 then
table.insert(nodeboxes, rotateNodebox(nodebox_single[v1],r+1))
table.insert(nbconn, 2)
table.insert(connz,rotate4dir((v1-1)*16+2,r-1))
end
createCables(
rn[1]..tostring((v-1)*7+1)..
(v1~=0 and ("_"..rn[2]..tostring((v1-1)*7+1)) or ""),
nodeboxes,connz,nbconn
)
end
end
end
--]]
logikraft.cablesfromconn = table.invert(logikraft.cablesconn)
function logikraft.rotateCable(name,r)
local conn = logikraft.cablesconn[name]
local conn = logikraft.cables[name].conns
local newconn = {}
for i,v in ipairs(conn)
do
newconn[i] = rotate4dir(v,r)
newconn[i] = logikraft.rotate4dir(v,r)
end
table.sort(newconn)
return table.getkey1(logikraft.cablesconn,newconn)
return logikraft.cableFromConns(newconn)
end
function logikraft.connectInCable(name,a,b)
local conns = table.copy(logikraft.cablesconn[name])
local cia = logikraft.cablesnbconn[name][a]
local cib = logikraft.cablesnbconn[name][b]
local conns = table.copy(logikraft.cables[name].conns)
local cia = logikraft.cables[name].nbToConn[a]
local cib = logikraft.cables[name].nbToConn[b]
local conna = conns[cia]
local connb = conns[cib]
@@ -361,12 +82,133 @@ function logikraft.connectInCable(name,a,b)
table.remove(conns,cib)
table.sort(conns)
return table.getkey1(logikraft.cablesconn,conns)
return logikraft.cableFromConns(conns)
end
function logikraft.connFromDir(name,dir)
local conns = logikraft.cables[name].conns
local dir8 = math.pow(2,dir)
for i,c in ipairs(conns)
do
if (math.fmod(c,2*dir8) - dir8 >= 0)
then
return i
end
end
return nil
end
--[[
Returns {newcablea,newcableb} if the two cables are contiguous
Returns nil otherwise
If namea or nameb is nil, no cable is present, and we create a single pin, or we connect to the conn in the direction
If a or b is nil, we consider that
--]]
function logikraft.connectContiguousCable(namea,posa,a,nameb,posb,b)
print("Connecting "..tostring(namea).."("..tostring(a)..") with "..tostring(nameb).."("..tostring(b)..")")
local dira = (posa.y == posb.y) and (
(posa.z + 1 == posb.z and posa.x == posb.x and 3) or
(posa.x + 1 == posb.x and posa.z == posb.z and 2) or
(posa.z - 1 == posb.z and posa.x == posb.x and 1) or
(posa.x - 1 == posb.x and posa.z == posb.z and 0) or
nil) or nil
if dira == nil
then return nil
end
if not namea
then
namea = logikraft.cableFromConns({logikraft.rotate4dir(4,6-dira)})
a = 1 -- There is only one nodebox
end
if not nameb
then
nameb = logikraft.cableFromConns({logikraft.rotate4dir(4,4-dira)})
b = 1 -- There is only one nodebox
end
local cia
if not a
then
cia = logikraft.connFromDir(namea,dira)
if not cia
then
-- We need to add a tip to a
local connsa = table.copy(logikraft.cables[namea].conns)
table.insert(connsa,logikraft.rotate4dir(4,6-dira))
table.sort(connsa)
namea = logikraft.cableFromConns(connsa)
cia = logikraft.connFromDir(namea,dira)
end
else
cia = logikraft.cables[namea].nbToConn[a]
end
local cib
if not b
then
cib = logikraft.connFromDir(nameb,math.fmod(dira+2,4))
if not cib
then
-- We need to add a tip to b
local connsb = table.copy(logikraft.cables[nameb].conns)
table.insert(connsb,logikraft.rotate4dir(4,4-dira))
table.sort(connsb)
nameb = logikraft.cableFromConns(connsb)
cib = logikraft.connFromDir(nameb,math.fmod(dira+2,4))
end
else
cib = logikraft.cables[nameb].nbToConn[b]
end
print(dira)
print(namea)
print(cia)
print(nameb)
print(cib)
local connsa = table.copy(logikraft.cables[namea].conns)
local connsb = table.copy(logikraft.cables[nameb].conns)
--print(dump(connsa))
--print(dump(connsb))
local cia2 = logikraft.connFromDir(namea,dira)
local cib2 = logikraft.connFromDir(nameb,math.fmod(dira+2,4))
-- (nba == nil) -> Need to add dira to the a
-- (a == nba) -> Already connected
-- (a ~= nba) -> Need to connect a and nbas
if (cia2 == nil)
then
connsa[cia] = connsa[cia] + math.pow(2,dira)
elseif (cia ~= cia2)
then
-- We take the v size of selected cable
local v = math.fmod(math.floor(connsa[cia]/16),2)
connsa[cia] = math.fmod(connsa[cia],16) + math.fmod(connsa[cia2],16) + v*16
table.remove(connsa,cia2)
end
if (cib2 == nil)
then
connsb[cib] = connsb[cib] + math.pow(2,math.fmod(dira+2,4))
elseif (cib ~= cib2)
then
-- We take the v size of selected cable
local v = math.fmod(math.floor(connsb[cib]/16),2)
connsb[cib] = math.fmod(connsb[cib],16) + math.fmod(connsb[cib2],16) + v*16
table.remove(connsb,cib2)
end
table.sort(connsa)
table.sort(connsb)
return {logikraft.cableFromConns(connsa),logikraft.cableFromConns(connsb)}
end
function logikraft.disconnectInCable(name,a)
local conns = table.copy(logikraft.cablesconn[name])
local cindex = logikraft.cablesnbconn[name][a]
local conns = table.copy(logikraft.cables[name].conns)
local cindex = logikraft.cables[name].nbToConn[a]
local conn = conns[cindex]
table.remove(conns,cindex)
@@ -384,5 +226,15 @@ function logikraft.disconnectInCable(name,a)
end
table.sort(conns)
return table.getkey1(logikraft.cablesconn,conns)
return logikraft.cableFromConns(conns)
end
function logikraft.resizeInCable(name,a)
local conns = table.copy(logikraft.cables[name].conns)
local cindex = logikraft.cables[name].nbToConn[a]
conns[cindex] = (conns[cindex] >= 16) and (conns[cindex] - 16) or (conns[cindex] + 16)
table.sort(conns)
return logikraft.cableFromConns(conns)
end
blocks/cables_register.lua
+253
View File
@@ -0,0 +1,253 @@
--[[
cable_NS1 -> One connection from north to south
cable_NW1_ES1 -> One connection from north to west, and another from east to south
cable_NWE8_S8 -> One connection between north, west and east, 8bit single cable from south
cable_0 -> The one cable without connection
--]]
local nodebox_single = {
{-0.0625, -0.5, 0.25, 0.0625, -0.375, 0.5},
{-0.125, -0.5, 0.25, 0.125, -0.25, 0.5}
}
local nodebox_straight = {
{-0.0625, -0.5, -0.5, 0.0625, -0.375, 0.5},
{-0.125, -0.5, -0.5, 0.125, -0.25, 0.5}
}
local nodeboxes_corner = {
{
{-0.5, -0.5, -0.0625, 0.0625, -0.375, 0.0625}, -- NodeBox1
{-0.0625, -0.5, 0.0625, 0.0625, -0.375, 0.5}, -- NodeBox2
},
{
{-0.5, -0.5, -0.125, 0.125, -0.25, 0.125}, -- NodeBox1
{-0.125, -0.5, 0.125, 0.125, -0.25, 0.5}, -- NodeBox2
}
}
local nodeboxes_jump = {
{
{-0.5, -0.5, -0.0625, -0.1875, -0.375, 0.0625}, -- NodeBox2
{0.1875, -0.5, -0.0625, 0.5, -0.375, 0.0625}, -- NodeBox3
{-0.3125, -0.1875, -0.0625, 0.3125, -0.0625, 0.0625}, -- NodeBox4
{-0.3125, -0.375, -0.0625, -0.1875, -0.1875, 0.0625}, -- NodeBox5
{0.1875, -0.375, -0.0625, 0.3125, -0.1875, 0.0625}, -- NodeBox6
},
{
{-0.5, -0.5, -0.125, -0.1875, -0.25, 0.125}, -- NodeBox2
{0.1875, -0.5, -0.125, 0.5, -0.25, 0.125}, -- NodeBox3
{-0.4375, -0.1875, -0.125, 0.4375, 0.0625, 0.125}, -- NodeBox4
{-0.4375, -0.25, -0.125, -0.1875, -0.1875, 0.125}, -- NodeBox5
{0.1875, -0.25, -0.125, 0.4375, -0.1875, 0.125}, -- NodeBox6
}
}
local nodeboxes_ccorner = {
{
{-0.5, -0.5, -0.0625, -0.1875, -0.375, 0.0625}, -- NodeBox1
{-0.0625, -0.5, 0.1875, 0.0625, -0.375, 0.5}, -- NodeBox2
{-0.3125, -0.5, 0.0625, -0.1875, -0.375, 0.3125}, -- NodeBox3
{-0.1875, -0.5, 0.1875, -0.0625, -0.375, 0.3125}, -- NodeBox4
},
{
{-0.5, -0.5, -0.125, -0.125, -0.25, 0.125}, -- NodeBox1
{-0.125, -0.5, 0.125, 0.125, -0.25, 0.5}, -- NodeBox2
{-0.375, -0.5, 0.125, -0.125, -0.25, 0.375}, -- NodeBox4
}
}
local nodeboxes_tri = {
{
{-0.5, -0.5, -0.0625, 0.5, -0.375, 0.0625}, -- NodeBox1
{-0.0625, -0.5, 0.0625, 0.0625, -0.375, 0.5}, -- NodeBox2
},
{
{-0.5, -0.5, -0.125, 0.5, -0.25, 0.125}, -- NodeBox1
{-0.125, -0.5, 0.125, 0.125, -0.25, 0.5}, -- NodeBox2
}
}
local nodeboxes_cross = {
{
{-0.5, -0.5, -0.0625, 0.5, -0.375, 0.0625}, -- NodeBox1
{-0.0625, -0.5, 0.0625, 0.0625, -0.375, 0.5}, -- NodeBox2
{-0.0625, -0.5, -0.5, 0.0625, -0.375, -0.0625}, -- NodeBox3
},
{
{-0.5, -0.5, -0.125, 0.5, -0.25, 0.125}, -- NodeBox1
{-0.125, -0.5, 0.125, 0.125, -0.25, 0.5}, -- NodeBox2
{-0.125, -0.5, -0.5, 0.125, -0.25, -0.125}, -- NodeBox3
}
}
local nodebox_disconnected = {-0.125, -0.5, -0.125, 0.125, -0.25, 0.125}
-- cable_NSEW0
for v=1,2 do
logikraft.registerCable("NSEW"..tostring((v-1)*7+1),nodeboxes_cross[v],{(v-1)*16+8+4+2+1},table.constTable(1,#nodeboxes_cross[v]))
end
--[
-- cable_NW0_SE0
-- cable_NE0_SW0
-- cable_NS0_EW0
for v0=1,2 do
for v1=1,2 do
local nodeboxes = {}
local nbconn = {}
for _,nb in ipairs(nodeboxes_ccorner[v0]) do
table.insert(nodeboxes, nb)
table.insert(nbconn, 1)
end
for _,nb in ipairs(nodeboxes_ccorner[v1]) do
table.insert(nodeboxes, logikraft.rotateNodebox(nb,2))
table.insert(nbconn, 2)
end
logikraft.registerCable("NW"..tostring((v0-1)*7+1).."_SE"..tostring((v1-1)*7+1),nodeboxes,{(v0-1)*16+8+1,(v1-1)*16+4+2},nbconn)
local nodeboxes = {}
local nbconn = {}
for _,nb in ipairs(nodeboxes_ccorner[v0]) do
table.insert(nodeboxes, logikraft.rotateNodebox(nb,1))
table.insert(nbconn, 1)
end
for _,nb in ipairs(nodeboxes_ccorner[v1]) do
table.insert(nodeboxes, logikraft.rotateNodebox(nb,3))
table.insert(nbconn, 2)
end
logikraft.registerCable("NE"..tostring((v0-1)*7+1).."_SW"..tostring((v1-1)*7+1),nodeboxes,{(v0-1)*16+8+4,(v1-1)*16+2+1},nbconn)
local nodeboxes = {}
local nbconn = {}
table.insert(nodeboxes, nodebox_straight[v0])
table.insert(nbconn, 1)
for _,nb in ipairs(nodeboxes_jump[v1]) do
table.insert(nodeboxes, logikraft.rotateNodebox(nb,2))
table.insert(nbconn, 2)
end
logikraft.registerCable("NS"..tostring((v0-1)*7+1).."_EW"..tostring((v1-1)*7+1),nodeboxes,{(v0-1)*16+8+2,(v1-1)*16+4+1},nbconn)
end
end
-- cable_AB0_C0_D0 -- ("NW","NE","SE","SW") * (/ + C0 + D0 + C0D0)
-- cable_AB0_C0_D0 -- ("NS" "EW") * (/ + C0 + D0 + C0D0)
for v=1,2 do
for v1=0,2 do
for v2=0,2 do
for r,rn in ipairs({{"NW","E","S"},{"NE","S","W"},{"SE","W","N"},{"SW","N","E"}}) do
local nodeboxes = {}
local nbconn = {}
local connz = {logikraft.rotate4dir((v-1)*16+8+1,r-1)}
for _,nb in ipairs(nodeboxes_corner[v]) do
table.insert(nodeboxes, logikraft.rotateNodebox(nb,r-1))
table.insert(nbconn, 1)
end
if v1 ~= 0 then
table.insert(nodeboxes, logikraft.rotateNodebox(nodebox_single[v1],r))
table.insert(nbconn, 2)
table.insert(connz,logikraft.rotate4dir((v1-1)*16+4,r-1))
end
if v2 ~= 0 then
table.insert(nodeboxes, logikraft.rotateNodebox(nodebox_single[v2],r+1))
table.insert(nbconn, v1==0 and 2 or 3)
table.insert(connz,logikraft.rotate4dir((v2-1)*16+2,r-1))
end
logikraft.registerCable(
rn[1]..tostring((v-1)*7+1)..
(v1~=0 and ("_"..rn[2]..tostring((v1-1)*7+1)) or "")..
(v2~=0 and ("_"..rn[3]..tostring((v2-1)*7+1)) or "")
,nodeboxes,connz,nbconn
)
end
for r,rn in ipairs({{"NS","E","W"},{"EW","N","S"}}) do
local nodeboxes = {}
local nbconn = {}
local connz = {logikraft.rotate4dir((v-1)*16+8+2,r-1)}
table.insert(nodeboxes, logikraft.rotateNodebox(nodebox_straight[v],r-1))
table.insert(nbconn, 1)
if v1 ~= 0 then
table.insert(nodeboxes, logikraft.rotateNodebox(nodebox_single[v1],r))
table.insert(nbconn, 2)
table.insert(connz,logikraft.rotate4dir((v1-1)*16+4,r-1))
end
if v2 ~= 0 then
table.insert(nodeboxes, logikraft.rotateNodebox(nodebox_single[v2],r+2))
table.insert(nbconn, v1==0 and 2 or 3)
table.insert(connz,logikraft.rotate4dir((v2-1)*16+1,r-1))
end
logikraft.registerCable(
rn[1]..tostring((v-1)*7+1)..
(v1~=0 and ("_"..rn[2]..tostring((v1-1)*7+1)) or "")..
(v2~=0 and ("_"..rn[3]..tostring((v2-1)*7+1)) or ""),
nodeboxes,connz,nbconn
)
end
end
end
end
-- "cable_A0_B0_C0_D0" -- (n s e w ns ...)
for v1=0,2 do
for v2=0,2 do
for v3=0,2 do
for v4=0,2 do
local nodeboxes = {}
local nbconn = {}
local name = ""
local connz = {}
if v1 ~= 0 then
table.insert(nodeboxes, logikraft.rotateNodebox(nodebox_single[v1],0))
table.insert(nbconn, 1)
table.insert(connz,(v1-1)*16+8)
name = name.."_N"..tostring((v1-1)*7+1)
end
if v2 ~= 0 then
table.insert(nodeboxes, logikraft.rotateNodebox(nodebox_single[v2],1))
table.insert(nbconn, #nbconn+1)
table.insert(connz,(v2-1)*16+4)
name = name.."_E"..tostring((v2-1)*7+1)
end
if v3 ~= 0 then
table.insert(nodeboxes, logikraft.rotateNodebox(nodebox_single[v3],2))
table.insert(nbconn, #nbconn+1)
table.insert(connz,(v3-1)*16+2)
name = name.."_S"..tostring((v3-1)*7+1)
end
if v4 ~= 0 then
table.insert(nodeboxes, logikraft.rotateNodebox(nodebox_single[v4],3))
table.insert(nbconn, #nbconn+1)
table.insert(connz,(v4-1)*16+1)
name = name.."_W"..tostring((v4-1)*7+1)
end
if name ~= "" then
-- Else there is no connection, we don't have to create a cable
logikraft.registerCable(string.sub(name,2,-1),nodeboxes,connz,nbconn)
end
end
end
end
end
-- "cable_ABC0_D0" -- ("NEW","NES","ESW","SWN") * (/ + D0)
for v=1,2 do
for v1=0,2 do
for r,rn in ipairs({{"NEW","S"},{"NES","W"},{"ESW","N"},{"SWN","E"}}) do
local nodeboxes = {}
local nbconn = {}
local connz = {logikraft.rotate4dir((v-1)*16+8+4+1,r-1)}
for _,nb in ipairs(nodeboxes_tri[v]) do
table.insert(nodeboxes, logikraft.rotateNodebox(nb,r-1))
table.insert(nbconn, 1)
end
if v1 ~= 0 then
table.insert(nodeboxes, logikraft.rotateNodebox(nodebox_single[v1],r+1))
table.insert(nbconn, 2)
table.insert(connz,logikraft.rotate4dir((v1-1)*16+2,r-1))
end
logikraft.registerCable(
rn[1]..tostring((v-1)*7+1)..
(v1~=0 and ("_"..rn[2]..tostring((v1-1)*7+1)) or ""),
nodeboxes,connz,nbconn
)
end
end
end
blocks/circuit.lua
+2 -32
View File
@@ -1,39 +1,9 @@
local _contexts = {}
function logikraft.setNameFormspec(targetType, defaultName)
local text = "Please enter the name of this " .. targetType
local formspec = {
"formspec_version[4]",
"size[6,3.476]",
"label[0.375,0.5;", minetest.formspec_escape(text), "]",
"field[0.375,1.25;5.25,0.8;name;".. minetest.formspec_escape(targetType) .. " name;"..(defaultName or "").."]",
"button[1.5,2.3;3,0.8;commit;OK]"
}
-- table.concat is faster than string concatenation - `..`
return table.concat(formspec, "")
end
function logikraft.showSetNameFormspec(playerName, targetName)
minetest.show_formspec(playerName, "logikraft:setNameFormSpec", logikraft.setNameFormspec(targetName))
end
minetest.register_on_player_receive_fields(function(player, formname, fields)
if formname ~= "logikraft:setNameFormSpec" then return end
if fields.commit then
local pname = player:get_player_name()
minetest.chat_send_all(pname .. " guessed " .. fields.name)
end
end)
minetest.register_node("logikraft:circuitBlock", {
description = "Circuit Block",
tiles = {"circuit_block.png"},
on_rightclick = function(pos, node, clicker, itemstack, pointed_thing)
logikraft.discoverBlocks(pos)
local poz = logikraft.discoverBlocks(pos)
local circuit = logikraft.compileCircuit(poz)
end,
groups = {circuitry = 1,dig_immediate = 3}
})
blocks/component.lua
+82 -128
View File
@@ -1,51 +1,3 @@
--[[
Component 2x3:
z+
/|\
\ 22 | 11 /
\ 22 | 11 /
\ 22 | 11 /
333 \ | / 000
333 \|/ 000
−−−−−−−+−−−−−−−> x+
444 /|\ 777
444 / | \ 777
/ 55 | 66 \
/ 55 | 66 \
/ 55 | 66 \
--]]
local function vecTo8dir(vec)
local x = vec[1]
local z = vec[3]
return
x>=0 and z>=0 and z<=x and 0 or
x>=0 and z>=0 and z>x and 1 or
x<0 and z>=0 and -z<=x and 2 or
x<0 and z>=0 and -z>x and 3 or
x<0 and z<0 and z>=x and 4 or
x<0 and z<0 and z<x and 5 or
x>=0 and z<0 and -z>=x and 6 or
x>=0 and z<0 and -z<x and 7 or
0 -- Should not happen
end
local function addToPos8dir(dir,pos,w,h)
local x = pos[1]
local y = pos[2]
local z = pos[3]
return
dir == 0 and {x = x+h, y = y, z = z+w} or
dir == 1 and {x = x+w, y = y, z = z+h} or
dir == 2 and {x = x-w, y = y, z = z+h} or
dir == 3 and {x = x-h, y = y, z = z+w} or
dir == 4 and {x = x-h, y = y, z = z-w} or
dir == 5 and {x = x-w, y = y, z = z-h} or
dir == 6 and {x = x+w, y = y, z = z-h} or
dir == 7 and {x = x+h, y = y, z = z-w} or
pos -- Should not happen
end
-- Removes a node without calling on on_destruct()
-- We use this to mess with bed nodes without causing unwanted recursion.
local function remove_no_destruct(pos)
@@ -54,98 +6,100 @@ local function remove_no_destruct(pos)
minetest.check_for_falling(pos)
end
-- Everything is described as if dir=0
-- {name,width,height,{cables_left,cables_right,cables_top,cables_bottom}}
components = {
"and" = {2,3,{{"in_1","in_2"},{"out"},{},{}}},
"switch" = {2,1,{{"in"},{"out"},{"activate"},{}}},
"demux" = {2,8,{{"in_1","in_2","in_3"},{"out_1","out_2","out_3","out_4","out_5","out_6","out_7","out_8"},{},{}}},
}
-- componentsblocks["block"] = {name = Name of the component,x,y}
logikraft.componentnodes = {}
-- componentsblocks["block"] = {name,x,y}
componentsblocks = {}
function logikraft.registerComponent(name,cmp)
local w = cmp.width
local h = cmp.height
local cables = cmp.ports
for x=1,w do
for y=1,h do
local nodename = "logikraft:component_"..name.."_"..tostring(x).."_"..tostring(y)
minetest.register_node(nodename, {
drawtype = "block",
description = name.." component",
tiles = {
"component_"..name..".png",
"component.png",
((x==w) and (cables.right and cables.right[y] and "component_port.png" or "component.png") or "component.png"), -- x+
((x==1) and (cables.left and cables.left[y] and "component_port.png" or "component.png") or "component.png"), -- x-
((y==h) and (cables.top and cables.top[x] and "component_port.png" or "component.png") or "component.png"), -- z+
((y==1) and (cables.bottom and cables.bottom[x] and "component_port.png" or "component.png") or "component.png"), -- z-
},
groups = {circuitry = 1,dig_immediate = 3, not_in_creative_inventory = (x==1 and y==1 and 0) or 1},
paramtype2 = "4dir",
inventory_image = (x == 1 and y == 1 and "component_"..name..".png") or nil,
drop = "logikraft:component_"..name.."_1_1",
on_place = (x == 1 and y == 1) and function(itemstack, placer, pointed_thing)
minetest.register_node("logikraft:component_head", {
drawtype = "block",
tiles = {"component.png"},
groups = {circuitry = 1,dig_immediate = 3},
on_place = function(itemstack, placer, pointed_thing)
local w = 3
local h = 5
local under = pointed_thing.under
local node = minetest.get_node(under)
local udef = minetest.registered_nodes[node.name]
local under = pointed_thing.under
local node = minetest.get_node(under)
local udef = minetest.registered_nodes[node.name]
-- Rightclick is prioritary
if udef and udef.on_rightclick and
not (placer and placer:is_player() and
placer:get_player_control().sneak) then
return udef.on_rightclick(under, node, placer, itemstack,
pointed_thing) or itemstack
end
-- Rightclick is prioritary
if udef and udef.on_rightclick and
not (placer and placer:is_player() and
placer:get_player_control().sneak) then
return udef.on_rightclick(under, node, placer, itemstack,
pointed_thing) or itemstack
end
-- Pos will be the head location
local pos
if udef and udef.buildable_to then
pos = under
else
pos = pointed_thing.above
end
-- Pos will be the head location
local pos
if udef and udef.buildable_to then
pos = under
else
pos = pointed_thing.above
end
local dir8 = logikraft.vecTo8dir(placer:get_look_dir())
for i = 1,w do
for j = 1,h do
local loc = logikraft.addToPos8dir(dir8,pos,i-1,j-1)
local node_def = minetest.registered_nodes[minetest.get_node(loc).name]
if not node_def or not node_def.buildable_to then
-- Then we cannot build here
return itemstack
end
end
end
local player_name = placer and placer:get_player_name() or ""
local dir4 = logikraft.dir8to4(dir8)
local invw = dir8 % 2 == 0
local dir = placer and placer:get_look_dir() and
vecTo8dir(placer:get_look_dir()) or 0
-- If we reached this point, we can build the component
for i = 1,w do
for j = 1,h do
local loc = logikraft.addToPos8dir(dir8,pos,invw and (w-i) or (i-1),j-1)
minetest.set_node(loc, {name = "logikraft:component_"..name.."_"..tostring(i).."_"..tostring(j), param2 = dir4})
end
end
for i = 0,w*h-1 do
local loc = addToPos8dir(dir,pos,i%w,(i-i%w)/w)
local node_def = minetest.registered_nodes[minetest.get_node(loc).name]
if not node_def or not node_def.buildable_to then
-- Then we cannot build here
if not minetest.is_creative_enabled(placer) then
itemstack:take_item()
end
return itemstack
end or nil,
on_destruct = function(pos)
local node = minetest.get_node(pos)
dir4 = node.param2
for i = 1,w do
for j = 1,h do
local loc = logikraft.addToPos4dir(dir4,pos,i-x,j-y)
remove_no_destruct(loc)
end
end
end
end
-- If we reached this point, we can build the component
minetest.set_node(pos, {name = "logikraft:component_head", param2 = dir})
for i = 1,w*h-1 do
local loc = addToPos8dir(dir,pos,i%w,(i-i%w)/w)
minetest.set_node(loc, {name = "logikraft:component_tail", param2 = dir})
end
if not minetest.is_creative_enabled(player_name) then
itemstack:take_item()
end
return itemstack
end,
on_destruct = function(pos)
local w = 3
local h = 5
local node = minetest.get_node(pos)
dir = node.param2
remove_no_destruct(pos) -- Should be logikraft:component_head
for i = 1,w*h-1 do
local loc = addToPos8dir(dir,pos,i%w,(i-i%w)/w)
local onode = minetest.get_node(loc)
if onode.name == "logikraft:component_tail" and onode.param2 == dir
then
remove_no_destruct(loc)
end
end
})
logikraft.componentnodes[nodename] = {name = name, x = x, y = y}
end
end
})
minetest.register_node("logikraft:component_tail", {
drawtype = "block",
paramtype2 = "4dir",
groups = {circuitry = 1},
-- Which direction is the one of the head block
tiles = {"component.png^[colorizehsl:120"}
})
minetest.register_alias("logikraft:component_"..name, "logikraft:component_"..name .. "_1_1")
end
blocks/components_register.lua
+149
View File
@@ -0,0 +1,149 @@
-- Everything is described as if dir=0
-- z+
-- /|\ w
-- | XXX h
-- +−−−−−−−−−−−> x+
-- {name,width,height,{cables_left,cables_right,cables_top,cables_bottom}}
logikraft.components = {
["and"] = {
width = 2,
height = 3,
ports = {
left = {"in_2",nil,"in_1"},
right = {nil,"out",nil}
},
inputs = {"in_1","in_2"},
outputs = {"out"},
compute = function(inz) return {out = (inz["in_1"] * inz["in_2"] == 0) and 0 or 1} end
},
["nand"] = {
width = 2,
height = 3,
ports = {
left = {"in_2",nil,"in_1"},
right = {nil,"out",nil}
},
inputs = {"in_1","in_2"},
outputs = {"out"},
compute = function(inz) return {out = (inz["in_1"] * inz["in_2"] == 0) and 1 or 0} end
},
["or"] = {
width = 2,
height = 3,
ports = {
left = {"in_2",nil,"in_1"},
right = {nil,"out",nil}
},
inputs = {"in_1","in_2"},
outputs = {"out"},
compute = function(inz) return {out = (inz["in_1"] + inz["in_2"] == 0) and 0 or 1} end
},
["nor"] = {
width = 2,
height = 3,
ports = {
left = {"in_2",nil,"in_1"},
right = {nil,"out",nil}
},
inputs = {"in_1","in_2"},
outputs = {"out"},
compute = function(inz) return {out = (inz["in_1"] + inz["in_2"] == 0) and 1 or 0} end
},
["xor"] = {
width = 2,
height = 3,
ports = {
left = {"in_2",nil,"in_1"},
right = {nil,"out",nil}
},
inputs = {"in_1","in_2"},
outputs = {"out"},
compute = function(inz) return {out = (inz["in_1"] + inz["in_2"] == 1) and 1 or 0} end
},
["not"] = {
width = 2,
height = 1,
ports = {
left = {"in"},
right = {"out"}
},
inputs = {"in"},
outputs = {"out"},
compute = function(inz) return {out = 1 - inz["in"]} end
},
["on"] = {
width = 1,
height = 1,
ports = {
right = {"out"}
},
inputs = {},
outputs = {"out"},
compute = function(inz) return {out = 1} end
},
["off"] = {
width = 1,
height = 1,
ports = {
right = {"out"}
},
inputs = {},
outputs = {"out"},
compute = function(inz) return {out = 0} end
},
["switch"] = {
width = 2,
height = 1,
ports = {
left = {"in"},
right = {"out"},
top = {"activate",nil}
},
inputs = {"in","activate"},
outputs = {"out"},
compute = function(inz) if inz["activate"]==1 then return {out = inz["in"]} else return {} end end
},
["demux"] = {
width = 2,
height = 8,
ports = {
left = {nil,nil,nil,nil,nil,"in_3","in_2","in_1"},
right = {"out_8","out_7","out_6","out_5","out_4","out_3","out_2","out_1"}
},
inputs = {"in_1","in_2","in_3"},
outputs = {"out_8","out_7","out_6","out_5","out_4","out_3","out_2","out_1"},
compute = function(inz) return {
out_1 = (inz.in_1 == 0) and (inz.in_2 == 0) and (inz.in_3 == 0) and 1 or 0,
out_2 = (inz.in_1 == 1) and (inz.in_2 == 0) and (inz.in_3 == 0) and 1 or 0,
out_3 = (inz.in_1 == 0) and (inz.in_2 == 1) and (inz.in_3 == 0) and 1 or 0,
out_4 = (inz.in_1 == 1) and (inz.in_2 == 1) and (inz.in_3 == 0) and 1 or 0,
out_5 = (inz.in_1 == 0) and (inz.in_2 == 0) and (inz.in_3 == 1) and 1 or 0,
out_6 = (inz.in_1 == 1) and (inz.in_2 == 0) and (inz.in_3 == 1) and 1 or 0,
out_7 = (inz.in_1 == 0) and (inz.in_2 == 1) and (inz.in_3 == 1) and 1 or 0,
out_8 = (inz.in_1 == 1) and (inz.in_2 == 1) and (inz.in_3 == 1) and 1 or 0,
} end
},
["input"] = {
width = 1,
height = 1,
ports = {
right = {"out"}
},
inputs = {},
outputs = {"out"}
},
["output"] = {
width = 1,
height = 1,
ports = {
left = {"in"}
},
inputs = {"in"},
outputs = {}
}
}
for name,cmp in pairs(logikraft.components)
do
logikraft.registerComponent(name,cmp)
end
circuits.lua
+252 -4
View File
@@ -31,9 +31,6 @@ function logikraft.discoverBlocks(pos)
do
local p = poz[j]
j = j+1
print(dump(poz))
print(i)
print(j)
local neighbourhood = {
{x = p.x+1, y = p.y, z = p.z},
{x = p.x-1, y = p.y, z = p.z},
@@ -52,6 +49,257 @@ function logikraft.discoverBlocks(pos)
end
end
end
minetest.chat_send_all("Discovered ".. (i-1) .. " blocks")
return poz
end
local function collapseConnectionsStep(connz)
for k,conna in ipairs(connz)
do
for l,connb in ipairs(connz)
do
if k<l
then
local match = table.findMatch1(conna.conn,connb.conn)
if match
then
-- we add connb\m[2] to conna\m[1], and then we remove connb
table.remove(conna.conn,match[1])
for i,x in pairs(connb.conn) do
if i ~= match[2] then table.insert(conna.conn,x) end
end
-- And we merge the node lists
for i,x in ipairs(connb.nodes) do
table.insert(conna.nodes,x)
end
table.remove(connz,l)
return true
end
end
end
end
return false
end
function logikraft.collapseConnections(connz)
while collapseConnectionsStep(connz)
do end
end
-- side: left = 3, top = 0, right = 1, bottom = 2
local function registerPort(pos,side,j,dir,h,w)
local a =
(side == 0 and (j-1)) or
(side == 1 and (w-1)) or
(side == 2 and (j-1)) or
(side == 3 and 0) or
nil
local b =
(side == 0 and (h-1)) or
(side == 1 and (j-1)) or
(side == 2 and 0) or
(side == 3 and (j-1)) or
nil
local d = math.fmod(side + dir + 1,2)
local out =
(dir == 0 and {x=pos.x+a,y=pos.y,z=pos.z+b,d=d}) or
(dir == 1 and {x=pos.x+b,y=pos.y,z=pos.z-a,d=d}) or
(dir == 2 and {x=pos.x-a,y=pos.y,z=pos.z-b,d=d}) or
(dir == 3 and {x=pos.x-b,y=pos.y,z=pos.z+a,d=d}) or
nil
out.x = (math.fmod(side + dir,4)==3 and out.x-1) or out.x
out.z = (math.fmod(side + dir,4)==2 and out.z-1) or out.z
return out
end
local function registerComponentPorts(pos,component,ports,dir)
-- Left
local dirz = {
[0] = component.ports.top,
[1] = component.ports.right,
[2] = component.ports.bottom,
[3] = component.ports.left
}
for side,prts in pairs(dirz)
do
for j,n in pairs(prts)
do
ports[n] = registerPort(pos,side,j,dir,component.height,component.width)
end
end
end
-- {x,y,z,d=0 if x+, 1 if z+}
function logikraft.compileCircuit(poz)
local components = {}
local connections = {}
for i,pos in ipairs(poz)
do
local node = minetest.get_node(pos)
if logikraft.cablenodes[node.name]
then
-- It is a cable
local conns = logikraft.cables[logikraft.cablenodes[node.name]].conns
for j,c in ipairs(conns)
do
if not (c == 1 or c == 2 or c == 4 or c == 8 or c == 17 or c == 18 or c == 20 or c == 24)
then
local newconn = {}
if math.fmod(math.floor(c/1),2)==1
then table.insert(newconn,{x=pos.x-1,y=pos.y,z=pos.z,d=0}) end
if math.fmod(math.floor(c/2),2)==1
then table.insert(newconn,{x=pos.x,y=pos.y,z=pos.z-1,d=1}) end
if math.fmod(math.floor(c/4),2)==1
then table.insert(newconn,{x=pos.x,y=pos.y,z=pos.z,d=0}) end
if math.fmod(math.floor(c/8),2)==1
then table.insert(newconn,{x=pos.x,y=pos.y,z=pos.z,d=1}) end
local pos2 = table.copy(pos)
pos2.conn = j
table.insert(connections,{nodes = {pos2},conn = newconn})
end
end
elseif logikraft.componentnodes[node.name]
then
-- It is a component
local cpblock = logikraft.componentnodes[node.name]
if cpblock.x == 1 and cpblock.y == 1
then
local component = logikraft.components[cpblock.name]
local cp = {type = cpblock.name, ports = {}, pos = pos}
registerComponentPorts(pos,component,cp.ports,node.param2)
-- If we have a meta name, we save it
local meta = minetest.get_meta(pos)
if meta:get_string("logikraft:name") ~= ""
then cp.name = meta:get_string("logikraft:name")
end
table.insert(components,cp)
-- We do everything in the 0 0 block, we ignore the others
end
-- else we just ignore
end
end
print(dump(components))
logikraft.collapseConnections(connections)
-- We replace the index of the connection in the components
for k,cmp in pairs(components)
do
for pn,x in pairs(cmp.ports)
do
-- We find the connection with this port
local theconn = 0
for i,connz in ipairs(connections)
do
if table.getkey1(connz.conn,x) -- if x in connz
then theconn = i end
end
cmp.ports[pn] = theconn
end
end
-- We remove conn data from the connections, the index in now enough
for k,conn in ipairs(connections)
do
connections[k] = connections[k].nodes
end
-- We remove inputs and outputs, as we only store ports
local inputs = {}
local outputs = {}
local cleanedComponents = {}
for i,cmp in ipairs(components)
do
local name = cmp.name or cmp.type.."_unknown_"..tostring(i)
if cmp.type == "input"
then
inputs[name] = {
conn = cmp.ports["out"],
pos = cmp.pos
}
elseif cmp.type == "output"
then
outputs[name] = {
conn = cmp.ports["in"],
pos = cmp.pos
}
else
table.insert(cleanedComponents,cmp)
end
end
-- TODO sort components in inferred components order, for faster computing
--
print("Discovered:")
print(dump(cleanedComponents))
print(dump(inputs))
print(dump(outputs))
print(dump(connections))
--]]
return {components = cleanedComponents, inputs=inputs, outputs=outputs, connections = connections}
end
local function computeStep(circuit,connvals,computed)
local effective = false
for i,cmp in pairs(circuit.components)
do
if not computed[i]
then
-- We check that all the inputs have a value
local allvalue = true
local inputs = {}
for k,name in pairs(logikraft.components[cmp.type].inputs)
do
allvalue = allvalue and (cmp.ports[name] and connvals[cmp.ports[name]] and true)
inputs[name] = allvalue and connvals[cmp.ports[name]]
end
if allvalue
then
local output = logikraft.components[cmp.type].compute(inputs)
print("Component "..cmp.type)
for name,v in pairs(output)
do
if cmp.ports[name] and connvals[cmp.ports[name]]
then
-- Already set
minetest.chat_send_all("Le composant "..cmp.type.." ne peut pas écrire")
else
connvals[cmp.ports[name]] = v
end
end
computed[i] = true
effective = true
end
end
end
return effective
end
function logikraft.compute(circuit,inz)
local connvals = {}
local computed = {}
-- We read the inputs components
for name,x in pairs(circuit.inputs)
do
if x.conn and inz[name]
then connvals[x.conn] = inz[name]
end
end
while computeStep(circuit,connvals,computed)
do end
-- We read the output components
local outz = {}
for name,x in pairs(circuit.outputs)
do
if x.conn
then outz[name] = connvals[x.conn]
end
end
return outz
end
formspecs.lua
+120
View File
@@ -0,0 +1,120 @@
local _contexts = {}
function logikraft.showNameFormspec(playername,pos)
local node = minetest.get_node(pos)
local nodedesc = minetest.registered_nodes[node.name].description
local text = "Please enter the name of the " .. nodedesc .. " at ("..tostring(pos.x)..","..tostring(pos.y)..","..tostring(pos.z)..")"
local meta = minetest.get_meta(pos)
local oldname = meta:get_string("logikraft:name") or ""
local formspec = {
"formspec_version[4]",
"size[6,3.476]",
"label[0.375,0.5;", minetest.formspec_escape(text), "]",
"field[0.375,1.25;5.25,0.8;name;".. minetest.formspec_escape(nodedesc) .. " name;"..oldname.."]",
"button_exit[1.5,2.3;3,0.8;commit;OK]"
}
_contexts[playername] = pos
minetest.show_formspec(playername, "logikraft:nameFormSpec", table.concat(formspec, ""))
end
minetest.register_on_player_receive_fields(function(player, formname, fields)
if formname ~= "logikraft:nameFormSpec" then return end
if fields.commit then
local pname = player:get_player_name()
if _contexts[pname]
then
local meta = minetest.get_meta(_contexts[pname])
meta:set_string("logikraft:name",fields.name)
minetest.chat_send_player(pname, "Set to "..fields.name)
else
minetest.chat_send_player(pname, "Could not get pos data from formspec")
end
end
end)
local function posToStr(pos)
return pos.x..";"..pos.y..";"..pos.z
end
local function getCircuitFormspec(inz,outz)
local formspec = {
"formspec_version[4]",
"size[9,",tostring(2.625+(table.length(inz)*0.5)+(table.length(outz)*0.5)),"]",
"label[0.375,0.5;", minetest.formspec_escape("Inputs"), "]"
}
local y = 1.0
for name,x in pairs(inz)
do
if x == 0
then table.insert(formspec,"button[0.375,"..tostring(y-0.25)..";0.5,0.5;input_"..name..";OFF]")
else table.insert(formspec,"button[0.375,"..tostring(y-0.25)..";0.5,0.5;input_"..name..";ON]")
end
table.insert(formspec,"label[1.0,"..tostring(y)..";"..minetest.formspec_escape(name).."]")
y = y + 0.5
end
table.insert(formspec,"label[0.375,"..tostring(y)..";".. minetest.formspec_escape("Outputs").. "]")
y = y + 0.5
for name,x in pairs(outz)
do
table.insert(formspec,"style_type[label;bold,font_size=12px]")
if x == 0
then table.insert(formspec,"label[0.375,"..tostring(y)..";OFF]")
else table.insert(formspec,"label[0.375,"..tostring(y)..";ON]")
end
table.insert(formspec,"style_type[label;normal,font_size=10px]")
table.insert(formspec,"label[1.0,"..tostring(y)..";"..minetest.formspec_escape(name).."]")
y = y + 0.5
end
table.insert(formspec,"button_exit[3,"..tostring(y-0.15)..";3,1;commit;OK]")
return table.concat(formspec,"")
end
function logikraft.showCircuitFormspec(playername,pos)
local poz = logikraft.discoverBlocks(pos)
local circuit = logikraft.compileCircuit(poz)
local cn = posToStr(pos).."_"..playername
if not _contexts[cn]
then
_contexts[cn] = {}
for name,x in pairs(circuit.inputs)
do _contexts[cn][name] = 0 end
end
print(dump(_contexts[cn]))
local formspec = getCircuitFormspec(_contexts[cn],logikraft.compute(circuit,_contexts[cn]))
_contexts[playername] = pos
minetest.show_formspec(playername, "logikraft:circuitFormSpec", formspec)
end
minetest.register_on_player_receive_fields(function(player, formname, fields)
if formname ~= "logikraft:circuitFormSpec" then return end
local pname = player:get_player_name()
if _contexts[pname]
then
local cn = posToStr(_contexts[pname]).."_"..pname
-- We update the clicked field
for f,x in pairs(fields)
do
if string.startsWith(f,"input_")
then
local v = (x == "OFF") and 1 or 0
_contexts[cn][string.without(f,"input_")] = v
end
end
if not fields.commit
then logikraft.showCircuitFormspec(pname,_contexts[pname])
end
else
minetest.chat_send_player(pname, "Could not get pos data from formspec")
end
end)
init.lua
+4 -30
View File
@@ -2,46 +2,20 @@
logikraft = {}
dofile(minetest.get_modpath("logikraft") .. "/utils.lua")
dofile(minetest.get_modpath("logikraft") .. "/formspecs.lua")
dofile(minetest.get_modpath("logikraft") .. "/circuits.lua")
dofile(minetest.get_modpath("logikraft") .. "/blocks/circuit.lua")
dofile(minetest.get_modpath("logikraft") .. "/blocks/component.lua")
dofile(minetest.get_modpath("logikraft") .. "/blocks/components_register.lua")
dofile(minetest.get_modpath("logikraft") .. "/blocks/cable.lua")
dofile(minetest.get_modpath("logikraft") .. "/blocks/cables_register.lua")
dofile(minetest.get_modpath("logikraft") .. "/items.lua")
minetest.register_on_joinplayer(function(player)
player:hud_set_hotbar_itemcount(24)
end)
minetest.register_node("logikraft:inputBlock", {
description = "Input Block",
tiles = {"input_block.png"},
after_place_node = function(pos, placer)
local meta = minetest.get_meta(pos)
meta:set_string("formspec",logikraft.setNameFormspec("Input Block"),meta:get_string("name"))
end,
on_receive_fields = function(pos, formname, fields, player)
if fields.quit then
return
end
minetest.get_meta(pos):set_string("name",fields.name)
end,
groups = {circuitry = 1,dig_immediate = 3}
})
minetest.register_node("logikraft:outputBlock", {
description = "Output Block",
tiles = {"output_block.png"},
after_place_node = function(pos, placer)
local meta = minetest.get_meta(pos)
meta:set_string("formspec",logikraft.setNameFormspec("Output Block"),meta:get_string("name"))
end,
on_receive_fields = function(pos, formname, fields, player)
if fields.quit then
return
end
minetest.get_meta(pos):set_string("name",fields.name)
end,
groups = {circuitry = 1,dig_immediate = 3}
})
items.lua
+133 -22
View File
@@ -3,11 +3,11 @@ minetest.register_craftitem("logikraft:rotator", {
inventory_image = "rotator.png",
on_place = function(itemstack, user, pointed_thing)
local node = minetest.get_node(pointed_thing.under)
if not string.startsWith(node.name,"logikraft:cable_")
if not logikraft.cablenodes[node.name]
then return itemstack
end
local new = logikraft.rotateCable(string.without(node.name,"logikraft:cable_"),1)
local new = logikraft.rotateCable(logikraft.cablenodes[node.name],1)
minetest.swap_node(pointed_thing.under, {name = "logikraft:cable_" .. new})
return itemstack
end
@@ -16,28 +16,91 @@ minetest.register_craftitem("logikraft:linker", {
description = "The linker",
inventory_image = "linker.png",
on_place = function(itemstack, user, pointed_thing)
local node = minetest.get_node(pointed_thing.under)
if not string.startsWith(node.name,"logikraft:cable_")
then return itemstack
end
local index = logikraft.lookingAtNbIndex(user,pointed_thing.under)
-- We check if we clicked the last selected node
local meta = minetest.get_meta(pointed_thing.under)
if meta:get_int("logikraft:last_selected_nb") ~= 0
local meta = itemstack:get_meta()
if meta:get_int("logikraft:selected_nb") ~= 0
then
-- We connect
local firsti = meta:get_int("logikraft:last_selected_nb")
local new = logikraft.connectInCable(string.without(node.name,"logikraft:cable_"),firsti,index)
minetest.swap_node(pointed_thing.under, {name = "logikraft:cable_" .. new})
local selectednb = meta:get_int("logikraft:selected_nb")
local selectedx = meta:get_int("logikraft:selected_x")
local selectedy = meta:get_int("logikraft:selected_y")
local selectedz = meta:get_int("logikraft:selected_z")
local selectedpos = {x = selectedx, y = selectedy, z = selectedz}
local pos = logikraft.cablenodes[minetest.get_node(pointed_thing.under).name] and pointed_thing.under or pointed_thing.above
local node = minetest.get_node(pos)
-- We destroy the saved selected nb
meta:set_int("logikraft:last_selected_nb",0)
local thisnb = logikraft.cablenodes[minetest.get_node(pointed_thing.under).name] and logikraft.lookingAtNbIndex(user,pointed_thing.under) or -1
if selectedx == pos.x and selectedy == pos.y and selectedz == pos.z
then
if(selectednb ~= thisnb and thisnb ~= -1 and selectednb ~= -1)
then
local new = logikraft.connectInCable(logikraft.cablenodes[node.name],selectednb,thisnb)
minetest.swap_node(pos, {name = "logikraft:cable_" .. new})
end
meta:set_int("logikraft:selected_nb",0)
meta:set_string("inventory_image","linker.png")
return itemstack
else
local new = logikraft.connectContiguousCable(
logikraft.cablenodes[minetest.get_node(selectedpos).name],selectedpos,(selectednb ~= -1 and selectednb) or nil,
logikraft.cablenodes[node.name],pos,(thisnb ~= -1 and thisnb) or nil)
if new
then
minetest.swap_node(selectedpos, {name = "logikraft:cable_" .. new[1]})
minetest.swap_node(pos, {name = "logikraft:cable_" .. new[2]})
meta:set_int("logikraft:selected_nb",0)
meta:set_string("inventory_image","linker.png")
else
minetest.chat_send_player(user:get_player_name(),"Les cables sont trop loins l'un de l'autre :/")
end
return itemstack
end
else
-- We save the selected nb
meta:set_int("logikraft:last_selected_nb",index)
local pos = logikraft.cablenodes[minetest.get_node(pointed_thing.under).name] and pointed_thing.under or pointed_thing.above
local node = minetest.get_node(pos)
if logikraft.cablenodes[node.name]
then
-- If we are looking at a cable we activate and store data
local thisnb = logikraft.cablenodes[minetest.get_node(pointed_thing.under).name] and logikraft.lookingAtNbIndex(user,pointed_thing.under) or -1
meta:set_int("logikraft:selected_nb",thisnb)
meta:set_int("logikraft:selected_x",pos.x)
meta:set_int("logikraft:selected_y",pos.y)
meta:set_int("logikraft:selected_z",pos.z)
meta:set_string("inventory_image","linker_activated.png")
else
-- Else we place a cable
local node_def = minetest.registered_nodes[node.name]
if not (node_def and node_def.buildable_to)
then return itemstack end
local new = nil
local poz = {
{x = pos.x+1, y = pos.y, z = pos.z},
{x = pos.x, y = pos.y, z = pos.z+1},
{x = pos.x-1, y = pos.y, z = pos.z},
{x = pos.x, y = pos.y, z = pos.z-1}
}
for k,pos2 in pairs(poz)
do
local cable2 = minetest.get_node(pos2)
if logikraft.cablenodes[cable2.name]
then
local contiguous = logikraft.connectContiguousCable(new, pos, 1, logikraft.cablenodes[cable2.name], pos2, nil)
new = contiguous[1]
minetest.swap_node(pos2, {name = "logikraft:cable_" .. contiguous[2]})
end
end
minetest.add_node(pos, {name = "logikraft:cable_" .. (new or "NSEW1")})
end
end
return itemstack
end,
on_secondary_use = function(itemstack, user, pointed_thing)
-- Looking at nothing -> we dispose of the data
local meta = itemstack:get_meta()
meta:set_int("logikraft:selected_nb",0)
meta:set_string("inventory_image","linker.png")
return itemstack
end
})
@@ -46,15 +109,63 @@ minetest.register_craftitem("logikraft:unlinker", {
inventory_image = "unlinker.png",
on_place = function(itemstack, user, pointed_thing)
local node = minetest.get_node(pointed_thing.under)
if not string.startsWith(node.name,"logikraft:cable_")
if not logikraft.cablenodes[node.name]
then return itemstack
end
local index = logikraft.lookingAtNbIndex(user,pointed_thing.under)
print(logikraft.cablenodes[node.name])
print(dump(logikraft.cables[logikraft.cablenodes[node.name]]))
local new = logikraft.disconnectInCable(logikraft.cablenodes[node.name],index)
if new
then minetest.swap_node(pointed_thing.under, {name = "logikraft:cable_" .. new})
else minetest.remove_node(pointed_thing.under)
end
return itemstack
end
})
minetest.register_craftitem("logikraft:resizer", {
description = "The Resizer",
inventory_image = "resizer.png",
on_place = function(itemstack, user, pointed_thing)
local node = minetest.get_node(pointed_thing.under)
if not logikraft.cablenodes[node.name]
then return itemstack
end
local index = logikraft.lookingAtNbIndex(user,pointed_thing.under)
local new = logikraft.disconnectInCable(string.without(node.name,"logikraft:cable_"),index)
local new = logikraft.resizeInCable(logikraft.cablenodes[node.name],index)
minetest.swap_node(pointed_thing.under, {name = "logikraft:cable_" .. new})
return itemstack
end
})
minetest.register_craftitem("logikraft:editor", {
description = "The Editor",
inventory_image = "editor.png",
on_place = function(itemstack, user, pointed_thing)
local node = minetest.get_node(pointed_thing.under)
if logikraft.cablenodes[node.name]
then
local index = logikraft.lookingAtNbIndex(user,pointed_thing.under)
minetest.chat_send_all("Looking at nodeblock "..tostring(index))
elseif node.name == "logikraft:component_input_1_1"
then
logikraft.showNameFormspec(user:get_player_name(), pointed_thing.under)
elseif node.name == "logikraft:component_output_1_1"
then
logikraft.showNameFormspec(user:get_player_name(), pointed_thing.under)
elseif logikraft.componentnodes[node.name]
then
minetest.chat_send_all("Looking at component "..logikraft.componentnodes[node.name].name)
elseif node.name == "logikraft:circuitBlock"
then
logikraft.showCircuitFormspec(user:get_player_name(), pointed_thing.under)
end
return itemstack
end
})
textures/component_and.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.4 KiB

textures/component_demux.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.3 KiB

textures/input_block.png → textures/component_input.png
View File
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 606 B

After

Width:  |  Height:  |  Size: 606 B

textures/component_nand.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.3 KiB

textures/component_nor.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.3 KiB

textures/component_not.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.3 KiB

textures/component_off.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.3 KiB

textures/component_on.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.2 KiB

textures/component_or.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.3 KiB

textures/output_block.png → textures/component_output.png
View File
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 636 B

After

Width:  |  Height:  |  Size: 636 B

textures/component_port.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.3 KiB

textures/component_switch.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.3 KiB

textures/component_xor.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.3 KiB

textures/editor.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.5 KiB

textures/linker_activated.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.5 KiB

textures/resizer.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.5 KiB

utils.lua
+114 -2
View File
@@ -30,14 +30,28 @@ function table.getkey1(arr,x)
end
end
end
function table.length(arr)
local c = 0
for k,v in pairs(arr)
do
c = c + 1
end
return c
end
function string.startsWith(str,ex)
return string.sub(str,1,string.len(ex)) == ex
end
function string.without(str,ex)
return string.sub(str,string.len(ex)+1,-1)
end
function string.endsWith(str,ex)
return string.sub(str,-1-string.len(ex),-1) == ex
end
function string.without2(str,ex,ex2)
return string.sub(str,string.len(ex)+1,-1-string.len(ex2))
end
function table.equals1(arr1,arr2)
for i,v in ipairs(arr1)
for i,v in pairs(arr1)
do
if arr2[i] ~= v
then return false
@@ -68,7 +82,7 @@ function logikraft.nearestNodeboxIndex(nodeboxes,point)
end
function logikraft.lookingAtNbIndex(user,under)
local range=5
local range=15
local eye = vector.add(user:get_pos(),{x=0,y=1.625,z=0})
local objective = vector.add(eye, vector.multiply(user:get_look_dir(),range))
local ray = minetest.raycast(eye,objective,false,false)
@@ -80,3 +94,101 @@ function logikraft.lookingAtNbIndex(user,under)
end
return 0
end
function logikraft.vecTo8dir(vec)
local x = vec[1]
local z = vec[3]
return
x<0 and z>=0 and -z<=x and 0 or
x>=0 and z>=0 and z>x and 1 or
x>=0 and z>=0 and z<=x and 2 or
x>=0 and z<0 and -z<x and 3 or
x>=0 and z<0 and -z>=x and 4 or
x<0 and z<0 and z<x and 5 or
x<0 and z<0 and z>=x and 6 or
x<0 and z>=0 and -z>x and 7 or
0 -- Should not happen
end
function logikraft.dir8to4(dir)
return math.floor(dir / 2)
end
function logikraft.addToPos8dir(dir,pos,w,h)
local x = pos[1]
local y = pos[2]
local z = pos[3]
return
dir == 0 and {x = x-w, y = y, z = z+h} or
dir == 1 and {x = x+w, y = y, z = z+h} or
dir == 2 and {x = x+h, y = y, z = z+w} or
dir == 3 and {x = x+h, y = y, z = z-w} or
dir == 4 and {x = x+w, y = y, z = z-h} or
dir == 5 and {x = x-w, y = y, z = z-h} or
dir == 6 and {x = x-h, y = y, z = z-w} or
dir == 7 and {x = x-h, y = y, z = z+w} or
pos -- Should not happen
end
function logikraft.addToPos4dir(dir,pos,w,h)
return logikraft.addToPos8dir(dir*2+1,pos,w,h)
end
function table.findMatch(ta,tb)
do
for i,x in ipairs(ta)
do
for j,y in ipairs(tb)
do
if x == y
then return {i,j}
end
end
end
end
return nil
end
function table.findMatch1(ta,tb)
do
for i,x in ipairs(ta)
do
for j,y in ipairs(tb)
do
if table.equals1(x,y)
then return {i,j}
end
end
end
end
return nil
end
function logikraft.rotateNodebox(nb,rot)
return
(math.fmod(rot,4)==0) and {nb[1],nb[2],nb[3],nb[4],nb[5],nb[6]} or
(math.fmod(rot,4)==1) and {nb[3],nb[2],-nb[1],nb[6],nb[5],-nb[4]} or
(math.fmod(rot,4)==2) and {-nb[1],nb[2],-nb[3],-nb[4],nb[5],-nb[6]} or
(math.fmod(rot,4)==3) and {-nb[3],nb[2],nb[1],-nb[6],nb[5],nb[4]} or
nb -- Should not happen
end
function logikraft.rotate4dir(conn,r)
local function rotate4dirOnce(conn)
return math.floor(conn/2) + 8*math.fmod(conn,2)
end
local x = math.fmod(conn,16)
for i=1,r do
x = rotate4dirOnce(x)
end
return (conn - math.fmod(conn,16) + x)
end
function table.constTable(val,size)
local t = {}
for i=1,size
do
table.insert(t,val)
end
return t
end