Upload New File

0a37e09d · Larkin Heintzman · e28a1997 · 0a37e09d
Commit 0a37e09d authored Dec 10, 2019 by Larkin Heintzman
Hide whitespace changes
Inline Side-by-side

Showing with 12 additions and 0 deletions

perlin_noise.m Matlab Code/perlin_noise.m +12 -0

No files found.
--- a/Matlab Code/perlin_noise.m
+++ b/Matlab Code/perlin_noise.m
+function im = perlin_noise(im)
+
+    [n, m] = size(im);
+    i = 0;
+    w = sqrt(n*m);
+
+    while w > 3
+        i = i + 1;
+        d = interp2(randn(n, m), i-1, 'spline');
+        im = im + i * d(1:n, 1:m);
+        w = w - ceil(w/2 - 1);
+    end
\ No newline at end of file