mirror of
git://repo.or.cz/rocks.git
synced 2025-01-01 14:00:30 +01:00
107 lines
3.1 KiB
Lua
107 lines
3.1 KiB
Lua
-- experimental pipe generator
|
|
|
|
-- the public table of registered pipes
|
|
depositgen.pipes={}
|
|
local regs=depositgen.pipes
|
|
|
|
depositgen.register_pipe= function(descr)
|
|
local pipe={
|
|
ymin=(descr.ymin or -10000),
|
|
ymax=(descr.ymax or 200),
|
|
scarcity=descr.scarcity,
|
|
radius=descr.radius,
|
|
content={ name=descr.content },
|
|
scatter={}
|
|
}
|
|
table.insert(depositgen.l.ToResolve,pipe.content)
|
|
for _,sc in pairs(descr.scatter) do
|
|
local psc={
|
|
scarcity=sc.scarcity,
|
|
size=(sc.size or pipe.radius),
|
|
density=sc.density,
|
|
content={ name=sc.content }
|
|
}
|
|
table.insert(depositgen.l.ToResolve,psc.content)
|
|
table.insert(pipe.scatter,psc)
|
|
end
|
|
return table.insert(regs,pipe)
|
|
end
|
|
|
|
depositgen.register_pipe({
|
|
ymin=-200, ymax=-6,
|
|
scarcity=80,
|
|
radius=3,
|
|
content="default:wood",
|
|
scatter={
|
|
{ scarcity=7, density=4, content="default:mese" }
|
|
}
|
|
})
|
|
|
|
local function brush(data,area,pos,radius,content,ores,pr)
|
|
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 data = vm:get_data()
|
|
|
|
local chunksizer = maxp.x - minp.x + 1
|
|
local chunksize = chunksizer + 1
|
|
local pmapsize = {x = chunksize, y = chunksize, z = chunksize}
|
|
local minpxz = {x = minp.x, y = minp.z}
|
|
|
|
local bedrocks={}
|
|
for _,node in pairs(descr.bedrock) do bedrocks[minetest.get_content_id(node)]=true end
|
|
local startrocks={}
|
|
for _,node in pairs(descr.startrock) do startrocks[minetest.get_content_id(node)]=true end
|
|
local content=minetest.get_content_id(descr.content)
|
|
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)
|
|
local numpipes = math.floor(numpipes_raw + (pr:next(0,99)/100))
|
|
|
|
for vc=1, numpipes do
|
|
local pointA=vector.new(pr:next(0,chunksizer)+minp.x,pr:next(0,chunksizer)+minp.y,pr:next(0,chunksizer)+minp.z)
|
|
if (#startrocks>0)and(startrocks[data[area:indexp(pointA)]]==nil) then break end
|
|
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*descr.radius)/(vector.distance(pointA,pointB)+vector.distance(pointB,pointC))
|
|
for t=0, 1, step do
|
|
local p=vector.multiply(pointA,(1-t)^2)
|
|
p=vector.add(p, vector.multiply(pointB,2*t*(1-t)) )
|
|
p=vector.add(p, vector.multiply(pointC,t*t) )
|
|
p=vector.round(p)
|
|
brush(data,area,p,descr.radius,content,descr.scatter,orepr)
|
|
end
|
|
end
|
|
|
|
vm:set_data(data)
|
|
minetest.log("action", "rocks/genpipe/ "..math.ceil((os.clock() - t1) * 1000).." ms ")
|
|
end
|
|
|
|
table.insert(depositgen.l.OnGenerate,generate)
|