local function prequire(name) local success, result = pcall(require, name); return if success then result else nil end local bench = script and require(script.Parent.bench_support) or prequire("bench_support") or require("../bench_support") -- Based on voxel terrain generator by Stickmasterluke local kSelectedBiomes = { ['Mountains'] = true, ['Canyons'] = true, ['Dunes'] = true, ['Arctic'] = true, ['Lavaflow'] = true, ['Hills'] = true, ['Plains'] = true, ['Marsh'] = true, ['Water'] = true, } ---------Directly used in Generation--------- local masterSeed = 618033988 local mapWidth = 32 local mapHeight = 32 local biomeSize = 16 local generateCaves = true local waterLevel = .48 local surfaceThickness = .018 local biomes = {} --------------------------------------------- local rock = "Rock" local snow = "Snow" local ice = "Glacier" local grass = "Grass" local ground = "Ground" local mud = "Mud" local slate = "Slate" local concrete = "Concrete" local lava = "CrackedLava" local basalt = "Basalt" local air = "Air" local sand = "Sand" local sandstone = "Sandstone" local water = "Water" math.randomseed(6180339) local theseed={} for i=1,999 do table.insert(theseed,math.random()) end local function getPerlin(x,y,z,seed,scale,raw) local seed = seed or 0 local scale = scale or 1 if not raw then return math.noise(x/scale+(seed*17)+masterSeed,y/scale-masterSeed,z/scale-seed*seed)*.5 + .5 -- accounts for bleeding from interpolated line else return math.noise(x/scale+(seed*17)+masterSeed,y/scale-masterSeed,z/scale-seed*seed) end end local function getNoise(x,y,z,seed1) local x = x or 0 local y = y or 0 local z = z or 0 local seed1 = seed1 or 7 local wtf=x+y+z+seed1+masterSeed + (masterSeed-x)*(seed1+z) + (seed1-y)*(masterSeed+z) -- + x*(y+z) + z*(masterSeed+seed1) + seed1*(x+y) --x+y+z+seed1+masterSeed + x*y*masterSeed-y*z+(z+masterSeed)*x --((x+y)*(y-seed1)*seed1)-(x+z)*seed2+x*11+z*23-y*17 return theseed[(math.floor(wtf%(#theseed)))+1] end local function thresholdFilter(value, bottom, size) if value <= bottom then return 0 elseif value >= bottom+size then return 1 else return (value-bottom)/size end end local function ridgedFilter(value) --absolute and flip for ridges. and normalize return value<.5 and value*2 or 2-value*2 end local function ridgedFlippedFilter(value) --unflipped return value < .5 and 1-value*2 or value*2-1 end local function advancedRidgedFilter(value, cutoff) local cutoff = cutoff or .5 value = value - cutoff return 1 - (value < 0 and -value or value) * 1/(1-cutoff) end local function fractalize(operation,x,y,z, operationCount, scale, offset, gain) local operationCount = operationCount or 3 local scale = scale or .5 local offset = 0 local gain = gain or 1 local totalValue = 0 local totalScale = 0 for i=1, operationCount do local thisScale = scale^(i-1) totalScale = totalScale + thisScale totalValue = totalValue + (offset + gain * operation(x,y,z,i))*thisScale end return totalValue/totalScale end local function mountainsOperation(x,y,z,i) return ridgedFilter(getPerlin(x,y,z,100+i,(1/i)*160)) end local canyonBandingMaterial = {rock,mud,sand,sand,sandstone,sandstone,sandstone,sandstone,sandstone,sandstone,} local function findBiomeInfo(choiceBiome,x,y,z,verticalGradientTurbulence) local choiceBiomeValue = .5 local choiceBiomeSurface = grass local choiceBiomeFill = rock if choiceBiome == 'City' then choiceBiomeValue = .55 choiceBiomeSurface = concrete choiceBiomeFill = slate elseif choiceBiome == 'Water' then choiceBiomeValue = .36+getPerlin(x,y,z,2,50)*.08 choiceBiomeSurface = (1-verticalGradientTurbulence < .44 and slate) or sand elseif choiceBiome == 'Marsh' then local preLedge = getPerlin(x+getPerlin(x,0,z,5,7,true)*10+getPerlin(x,0,z,6,30,true)*50,0,z+getPerlin(x,0,z,9,7,true)*10+getPerlin(x,0,z,10,30,true)*50,2,70) --could use some turbulence local grassyLedge = thresholdFilter(preLedge,.65,0) local largeGradient = getPerlin(x,y,z,4,100) local smallGradient = getPerlin(x,y,z,3,20) local smallGradientThreshold = thresholdFilter(smallGradient,.5,0) choiceBiomeValue = waterLevel-.04 +preLedge*grassyLedge*.025 +largeGradient*.035 +smallGradient*.025 choiceBiomeSurface = (grassyLedge >= 1 and grass) or (1-verticalGradientTurbulence < waterLevel-.01 and mud) or (1-verticalGradientTurbulence < waterLevel+.01 and ground) or grass choiceBiomeFill = slate elseif choiceBiome == 'Plains' then local rivulet = ridgedFlippedFilter(getPerlin(x+getPerlin(x,y,z,17,40)*25,0,z+getPerlin(x,y,z,19,40)*25,2,200)) local rivuletThreshold = thresholdFilter(rivulet,.01,0) local rockMap = thresholdFilter(ridgedFlippedFilter(getPerlin(x,0,z,101,7)),.3,.7) --rocks * thresholdFilter(getPerlin(x,0,z,102,50),.6,.05) --zoning choiceBiomeValue = .5 --.51 +getPerlin(x,y,z,2,100)*.02 --.05 +rivulet*.05 --.02 +rockMap*.05 --.03 +rivuletThreshold*.005 local verticalGradient = 1-((y-1)/(mapHeight-1)) local surfaceGradient = verticalGradient*.5 + choiceBiomeValue*.5 local thinSurface = surfaceGradient > .5-surfaceThickness*.4 and surfaceGradient < .5+surfaceThickness*.4 choiceBiomeSurface = (rockMap>0 and rock) or (not thinSurface and mud) or (thinSurface and rivuletThreshold <=0 and water) or (1-verticalGradientTurbulence < waterLevel-.01 and sand) or grass choiceBiomeFill = (rockMap>0 and rock) or sandstone elseif choiceBiome == 'Canyons' then local canyonNoise = ridgedFlippedFilter(getPerlin(x,0,z,2,200)) local canyonNoiseTurbed = ridgedFlippedFilter(getPerlin(x+getPerlin(x,0,z,5,20,true)*20,0,z+getPerlin(x,0,z,9,20,true)*20,2,200)) local sandbank = thresholdFilter(canyonNoiseTurbed,0,.05) local canyonTop = thresholdFilter(canyonNoiseTurbed,.125,0) local mesaSlope = thresholdFilter(canyonNoise,.33,.12) local mesaTop = thresholdFilter(canyonNoiseTurbed,.49,0) choiceBiomeValue = .42 +getPerlin(x,y,z,2,70)*.05 +canyonNoise*.05 +sandbank*.04 --canyon bottom slope +thresholdFilter(canyonNoiseTurbed,.05,0)*.08 --canyon cliff +thresholdFilter(canyonNoiseTurbed,.05,.075)*.04 --canyon cliff top slope +canyonTop*.01 --canyon cliff top ledge +thresholdFilter(canyonNoiseTurbed,.0575,.2725)*.01 --plane slope +mesaSlope*.06 --mesa slope +thresholdFilter(canyonNoiseTurbed,.45,0)*.14 --mesa cliff +thresholdFilter(canyonNoiseTurbed,.45,.04)*.025 --mesa cap +mesaTop*.02 --mesa top ledge choiceBiomeSurface = (1-verticalGradientTurbulence < waterLevel+.015 and sand) --this for biome blending in to lakes or (sandbank>0 and sandbank<1 and sand) --this for canyonbase sandbanks --or (canyonTop>0 and canyonTop<=1 and mesaSlope<=0 and grass) --this for grassy canyon tops --or (mesaTop>0 and mesaTop<=1 and grass) --this for grassy mesa tops or sandstone choiceBiomeFill = canyonBandingMaterial[math.ceil((1-getNoise(1,y,2))*10)] elseif choiceBiome == 'Hills' then local rivulet = ridgedFlippedFilter(getPerlin(x+getPerlin(x,y,z,17,20)*20,0,z+getPerlin(x,y,z,19,20)*20,2,200))^(1/2) local largeHills = getPerlin(x,y,z,3,60) choiceBiomeValue = .48 +largeHills*.05 +(.05 +largeHills*.1 +getPerlin(x,y,z,4,25)*.125) *rivulet local surfaceMaterialGradient = (1-verticalGradientTurbulence)*.9 + rivulet*.1 choiceBiomeSurface = (surfaceMaterialGradient < waterLevel-.015 and mud) or (surfaceMaterialGradient < waterLevel and ground) or grass choiceBiomeFill = slate elseif choiceBiome == 'Dunes' then local duneTurbulence = getPerlin(x,0,z,227,20)*24 local layer1 = ridgedFilter(getPerlin(x,0,z,201,40)) local layer2 = ridgedFilter(getPerlin(x/10+duneTurbulence,0,z+duneTurbulence,200,48)) choiceBiomeValue = .4+.1*(layer1 + layer2) choiceBiomeSurface = sand choiceBiomeFill = sandstone elseif choiceBiome == 'Mountains' then local rivulet = ridgedFlippedFilter(getPerlin(x+getPerlin(x,y,z,17,20)*20,0,z+getPerlin(x,y,z,19,20)*20,2,200)) choiceBiomeValue = -.4 --.3 +fractalize(mountainsOperation,x,y/20,z, 8, .65)*1.2 +rivulet*.2 choiceBiomeSurface = (verticalGradientTurbulence < .275 and snow) or (verticalGradientTurbulence < .35 and rock) or (verticalGradientTurbulence < .4 and ground) or (1-verticalGradientTurbulence < waterLevel and rock) or (1-verticalGradientTurbulence < waterLevel+.01 and mud) or (1-verticalGradientTurbulence < waterLevel+.015 and ground) or grass elseif choiceBiome == 'Lavaflow' then local crackX = x+getPerlin(x,y*.25,z,21,8,true)*5 local crackY = y+getPerlin(x,y*.25,z,22,8,true)*5 local crackZ = z+getPerlin(x,y*.25,z,23,8,true)*5 local crack1 = ridgedFilter(getPerlin(crackX+getPerlin(x,y,z,22,30,true)*30,crackY,crackZ+getPerlin(x,y,z,24,30,true)*30,2,120)) local crack2 = ridgedFilter(getPerlin(crackX,crackY,crackZ,3,40))*(crack1*.25+.75) local crack3 = ridgedFilter(getPerlin(crackX,crackY,crackZ,4,20))*(crack2*.25+.75) local generalHills = thresholdFilter(getPerlin(x,y,z,9,40),.25,.5)*getPerlin(x,y,z,10,60) local cracks = math.max(0,1-thresholdFilter(crack1,.975,0)-thresholdFilter(crack2,.925,0)-thresholdFilter(crack3,.9,0)) local spires = thresholdFilter(getPerlin(crackX/40,crackY/300,crackZ/30,123,1),.6,.4) choiceBiomeValue = waterLevel+.02 +cracks*(.5+generalHills*.5)*.02 +generalHills*.05 +spires*.3 +((1-verticalGradientTurbulence > waterLevel+.01 or spires>0) and .04 or 0) --This lets it lip over water choiceBiomeFill = (spires>0 and rock) or (cracks<1 and lava) or basalt choiceBiomeSurface = (choiceBiomeFill == lava and 1-verticalGradientTurbulence < waterLevel and basalt) or choiceBiomeFill elseif choiceBiome == 'Arctic' then local preBoundary = getPerlin(x+getPerlin(x,0,z,5,8,true)*5,y/8,z+getPerlin(x,0,z,9,8,true)*5,2,20) --local cliffs = thresholdFilter(preBoundary,.5,0) local boundary = ridgedFilter(preBoundary) local roughChunks = getPerlin(x,y/4,z,436,2) local boundaryMask = thresholdFilter(boundary,.8,.1) --,.7,.25) local boundaryTypeMask = getPerlin(x,0,z,6,74)-.5 local boundaryComp = 0 if boundaryTypeMask < 0 then --divergent boundaryComp = (boundary > (1+boundaryTypeMask*.5) and -.17 or 0) --* boundaryTypeMask*-2 else --convergent boundaryComp = boundaryMask*.1*roughChunks * boundaryTypeMask end choiceBiomeValue = .55 +boundary*.05*boundaryTypeMask --.1 --soft slope up or down to boundary +boundaryComp --convergent/divergent effects +getPerlin(x,0,z,123,25)*.025 --*cliffs --gentle rolling slopes choiceBiomeSurface = (1-verticalGradientTurbulence < waterLevel-.1 and ice) or (boundaryMask>.6 and boundaryTypeMask>.1 and roughChunks>.5 and ice) or snow choiceBiomeFill = ice end return choiceBiomeValue, choiceBiomeSurface, choiceBiomeFill end function findBiomeTransitionValue(biome,weight,value,averageValue) if biome == 'Arctic' then return (weight>.2 and 1 or 0)*value elseif biome == 'Canyons' then return (weight>.7 and 1 or 0)*value elseif biome == 'Mountains' then local weight = weight^3 --This improves the ease of mountains transitioning to other biomes return averageValue*(1-weight)+value*weight else return averageValue*(1-weight)+value*weight end end function generate() local mapWidth = mapWidth local biomeSize = biomeSize local biomeBlendPercent = .25 --(biomeSize==50 or biomeSize == 100) and .5 or .25 local biomeBlendPercentInverse = 1-biomeBlendPercent local biomeBlendDistortion = biomeBlendPercent local smoothScale = .5/mapHeight biomes = {} for i,v in pairs(kSelectedBiomes) do if v then table.insert(biomes,i) end end if #biomes<=0 then table.insert(biomes,'Hills') end table.sort(biomes) --local oMap = {} --local mMap = {} for x = 1, mapWidth do local oMapX = {} --oMap[x] = oMapX local mMapX = {} --mMap[x] = mMapX for z = 1, mapWidth do local biomeNoCave = false local cellToBiomeX = x/biomeSize + getPerlin(x,0,z,233,biomeSize*.3)*.25 + getPerlin(x,0,z,235,biomeSize*.05)*.075 local cellToBiomeZ = z/biomeSize + getPerlin(x,0,z,234,biomeSize*.3)*.25 + getPerlin(x,0,z,236,biomeSize*.05)*.075 local closestDistance = 1000000 local biomePoints = {} for vx=-1,1 do for vz=-1,1 do local gridPointX = math.floor(cellToBiomeX+vx+.5) local gridPointZ = math.floor(cellToBiomeZ+vz+.5) --local pointX, pointZ = getBiomePoint(gridPointX,gridPointZ) local pointX = gridPointX+(getNoise(gridPointX,gridPointZ,53)-.5)*.75 --de-uniforming grid for vornonoi local pointZ = gridPointZ+(getNoise(gridPointX,gridPointZ,73)-.5)*.75 local dist = math.sqrt((pointX-cellToBiomeX)^2 + (pointZ-cellToBiomeZ)^2) if dist < closestDistance then closestDistance = dist end table.insert(biomePoints,{ x = pointX, z = pointZ, dist = dist, biomeNoise = getNoise(gridPointX,gridPointZ), weight = 0 }) end end local weightTotal = 0 local weightPoints = {} for _,point in pairs(biomePoints) do local weight = point.dist == closestDistance and 1 or ((closestDistance / point.dist)-biomeBlendPercentInverse)/biomeBlendPercent if weight > 0 then local weight = weight^2.1 --this smooths the biome transition from linear to cubic InOut weightTotal = weightTotal + weight local biome = biomes[math.ceil(#biomes*(1-point.biomeNoise))] --inverting the noise so that it is limited as (0,1]. One less addition operation when finding a random list index weightPoints[biome] = { weight = weightPoints[biome] and weightPoints[biome].weight + weight or weight } end end for biome,info in pairs(weightPoints) do info.weight = info.weight / weightTotal if biome == 'Arctic' then --biomes that don't have caves that breach the surface biomeNoCave = true end end for y = 1, mapHeight do local oMapY = oMapX[y] or {} oMapX[y] = oMapY local mMapY = mMapX[y] or {} mMapX[y] = mMapY --[[local oMapY = {} oMapX[y] = oMapY local mMapY = {} mMapX[z] = mMapY]] local verticalGradient = 1-((y-1)/(mapHeight-1)) local caves = 0 local verticalGradientTurbulence = verticalGradient*.9 + .1*getPerlin(x,y,z,107,15) local choiceValue = 0 local choiceSurface = lava local choiceFill = rock if verticalGradient > .65 or verticalGradient < .1 then --under surface of every biome; don't get biome data; waste of time. choiceValue = .5 elseif #biomes == 1 then choiceValue, choiceSurface, choiceFill = findBiomeInfo(biomes[1],x,y,z,verticalGradientTurbulence) else local averageValue = 0 --local findChoiceMaterial = -getNoise(x,y,z,19) for biome,info in pairs(weightPoints) do local biomeValue, biomeSurface, biomeFill = findBiomeInfo(biome,x,y,z,verticalGradientTurbulence) info.biomeValue = biomeValue info.biomeSurface = biomeSurface info.biomeFill = biomeFill local value = biomeValue * info.weight averageValue = averageValue + value --[[if findChoiceMaterial < 0 and findChoiceMaterial + weight >= 0 then choiceMaterial = biomeMaterial end findChoiceMaterial = findChoiceMaterial + weight]] end for biome,info in pairs(weightPoints) do local value = findBiomeTransitionValue(biome,info.weight,info.biomeValue,averageValue) if value > choiceValue then choiceValue = value choiceSurface = info.biomeSurface choiceFill = info.biomeFill end end end local preCaveComp = verticalGradient*.5 + choiceValue*.5 local surface = preCaveComp > .5-surfaceThickness and preCaveComp < .5+surfaceThickness if generateCaves --user wants caves and (not biomeNoCave or verticalGradient > .65) --biome allows caves or deep enough and not (surface and (1-verticalGradient) < waterLevel+.005) --caves only breach surface above waterlevel and not (surface and (1-verticalGradient) > waterLevel+.58) then --caves don't go too high so that they don't cut up mountain tops local ridged2 = ridgedFilter(getPerlin(x,y,z,4,30)) local caves2 = thresholdFilter(ridged2,.84,.01) local ridged3 = ridgedFilter(getPerlin(x,y,z,5,30)) local caves3 = thresholdFilter(ridged3,.84,.01) local ridged4 = ridgedFilter(getPerlin(x,y,z,6,30)) local caves4 = thresholdFilter(ridged4,.84,.01) local caveOpenings = (surface and 1 or 0) * thresholdFilter(getPerlin(x,0,z,143,62),.35,0) --.45 caves = caves2 * caves3 * caves4 - caveOpenings caves = caves < 0 and 0 or caves > 1 and 1 or caves end local comp = preCaveComp - caves local smoothedResult = thresholdFilter(comp,.5,smoothScale) ---below water level -above surface -no terrain if 1-verticalGradient < waterLevel and preCaveComp <= .5 and smoothedResult <= 0 then smoothedResult = 1 choiceSurface = water choiceFill = water surface = true end oMapY[z] = (y == 1 and 1) or smoothedResult mMapY[z] = (y == 1 and lava) or (smoothedResult <= 0 and air) or (surface and choiceSurface) or choiceFill end end -- local regionStart = Vector3.new(mapWidth*-2+(x-1)*4,mapHeight*-2,mapWidth*-2) -- local regionEnd = Vector3.new(mapWidth*-2+x*4,mapHeight*2,mapWidth*2) -- local mapRegion = Region3.new(regionStart, regionEnd) -- terrain:WriteVoxels(mapRegion, 4, {mMapX}, {oMapX}) end end bench.runCode(generate, "voxelgen")