diff --git a/src/experimental/circle_packing2.scad b/src/experimental/circle_packing2.scad
index cc4a3ad1..9fba5489 100644
--- a/src/experimental/circle_packing2.scad
+++ b/src/experimental/circle_packing2.scad
@@ -1,5 +1,4 @@
-use <experimental/tri_subdivide.scad>;
-
+use <triangle/tri_subdivide.scad>;
 use <triangle/tri_delaunay.scad>;
 use <triangle/tri_incenter.scad>;
 
diff --git a/src/experimental/note.md b/src/experimental/note.md
index 6ef87325..30c4858e 100644
--- a/src/experimental/note.md
+++ b/src/experimental/note.md
@@ -4,6 +4,8 @@ to_do:
 
 new:
 
+- triangle/tri_subdivide
+
 - maze/mz_wang_tiles?
 
 - mz_hamiltonian supports init_cells
diff --git a/src/experimental/tri_subdivide.scad b/src/triangle/_impl/_tri_subdivide_impl.scad
similarity index 75%
rename from src/experimental/tri_subdivide.scad
rename to src/triangle/_impl/_tri_subdivide_impl.scad
index d91fd7cc..925a8e27 100644
--- a/src/experimental/tri_subdivide.scad
+++ b/src/triangle/_impl/_tri_subdivide_impl.scad
@@ -25,15 +25,4 @@ function _tri_subdivide_indices(n) =
 				]
 			else 
 				[ci_base_i_1, ci_base_i1, ci_base_i]
-	];
-    
-function tri_subdivide(shape_pts, n) =
-    let(
-        pts = _tri_subdivide_pts(shape_pts, n),
-        indices = _tri_subdivide_indices(n)
-    )
-    [
-        for(ti = indices) 
-        [pts[ti[0]], pts[ti[1]], pts[ti[2]]]
-    ];
-    
\ No newline at end of file
+	];
\ No newline at end of file
diff --git a/src/triangle/tri_subdivide.scad b/src/triangle/tri_subdivide.scad
new file mode 100644
index 00000000..afedb726
--- /dev/null
+++ b/src/triangle/tri_subdivide.scad
@@ -0,0 +1,12 @@
+use <_impl/_tri_subdivide_impl.scad>;
+    
+function tri_subdivide(shape_pts, n) =
+    let(
+        pts = _tri_subdivide_pts(shape_pts, n),
+        indices = _tri_subdivide_indices(n)
+    )
+    [
+        for(ti = indices) 
+        [pts[ti[0]], pts[ti[1]], pts[ti[2]]]
+    ];
+    
\ No newline at end of file