diff --git a/src/experimental/_impl/_pnoise1.scad b/src/experimental/_impl/_pnoise1.scad
index c58dc56a..09886a13 100644
--- a/src/experimental/_impl/_pnoise1.scad
+++ b/src/experimental/_impl/_pnoise1.scad
@@ -1,5 +1,7 @@
 use <experimental/_impl/_pnoise_comm.scad>;
 
+function _pnoise1_grad1(hashvalue, x) = (hashvalue % 2 == 0) ? x : -x; 
+
 function _pnoise1(x, seed) =
     let(
         xi = floor(x),
diff --git a/src/experimental/_impl/_pnoise_comm.scad b/src/experimental/_impl/_pnoise_comm.scad
index 5ba8ae82..e20e03f7 100644
--- a/src/experimental/_impl/_pnoise_comm.scad
+++ b/src/experimental/_impl/_pnoise_comm.scad
@@ -4,6 +4,4 @@ function _pnoise_fade(t) = pow(t, 3) * (t * (t * 6 - 15) + 10);
 
 function _pnoise_lerp(a, b, t) = a + t * (b - a);
 
-function _pnoise_lookup_poise_table(i) = _pnoise_table[i % 256];
-
-function _pnoise1_grad1(hashvalue, x) = (hashvalue % 2 == 0) ? x : -x; 
\ No newline at end of file
+function _pnoise_lookup_poise_table(i) = _pnoise_table[i % 256];
\ No newline at end of file