112 lines
2.9 KiB
Lua
112 lines
2.9 KiB
Lua
local SIZE = minetest.setting_get("generator_size")
|
|
local chunksize = minetest.setting_get("generator_size")
|
|
|
|
if not chunksize then
|
|
chunksize = 5
|
|
end
|
|
|
|
if not SIZE then
|
|
SIZE = 100
|
|
end
|
|
|
|
|
|
|
|
-- Safe size (positive and absolute)
|
|
local ssize = math.ceil(math.abs(SIZE))
|
|
|
|
-- Heights
|
|
local h = {}
|
|
h.sea = -1
|
|
h.beach = 0
|
|
h.ice = ssize * (3/4)
|
|
|
|
local recursion_depth = math.ceil(math.abs(SIZE)/5)
|
|
|
|
local ws_lists = {}
|
|
local function get_ws_list(a,x)
|
|
ws_lists[a] = ws_lists[a] or {}
|
|
local v = ws_lists[a][x]
|
|
if v then
|
|
return v
|
|
end
|
|
v = {}
|
|
for x=x,x + (chunksize*16 - 1) do
|
|
local n = x/(4*SIZE)
|
|
local y = 0
|
|
for k=1,ssize do
|
|
y = y + SIZE*(math.sin(math.pi * k^a * n)/(math.pi * k^a))
|
|
end
|
|
v[x] = y
|
|
end
|
|
ws_lists[a][x] = v
|
|
return v
|
|
end
|
|
|
|
local c_water = minetest.get_content_id("default:water_source")
|
|
local c_stone = minetest.get_content_id("default:stone")
|
|
local c_dirt = minetest.get_content_id("default:dirt")
|
|
local c_dirt_with_grass = minetest.get_content_id("default:dirt_with_grass")
|
|
local c_sand = minetest.get_content_id("default:sand")
|
|
local c_sandstone = minetest.get_content_id("default:sandstone")
|
|
local c_snow = minetest.get_content_id("default:snowblock")
|
|
local c_ice = minetest.get_content_id("default:ice")
|
|
|
|
minetest.register_on_generated(function(minp, maxp, seed)
|
|
|
|
local x0,z0,x1,z1 = minp.x,minp.z,maxp.x,maxp.z -- Assume X and Z lengths are equal
|
|
|
|
local t1 = os.clock()
|
|
local geninfo = "[mg] generates..."
|
|
print(geninfo)
|
|
minetest.chat_send_all(geninfo)
|
|
|
|
local vm, emin, emax = minetest.get_mapgen_object("voxelmanip")
|
|
local data = vm:get_data()
|
|
local area = VoxelArea:new{MinEdge=emin, MaxEdge=emax}
|
|
|
|
local heightx = get_ws_list(3, minp.x)
|
|
local heightz = get_ws_list(5, minp.z)
|
|
|
|
for x=minp.x,maxp.x do
|
|
local land_base = heightx[x]
|
|
for z=minp.z,maxp.z do
|
|
local land_base = land_base + heightz[z]
|
|
land_base = land_base + SIZE/3*math.sin(((x/(SIZE))^2 + (z/(SIZE))^2)^(1/2))
|
|
land_base = math.floor(land_base)
|
|
for y=minp.y,maxp.y do
|
|
local p_pos = area:index(x, y, z)
|
|
if y < land_base - 1 then
|
|
data[p_pos] = c_stone
|
|
elseif y == math.floor(land_base) then
|
|
if y > h.ice then
|
|
data[p_pos] = c_snow
|
|
elseif y > h.beach then
|
|
data[p_pos] = c_dirt_with_grass
|
|
else
|
|
data[p_pos] = c_sand
|
|
end
|
|
elseif y == math.floor(land_base) - 1 then
|
|
if y > h.ice then
|
|
data[p_pos] = c_ice
|
|
elseif y > h.beach then
|
|
data[p_pos] = c_dirt
|
|
else
|
|
data[p_pos] = c_sandstone
|
|
end
|
|
elseif y < h.sea then
|
|
data[p_pos] = c_water
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
vm:set_data(data)
|
|
vm:calc_lighting()
|
|
vm:update_liquids()
|
|
vm:write_to_map()
|
|
|
|
local geninfo = string.format("[mg] done after: %.2fs", os.clock() - t1)
|
|
print(geninfo)
|
|
minetest.chat_send_all(geninfo)
|
|
end)
|