perlin improvements as suggested by @paramat

Vanessa Ezekowitz

2017-04-01 eb344ad804aa83570ccda9a5886733d8b42aa598

 technic_worldgen/oregen.lua

@@ -116,27 +116,30 @@
})

-- Sulfur
local sulfur_buf = nil
local sulfur_noise= nil

minetest.register_on_generated(function(minp, maxp, seed)
   local vm, emin, emax = minetest.get_mapgen_object("voxelmanip")
   local a = VoxelArea:new{
      MinEdge = {x = emin.x, y = emin.y, z = emin.z},
      MaxEdge = {x = emax.x, y = emax.y, z = emax.z},
   }
   local data = vm:get_data()
   local data = vm:get_data(sulfur_buf)
   local pr = PseudoRandom(17 * minp.x + 42 * minp.y + 101 * minp.z)
   local noise = minetest.get_perlin(9876, 3, 0.5, 100)
	
   sulfur_noise = sulfur_noise or minetest.get_perlin(9876, 3, 0.5, 100)

   local c_lava = minetest.get_content_id("default:lava_source")
   local c_lava_flowing = minetest.get_content_id("default:lava_flowing")
   local c_stone = minetest.get_content_id("default:stone")
   local c_sulfur = minetest.get_content_id("technic:mineral_sulfur")
	

   local grid_size = 5
   for x = minp.x + math.floor(grid_size / 2), maxp.x, grid_size do
   for y = minp.y + math.floor(grid_size / 2), maxp.y, grid_size do
   for z = minp.z + math.floor(grid_size / 2), maxp.z, grid_size do
      local c = data[a:index(x, y, z)]
      if (c == c_lava or c == c_lava_flowing) and noise:get3d({x = x, y = z, z = z}) >= 0.4 then
      if (c == c_lava or c == c_lava_flowing) and sulfur_noise:get3d({x = x, y = z, z = z}) >= 0.4 then
         for xx = math.max(minp.x, x - grid_size), math.min(maxp.x, x + grid_size) do
         for yy = math.max(minp.y, y - grid_size), math.min(maxp.y, y + grid_size) do
         for zz = math.max(minp.z, z - grid_size), math.min(maxp.z, z + grid_size) do
@@ -151,7 +154,7 @@
   end
   end
   end
	

   vm:set_data(data)
   vm:write_to_map(data)
end)