Sokomine/realtest
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Optimized trees generation

Browse Source
This commit is contained in:
Kotolegokot 2012-11-23 14:20:18 +06:00
parent 45e4237f38
commit 36501a608c
2 changed files with 30 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
mods/trees/init.lua
View File

@ -24,42 +24,35 @@ function trees.make_tree(pos, tree)
end end
end end
local function generate(tree, minp, maxp, seed, chunks_per_volume, ore_per_chunk, height_min, height_max) local function generate(tree, minp, maxp, seed)
if maxp.y < height_min or minp.y > height_max then local perlin1 = minetest.env:get_perlin(329, 3, 0.6, 100)
return -- Assume X and Z lengths are equal
end local divlen = 16
local y_min = math.max(minp.y, height_min) local divs = (maxp.x-minp.x)/divlen+1;
local y_max = math.min(maxp.y, height_max) for divx=0,divs-1 do
local volume = (maxp.x-minp.x+1)*(y_max-y_min+1)*(maxp.z-minp.z+1) for divz=0,divs-1 do
local pr = PseudoRandom(seed) local x0 = minp.x + math.floor((divx+0)*divlen)
local num_chunks = math.floor(chunks_per_volume * volume) local z0 = minp.z + math.floor((divz+0)*divlen)
local chunk_size = 3 local x1 = minp.x + math.floor((divx+1)*divlen)
if ore_per_chunk <= 4 then local z1 = minp.z + math.floor((divz+1)*divlen)
chunk_size = 2 -- Determine trees amount from perlin noise
end local trees_amount = math.floor(perlin1:get2d({x=x0, y=z0}) * 5 + 0)
local inverse_chance = math.floor(chunk_size*chunk_size*chunk_size / ore_per_chunk) -- Find random positions for trees based on this random
for i=1,num_chunks do local pr = PseudoRandom(seed)
local y0 = pr:next(y_min, y_max-chunk_size+1) for i=0,trees_amount do
if y0 >= height_min and y0 <= height_max then local x = pr:next(x0, x1)
local x0 = pr:next(minp.x, maxp.x-chunk_size+1) local z = pr:next(z0, z1)
local z0 = pr:next(minp.z, maxp.z-chunk_size+1) -- Find ground level (0...30)
local p0 = {x=x0, y=y0, z=z0} local ground_y = nil
for x1=0,chunk_size-1 do for y=30,0,-1 do
for y1=0,chunk_size-1 do if minetest.env:get_node({x=x,y=y,z=z}).name ~= "air" then
for z1=0,chunk_size-1 do ground_y = y
if pr:next(1,inverse_chance) == 1 then break
local x2 = x0+x1
local y2 = y0+y1
local z2 = z0+z1
local p2 = {x=x2, y=y2, z=z2}
local p3 = {x=x2, y=y2+1, z=z2}
if minetest.env:get_node(p3).name == "air" and
not minetest.env:find_node_near(p3, realtest.registered_trees[tree].radius, "group:tree") then
trees.make_tree(p3, tree)
end
end
end end
end end
if ground_y then
trees.make_tree({x=x,y=ground_y+1,z=z}, tree)
end
end end
end end
end end
@ -71,7 +64,7 @@ minetest.register_on_generated(function(minp, maxp, seed)
local pr = PseudoRandom(seed) local pr = PseudoRandom(seed)
for key, value in pairs(realtest.registered_trees) do for key, value in pairs(realtest.registered_trees) do
if pr:next(1, 10) == 1 then if pr:next(1, 10) == 1 then
generate(key, minp, maxp, seed, 1/8/2, 1, -50, 100) generate(key, minp, maxp, seed, 1/8/2, 1)
end end
end end
end) end)

4
mods/trees/registration.lua
View File

@ -56,7 +56,7 @@ function realtest.register_tree(name, TreeDef)
}, },
{ {
items = {tree.name..'_stick'}, items = {tree.name..'_stick'},
rarity = 2, rarity = 10,
}, },
{ {
items = {}, items = {},
@ -68,7 +68,7 @@ function realtest.register_tree(name, TreeDef)
climbable = true, climbable = true,
}) })
minetest.register_node(tree.name.."_trunk", { minetest.register_node(tree.name.."_trunk", {
description = tree.description.." Trunk", description = tree.description.." Trunk",
tiles = tree.textures[1], tiles = tree.textures[1],
groups = {tree=1,snappy=1,choppy=2,flammable=2,dropping_node=1,drop_on_dig=1}, groups = {tree=1,snappy=1,choppy=2,flammable=2,dropping_node=1,drop_on_dig=1},