diff --git a/src/experimental/convex_ct_clk_order.scad b/src/experimental/convex_ct_clk_order.scad
new file mode 100644
index 00000000..f9b7c11a
--- /dev/null
+++ b/src/experimental/convex_ct_clk_order.scad
@@ -0,0 +1,10 @@
+use <util/sort.scad>;
+use <experimental/convex_center_p.scad>;
+
+function convex_ct_clk_order(points) =
+    let(
+        cpt = convex_center_p(points),
+        pts_as = [for(p = points) [p, atan2(p[1] - cpt[1], p[0] - cpt[0])]],
+        sorted = sort(pts_as, by = "idx", idx = 1)
+    )
+    [for(v = sorted) v[0]];
\ No newline at end of file