From f1d864e44a6a3a87cfc73e2396bf46cb17a2f0de Mon Sep 17 00:00:00 2001
From: Justin Lin <caterpillar@openhome.cc>
Date: Thu, 5 Mar 2020 17:59:02 +0800
Subject: [PATCH] add pnoise1

---
 src/experimental/_impl/_pnoise1.scad | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 src/experimental/_impl/_pnoise1.scad

diff --git a/src/experimental/_impl/_pnoise1.scad b/src/experimental/_impl/_pnoise1.scad
new file mode 100644
index 00000000..29e24cff
--- /dev/null
+++ b/src/experimental/_impl/_pnoise1.scad
@@ -0,0 +1,10 @@
+function _pnoise1(x, n, slopes) =
+    let(
+        lo = floor(x),
+        hi = (lo + 1) % n,
+        dist = x - lo,
+        loPos = slopes[lo] * dist,
+        hiPos = -slopes[hi] * (1 - dist),
+        u = pow(dist, 3) * (dist * (dist * 6 - 15) + 10)
+    )
+    loPos * (1 - u) + hiPos * u;
\ No newline at end of file