diff --git a/src/experimental/pnoise3.scad b/src/experimental/pnoise3.scad
index e3904db6..fc6b9288 100644
--- a/src/experimental/pnoise3.scad
+++ b/src/experimental/pnoise3.scad
@@ -1,6 +1,4 @@
 use <util/rand.scad>;
 use <experimental/_impl/_pnoise3_impl.scad>;
 
-function pnoise3(points, seed) = 
-    let(sd = is_undef(seed) ? floor(rand(0, 256)) : seed % 256)
-    [for(p = points) _pnoise3(p[0], p[1], p[2], sd)];    
\ No newline at end of file
+function pnoise3(x, y, z, seed) = _pnoise3(x, y, z, seed % 256);
\ No newline at end of file
diff --git a/src/experimental/pnoise3s.scad b/src/experimental/pnoise3s.scad
new file mode 100644
index 00000000..47b5ccac
--- /dev/null
+++ b/src/experimental/pnoise3s.scad
@@ -0,0 +1,6 @@
+use <util/rand.scad>;
+use <experimental/_impl/_pnoise3_impl.scad>;
+
+function pnoise3s(points, seed) = 
+    let(sd = is_undef(seed) ? floor(rand(0, 256)) : seed % 256)
+    [for(p = points) _pnoise3(p[0], p[1], p[2], sd)];    
\ No newline at end of file