1
0
mirror of git://repo.or.cz/rocks.git synced 2025-05-30 15:53:31 +02:00
2015-05-10 16:05:48 +02:00

48 lines
2.0 KiB
Lua

-- experimental fast vein generator
local pr
rocksl.genvein=function(minp,maxp,seed,vm,area)
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}
pr=pr or PseudoRandom(seed)
local c_sample=minetest.get_content_id("default:mese")
local sample_scarcity=8
local numveins_raw=(chunksize/sample_scarcity)
local numveins = math.floor(numveins_raw + (pr:next(0,99)/100))
print("numveins="..numveins.." raw="..numveins_raw)
print("pr="..pr:next().." seed="..seed)
print("minp="..minp.x..","..minp.y..","..minp.z)
print("maxp="..maxp.x..","..maxp.y..","..maxp.z)
--local pointA=vector.add(minp,chunksize/2)
local pointA=vector.new(pr:next(0,chunksizer)+minp.x,pr:next(0,chunksizer)+minp.y,pr:next(0,chunksizer)+minp.z)
for vc=1, numveins do
--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)
print("pointA="..pointA.x..","..pointA.y..","..pointA.z)
print("pointB="..pointB.x..","..pointB.y..","..pointB.z)
print("pointC="..pointC.x..","..pointC.y..","..pointC.z)
local step=1.41/(vector.distance(pointA,pointB)+vector.distance(pointB,pointC))
print("step="..step)
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) )
--local p=vector.add(vector.multiply(pointA,(1-t)), vector.multiply(pointB,t) )
p=vector.round(p)
local di=area:index(p.x,p.y,p.z)
data[di]=c_sample
end
end
vm:set_data(data)
minetest.log("action", "rocks/genvein/ "..math.ceil((os.clock() - t1) * 1000).." ms ")
end