From 56dd643d38f48bd5125a998583064df66d98198c Mon Sep 17 00:00:00 2001 From: paramat Date: Sat, 29 Jun 2013 17:31:41 +0100 Subject: [PATCH] Version 0.2.0 --- README.txt | 20 ++----- init.lua | 171 ++++++++++++++++++++++++++++++++--------------------- 2 files changed, 108 insertions(+), 83 deletions(-) diff --git a/README.txt b/README.txt index 5a1a7a4..b697781 100644 --- a/README.txt +++ b/README.txt @@ -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. diff --git a/init.lua b/init.lua index 2e57b00..8bd36f9 100644 --- a/init.lua +++ b/init.lua @@ -1,95 +1,128 @@ --- 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 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 x0 = minp.x - local y0 = minp.y - local z0 = minp.z - -- Loop through nodes in chunk. - for i = 0, xl do - -- For each plane do. - if DEBUG then - print ("[meru] Plane "..i.." Chunk ("..minp.x.." "..minp.y.." "..minp.z..")") - end - for k = 0, zl 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 + 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 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 x = x0, x1 do + -- For each plane do. + if PROG then + print ("[meru] Plane "..x - x0.." Chunk ("..minp.x.." "..minp.y.." "..minp.z..")") end - for j = 0, yl 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 noise2 = perlin2:get3d({x=x,y=y,z=z}) - if noise2 - noise1off / 2 + CAVOFF > 0 then - if desert then - env:add_node({x=x,y=y,z=z},{name="default:desert_stone"}) - else - env:add_node({x=x,y=y,z=z},{name="default:stone"}) + for z = z0, z1 do + -- For each column do. + 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 y = y0, y1 do + -- For each node do. + local noise1 = perlin1:get3d({x=x,y=y,z=z}) + 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}) + 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 + env:add_node({x=x,y=y,z=z},{name="default:stone"}) + end end end end end end end - if DEBUG then - print ("[meru] Completed") - end end end) end