From fb7eab6a315ac7c9c9cee2086dc057276cdda8dd Mon Sep 17 00:00:00 2001
From: Justin Lin <caterpillar@openhome.cc>
Date: Sat, 22 Feb 2020 09:58:59 +0800
Subject: [PATCH] add convex_ct_clk_order

---
 src/experimental/convex_ct_clk_order.scad | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 src/experimental/convex_ct_clk_order.scad

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