diff --git a/src/experimental/convex_ct_clk_order.scad b/src/experimental/convex_ct_clk_order.scad
index be682fbf..e6213de0 100644
--- a/src/experimental/convex_ct_clk_order.scad
+++ b/src/experimental/convex_ct_clk_order.scad
@@ -2,9 +2,5 @@ use <util/sort.scad>;
 use <experimental/convex_centroid.scad>;
 
 function convex_ct_clk_order(points) =
-    let(
-        cpt = convex_centroid(points),
-        pts_as = [for(p = points) [p, atan2(p.y - cpt.y, p.x - cpt.x)]],
-        sorted = sort(pts_as, by = "idx", idx = 1)
-    )
-    [for(v = sorted) v[0]];
\ No newline at end of file
+    let(cpt = convex_centroid(points))
+    sort(points, by = function(p1, p2) cross(p2 - cpt, p1 - cpt));
\ No newline at end of file