diff --git a/src/experimental/demo/pnoise1_demo.scad b/src/experimental/demo/pnoise1_demo.scad
index 2b4d4200..fcc26ac9 100644
--- a/src/experimental/demo/pnoise1_demo.scad
+++ b/src/experimental/demo/pnoise1_demo.scad
@@ -1,10 +1,18 @@
 use <hull_polyline2d.scad>;
+use <util/rand.scad>;
 use <experimental/zip2.scad>;
 use <experimental/pnoise1.scad>;
+use <experimental/pnoise1s.scad>;
+
+seed = rand();
+hull_polyline2d(
+    [for(x = [0:.1:10]) [x, pnoise1(x, seed)]], width = .1
+);
 
 xs = [for(x = [0:.2:8.3]) x];
-ys = pnoise1(xs);
+ys = pnoise1s(xs);
 
-hull_polyline2d(
-    zip2(xs, ys), width = .1
-);
\ No newline at end of file
+translate([0, 2])
+    hull_polyline2d(
+        zip2(xs, ys), width = .1
+    );
\ No newline at end of file
diff --git a/src/experimental/pnoise1.scad b/src/experimental/pnoise1.scad
index 63ee0e2a..3d87dca6 100644
--- a/src/experimental/pnoise1.scad
+++ b/src/experimental/pnoise1.scad
@@ -1,6 +1,4 @@
 use <util/rand.scad>;
 use <experimental/_impl/_pnoise1_impl.scad>;
 
-function pnoise1(xs, seed) = 
-    let(sd = is_undef(seed) ? floor(rand(0, 256)) : seed % 256)
-    [for(x = xs) _pnoise1_impl(x, sd)];
\ No newline at end of file
+function pnoise1(x, seed) = _pnoise1_impl(x, seed % 256);
\ No newline at end of file