mtcontrib/rocks
1
0
Fork 0
mirror of git://repo.or.cz/rocks.git synced 2025-02-23 07:10:26 +01:00
Code Issues Releases Wiki Activity

Pipe beush and scatter.

Browse Source
This commit is contained in:
Tomáš Brada 2015-07-02 15:47:17 +02:00
parent 0b0deec9a0
commit d01049f0d0
2 changed files with 67 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
depositgen/init.lua
View File

@ -3,7 +3,7 @@ local l={}
depositgen.l=l depositgen.l=l
l.print=function(text) l.print=function(text)
minetest.log("info","[depositgen] "..text) minetest.log("action","[depositgen] "..text)
end end
l.print("mod initializing") l.print("mod initializing")
@ -15,15 +15,16 @@ l.OnInit={}
l.ToResolve={} l.ToResolve={}
local includes={ local includes={
"pipes","veins" "pipes" --,"veins"
} }
minetest.register_on_generated(function(minp,maxp,seed) minetest.register_on_generated(function(minp,maxp,seed)
l.print("on generated")
local vm, emin, emax = minetest.get_mapgen_object("voxelmanip") local vm, emin, emax = minetest.get_mapgen_object("voxelmanip")
local area = VoxelArea:new{MinEdge=emin, MaxEdge=emax} local area = VoxelArea:new{MinEdge=emin, MaxEdge=emax}
local pr=PseudoRandom(seed) local pr=PseudoRandom(seed)
for i=0, #l.OnGenerate do for i=1, #l.OnGenerate do
l.OnGenerate[i](minp,maxp,seed,vm,area) l.OnGenerate[i](minp,maxp,pr,vm,area)
end end
vm:write_to_map() vm:write_to_map()
end) end)
@ -33,9 +34,9 @@ minetest.register_on_mapgen_init(function(mapgen_params)
-- todo: sort layers -- todo: sort layers
--Resolve all mapgen nodes to content ids --Resolve all mapgen nodes to content ids
l.print("Resolving node names") l.print("Resolving node names")
for _,i in pairs(l.ToResolve) do for index,i in pairs(l.ToResolve) do
i.id=minetest.get_content_id(i.node) i.id=minetest.get_content_id(i.name)
i.node=nil --free some memory i.name=nil --free some memory
end end
l.print("running mapgen initialization tasks") l.print("running mapgen initialization tasks")
for _,i in pairs(l.OnInit) do for _,i in pairs(l.OnInit) do

114
depositgen/pipes.lua
View File

@ -1,4 +1,6 @@
-- experimental pipe generator -- experimental pipe generator
local l=depositgen.l
local print=l.print
-- the public table of registered pipes -- the public table of registered pipes
depositgen.pipes={} depositgen.pipes={}
@ -9,7 +11,7 @@ depositgen.register_pipe= function(descr)
ymin=(descr.ymin or -10000), ymin=(descr.ymin or -10000),
ymax=(descr.ymax or 200), ymax=(descr.ymax or 200),
scarcity=descr.scarcity, scarcity=descr.scarcity,
radius=descr.radius, width=descr.width-1,
content={ name=descr.content }, content={ name=descr.content },
scatter={} scatter={}
} }
@ -17,7 +19,7 @@ depositgen.register_pipe= function(descr)
for _,sc in pairs(descr.scatter) do for _,sc in pairs(descr.scatter) do
local psc={ local psc={
scarcity=sc.scarcity, scarcity=sc.scarcity,
size=(sc.size or pipe.radius), size=(sc.size or pipe.width),
density=sc.density, density=sc.density,
content={ name=sc.content } content={ name=sc.content }
} }
@ -30,77 +32,77 @@ end
depositgen.register_pipe({ depositgen.register_pipe({
ymin=-200, ymax=-6, ymin=-200, ymax=-6,
scarcity=80, scarcity=80,
radius=3, width=1,
content="default:wood", content="default:wood",
scatter={ scatter={
{ scarcity=7, density=4, content="default:mese" } { scarcity=7, density=4, content="default:mese", size=1 }
} }
}) })
local function brush(data,area,pos,radius,content,ores,pr) local function generate(minp,maxp,pr,vm,area)
local rsq=radius^2
local orect
local oresc
radius=radius+2
for _,ore in pairs(ores) do
if pr:next(0,ore.scarcity)==0 then
orect=ore.c_ore
oresc=ore.density
end
end
for x=-radius, radius do
for y=-radius, radius do
for z=-radius, radius do
if (x^2)+(y^2)+(z^2)<=rsq then
local di=area:index(x+pos.x,y+pos.y,z+pos.z)
if oresc and (pr:next(0,oresc)==0) then
data[di]=orect
else
data[di]=content
end
end
end end end
end
local function generate(minp,maxp,pr,vm,area,descr)
local t1 = os.clock() local t1 = os.clock()
local data = vm:get_data()
print("pipes on generate")
local data = vm:get_data()
local chunksizer = maxp.x - minp.x + 1 local chunksizer = maxp.x - minp.x + 1
local chunksize = chunksizer + 1 local chunksize = chunksizer + 1
local pmapsize = {x = chunksize, y = chunksize, z = chunksize} local pmapsize = {x = chunksize, y = chunksize, z = chunksize}
local minpxz = {x = minp.x, y = minp.z} local minpxz = {x = minp.x, y = minp.z}
local bedrocks={} for _,descr in pairs(regs) do
for _,node in pairs(descr.bedrock) do bedrocks[minetest.get_content_id(node)]=true end l.print(dump(descr))
local startrocks={} --local orepr=PseudoRandom(pr:next())
for _,node in pairs(descr.startrock) do startrocks[minetest.get_content_id(node)]=true end local numpipes_raw=(chunksize/descr.scarcity)
local content=minetest.get_content_id(descr.content) local numpipes = math.floor(numpipes_raw + (pr:next(0,99)/100))
for _,des in pairs(descr.scatter) do
des.c_ore=minetest.get_content_id(des.ore)
end
local orepr=PseudoRandom(pr:next())
local numpipes_raw=(chunksize/descr.scarcity) for vc=1, numpipes do
local numpipes = math.floor(numpipes_raw + (pr:next(0,99)/100)) local pointA=vector.new(pr:next(0,chunksizer)+minp.x,pr:next(0,chunksizer)+minp.y,pr:next(0,chunksizer)+minp.z)
local pointB=vector.new(pr:next(0,chunksizer)+minp.x,pr:next(0,chunksizer)+minp.y,pr:next(0,chunksizer)+minp.z)
local pointC=vector.new(pr:next(0,chunksizer)+minp.x,pr:next(0,chunksizer)+minp.y,pr:next(0,chunksizer)+minp.z)
local step=(1.8)/(vector.distance(pointA,pointB)+vector.distance(pointB,pointC))
for vc=1, numpipes do print("<a pipe> "..dump({step=step}))
local pointA=vector.new(pr:next(0,chunksizer)+minp.x,pr:next(0,chunksizer)+minp.y,pr:next(0,chunksizer)+minp.z) for t=0, 1, step do
if (#startrocks>0)and(startrocks[data[area:indexp(pointA)]]==nil) then break end local p=vector.multiply(pointA,(1-t)^2)
local pointB=vector.new(pr:next(0,chunksizer)+minp.x,pr:next(0,chunksizer)+minp.y,pr:next(0,chunksizer)+minp.z) p=vector.add(p, vector.multiply(pointB,2*t*(1-t)) )
local pointC=vector.new(pr:next(0,chunksizer)+minp.x,pr:next(0,chunksizer)+minp.y,pr:next(0,chunksizer)+minp.z) p=vector.add(p, vector.multiply(pointC,t*t) )
local step=(1.8*descr.radius)/(vector.distance(pointA,pointB)+vector.distance(pointB,pointC)) p=vector.round(p)
for t=0, 1, step do local radiusp=math.floor(descr.width/2)
local p=vector.multiply(pointA,(1-t)^2) local radiusn=-descr.width+radiusp
p=vector.add(p, vector.multiply(pointB,2*t*(1-t)) ) --<scatter>
p=vector.add(p, vector.multiply(pointC,t*t) ) for _,ore in pairs(descr.scatter) do
p=vector.round(p) if pr:next(0,ore.scarcity)==0 then
brush(data,area,p,descr.radius,content,descr.scatter,orepr) local ocx=pr:next(radiusn,radiusp)
local ocy=pr:next(radiusn,radiusp)
local ocz=pr:next(radiusn,radiusp)
for y=ocy-ore.size, ocy+ore.size do
for x=ocx-ore.size, ocx+ore.size do
for z=ocz-ore.size, ocz+ore.size do
if pr:next(0,ore.density)==0 then
di=area:index(p.x+x,p.y+y,p.z+z)
data[di]=ore.content.id
end
end end end
end
end
--</scatter>
--<brush>
for y= radiusn, radiusp do
for x= radiusn, radiusp do
for z= radiusn, radiusp do
di=area:index(p.x+x,p.y+y,p.z+z)
--data[di]=descr.content.id
end end end
--</brush>
--brush(data,area,p,descr.radius,content,descr.scatter,orepr)
end
print("</a pipe> ")
end end
end
end --</apipe>
vm:set_data(data) vm:set_data(data)
minetest.log("action", "rocks/genpipe/ "..math.ceil((os.clock() - t1) * 1000).." ms ") l.print("pipes "..math.ceil((os.clock() - t1) * 1000).." ms ")
end end
table.insert(depositgen.l.OnGenerate,generate) table.insert(depositgen.l.OnGenerate,generate)