Version 0.2.0

This commit is contained in:
paramat 2013-06-29 17:31:41 +01:00
parent b5bde42184
commit 56dd643d38
2 changed files with 108 additions and 83 deletions

View File

@ -1,22 +1,14 @@
Release thread http://forum.minetest.net/viewtopic.php?id=5159
For Minetest 0.4.3 and later.
For latest stable Minetest and compatible back to 0.4.3.
Depends default.
License WTFPL.
* A way up to the float lands.
* Meru mod is a vertical 1 dimensional realm, 1D referring to large scale structure, and can act as a vertical connector between horizontal realms, such as the ground and the floatlands.
* This mod generates a 1 km mountain / tower thing at a chosen position in a newly generated chunk. The lower section has a hollow core surrounded by caves and ledges that help with carving steps to the top. When generated over water the hollow core can be used for jumping down the last 300m.
* A single spike shaped mountain is created in newly generated chunks, at a random location within a chosen area; by default this area is +/-1024 for use in a new world, to add a mountain to an existing world you need to edit these area parameters to a completely ungenerated part of your world.
* By default this generates near x = 0, z = 272 for testing in new worlds, for any other use you will need to edit the co-ordinate parameters to an ungenerated location.
* For testing this mod or for cheating edit parameter COORD = true, the co-ordinates of the mountain will be printed to terminal while within the generation area.
* Constructed from stone or red desert stone dependant on biome, when on a biome transition there is a smooth transition of material creating red stripes.
* No new nodes, the mountain is a hollow cone made of stone and desert stone, with a smooth transition across biome boundaries creating the red stripes. By default the height is 1km, but since i have increased the maximum width to 3x3 chunks the mountain can still look well proportioned when 2km. There are a few cave entrances on the surface, these 'fissure system' caves expand under the surface helping the creation of a path upwards. If the mountain generates over water you can use the central conical void to jump down the last few hundred metres.
* The structure is limited to y = -32 to 1008, 13 chunks in height, and occupies an area of 2x2 chunks. This large area allows a wider structure if wanted, controlled by parameter HGRAD. Parameter VGRAD controls how fast the structure tapers with altitude.
* The lower chunks can take up to 2 minutes to generate depending on tower width.
* No new nodes.
* Grass and trees often spawn on the structure, caused by a cool mapgen bug.
* I refer to the Mount Meru of ancient eastern cosmology.
* There are many parameters for fine tuning the structure, some parameters change smoothly with height or distance from the center. Reducing noise to zero at the center creates a perfect spike as a summit. Constant noise throughout often creates floating islands at the summit. Choosing zero noise throughout creates a smooth geometric conical shape. There is a parameter CONVEX to control whether the basic conical structure bulges outwards or is pinched inwards in the middle.

127
init.lua
View File

