算法 – 包裹2D perlin噪声

我正在使用Perlin Noise进行高度图生成算法,我想让它包围边缘,以便它被视为连续的.有没有一个简单的方法或技巧呢?我想我需要像球面噪音那样的水平和垂直的包裹.我也会快乐只有1个包装轴,但两个会更好.

现在我使用经典的算法,您可以在其中设置要添加多少个八度音阶,以及用于在每个连续八度音阶之间改变波形的幅度和频率的乘法器.

提前致谢!

解决方法

获得Perlin噪声作为波形总和.通过内插随机值获得波形,较高的八度波形具有较小的缩放因子,而内插的随机值彼此更接近.为了使其环绕,您只需要以通常的环形方式正确地插入y轴和x轴,即,如果X轴从x_min跨越到x_max,最左边的随机点(正被插值)是在x0处和最右侧的x1(x_min 一个进行伪代码.这假设一个256×256矩阵,其中perlin噪声网格大小是两个像素的强度…只是为了使其可读.想象一下大小="=" 16:="" <="">
wrappable_perlin_octave(grid,size):
   for (x=0;x<256;x+=size):
     for (y=0;y<256;y+=size):
       grid[x][y] = random()
   for (x=0;x<256;x+=size):
     for (y=0;y<256;y+=size):
       if (x % size != 0 || y % size != 0): # interpolate
         ax = x - x % size
         bx = (ax + size) % 256 # wrap-around
         ay = y - y % size
         by = (ay + size) % 256 # wrap-around
         h = (x % size) / size # horizontal balance,floating-point calculation
         v = (y % size) / size # vertical balance,floating-point calculation
         grid[x][y] = grid[ax][ay] * (1-h) * (1-v) +
                      grid[bx][ay] * h * (1-v) +
                      grid[ax][by] * (1-h) * v +
                      grid[bx][by] * h * v

相关文章

1. 如何去重 #!/usr/bin/perl use strict; my %hash; while(...
最近写了一个perl脚本,实现的功能是将表格中其中两列的数据...
表的数据字典格式如下:如果手动写MySQL建表语句,确认麻烦,...
巡检类工作经常会出具日报,最近在原有日报的基础上又新增了...
在实际生产环境中,常常需要从后台日志中截取报文,报文的形...
最近写的一个perl程序,通过关键词匹配统计其出现的频率,让...