@ -1,82 +1,117 @@
-- meru 0.1.0 by paramat.
-- License WTFPL, see license.txt.
-- meru 0.2.0 by paramat.
-- License WTFPL.
-- Editable parameters.
-- Parameters.
local MERU = false
local MERUX = 0 -- Approximate centre, will be rounded to nearest chunk.
local MERUZ = 272
local VGRAD = 448 -- 448 -- Vertical noise gradient. Height is approx twice this.
local HGRAD = 24 -- 24 -- Horizontal noise gradient. Radius is approx twice this.
local CAVOFF = 0.8 -- 0.8 -- Cave noise offset.
local DEBUG = true
local ONGEN = true -- (true / false) Enable / disable generation.
local PROG = true -- Print processing progess to terminal.
local COORD = false -- Print tower co-ordinates to terminal.
local SEEDDIFF1 = 4689 -- 3D noise for surface generation
local OCTAVES1 = 5 -- 5
local PERSISTENCE1 = 0.53 -- 0.53
local SCALE1 = 64 -- 64
local XMIN = -1024 -- Area for random spawn.
local XMAX = 1024
local ZMIN = -1024
local ZMAX = 1024
local SEEDDIFF2 = 9294 -- 3D noise for caves.
local OCTAVES2 = 2 -- 2
local PERSISTENCE2 = 0.5 -- 0.5
local SCALE2 = 8 -- 8
local BASRAD = 64 -- -- Average radius y = -32.
local HEIGHT = 1024 -- -- Approximate height measured from y = -32.
local CONVEX = 0.6 -- -- Convexity. 0.5 = concave, 1 = perfect cone, 2 = convex.
local VOID = 0.4 -- -- Void threshold. Controls size of central voids.
local NOISYRAD = 0.2 -- -- Noisyness of structure at base radius. 0 = smooth geometric form, 0.3 = noisy.
local NOISYCEN = 0 -- -- Noisyness of structure at centre.
local FISOFFBAS = 0.02 -- -- Fissure noise offset at base. controls amount / size of fissure entrances on outer surface.
local FISOFFTOP = 0.04 -- -- Fissure noise offset at top.
local FISEXPBAS = 0.6 -- -- Fissure expansion rate under surface at base.
local FISEXPTOP = 1.2 -- -- Fissure expansion rate under surface at top.
-- End of editable parameters.
local SEEDDIFF1 = 46893 -- 3D noise for primary structure.
local OCTAVES1 = 5 --
local PERSISTENCE1 = 0.5 --
local SCALE1 = 64 --
local SEEDDIFF3 = 9130 -- 9130 -- Values must match minetest mapgen desert perlin.
local SEEDDIFF2 = 92940980987 -- 3D noise for fissures.
local OCTAVES2 = 4 --
local PERSISTENCE2 = 0.5 --
local SCALE2 = 24 --
-- End of parameters.
meru = {}
local SEEDDIFF3 = 9130 -- 9130 -- Values should match minetest mapgen desert perlin.
local OCTAVES3 = 3 -- 3
local PERSISTENCE3 = 0.5 -- 0.5
local SCALE3 = 250 -- 250
-- Stuff.
local SEEDDIFF4 = 5839090
local OCTAVES4 = 2 -- 2
local PERSISTENCE4 = 0.5 -- 0.5
local SCALE4 = 3 -- 3
meru = {}
local meruxq = (80 * math.floor((MERUX + 32) / 80)) - 32
local meruzq = (80 * math.floor((MERUZ + 32) / 80)) - 32
local cxmin = math.floor((XMIN + 32) / 80) -- chunk co ordinates
local czmin = math.floor((ZMIN + 32) / 80)
local cxmax = math.floor((XMAX + 32) / 80)
local czmax = math.floor((ZMAX + 32) / 80)
local cxav = (cxmin + cxmax) / 2
local czav = (czmin + czmax) / 2
local xnom = (cxmax - cxmin) / 4
local znom = (czmax - czmin) / 4
-- On generated function.
if MERU then
if ONGEN then
minetest.register_on_generated(function(minp, maxp, seed)
if (minp.x == meruxq or minp.x == meruxq - 80)
and (minp.z == meruzq or minp.z == meruzq - 80)
and minp.y >= -32 and minp.y <= 928 then
if maxp.x >= XMIN and minp.x <= XMAX
and maxp.z >= ZMIN and minp.z <= ZMAX then
local env = minetest.env
local perlin4 = env:get_perlin(SEEDDIFF4, OCTAVES4, PERSISTENCE4, SCALE4)
local noisex = perlin4:get2d({x=31,y=23})
local noisez = perlin4:get2d({x=17,y=11})
local cx = cxav + math.floor(noisex * xnom) -- chunk co ordinates
local cz = czav + math.floor(noisez * znom)
local merux = 80 * cx + 8
local meruz = 80 * cz + 8
if COORD then
print ("[meru] x "..merux.." z "..meruz)
end
if minp.x >= merux - 120 and minp.x <= merux + 40
and minp.z >= meruz - 120 and minp.z <= meruz + 40
and minp.y >= -32 and minp.y <= HEIGHT * 1.2 then
local perlin1 = env:get_perlin(SEEDDIFF1, OCTAVES1, PERSISTENCE1, SCALE1)
local perlin2 = env:get_perlin(SEEDDIFF2, OCTAVES2, PERSISTENCE2, SCALE2)
local perlin3 = env:get_perlin(SEEDDIFF3, OCTAVES3, PERSISTENCE3, SCALE3)
local xl = maxp.x - minp.x
local yl = maxp.y - minp.y
local zl = maxp.z - minp.z
local x1 = maxp.x
local y1 = maxp.y
local z1 = maxp.z
local x0 = minp.x
local y0 = minp.y
local z0 = minp.z
-- Loop through nodes in chunk.
for i = 0, xl do
for x = x0, x1 do
-- For each plane do.
if DEBUG then
print ("[meru] Plane "..i.." Chunk ("..minp.x.." "..minp.y.." "..minp.z..")")
if PROG then
print ("[meru] Plane "..x - x0.." Chunk ("..minp.x.." "..minp.y.." "..minp.z..")")
end
for k = 0, zl do
for z = z0, z1 do
-- For each column do.
local x = x0 + i
local z = z0 + k
local noise3 = perlin3:get2d({x=x+150,y=z+50}) -- Offsets must match minetest mapgen desert perlin.
local desert = false
if noise3 > 0.45 or math.random(0,10) > (0.45 - noise3) * 100 then -- Smooth transition 0.35 to 0.45.
desert = true
end
for j = 0, yl do
for y = y0, y1 do
-- For each node do.
local y = y0 + j
local noise1 = perlin1:get3d({x=x,y=y,z=z})
local radius = ((x - meruxq) ^ 2 + (z - meruzq) ^ 2) ^ 0.5
local offset = - y / VGRAD - radius / HGRAD
local noise1off = noise1 + offset + 2
if noise1off > 0 and noise1off < 1 then
local radius = ((x - merux) ^ 2 + (z - meruz) ^ 2) ^ 0.5
local deprop = (BASRAD - radius) / BASRAD
local noisy = NOISYRAD + deprop * (NOISYCEN - NOISYRAD)
local heprop = ((y + 32) / HEIGHT)
local offset = deprop - heprop ^ CONVEX
local noise1off = noise1 * noisy + offset
if noise1off > 0 and noise1off < VOID then
local noise2 = perlin2:get3d({x=x,y=y,z=z})
if noise2 - noise1off / 2 + CAVOFF > 0 then
local fisoff = FISOFFBAS + heprop * (FISOFFTOP - FISOFFBAS)
local fisexp = FISEXPBAS + heprop * (FISEXPTOP - FISEXPBAS)
if math.abs(noise2) - noise1off * fisexp - fisoff > 0 then
if desert then
env:add_node({x=x,y=y,z=z},{name="default:desert_stone"})
else
@ -87,8 +122,6 @@ if MERU then
end
end
end
if DEBUG then
print ("[meru] Completed")
end
end
end)