From 7fccc9218bb4d0671546d393c2c76e3ec2ca5c89 Mon Sep 17 00:00:00 2001
From: Justin Lin <caterpillar@openhome.cc>
Date: Sat, 6 May 2017 14:01:34 +0800
Subject: [PATCH] added shape_ellipse

---
 src/shape_ellipse.scad | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 src/shape_ellipse.scad

diff --git a/src/shape_ellipse.scad b/src/shape_ellipse.scad
new file mode 100644
index 00000000..44cf6638
--- /dev/null
+++ b/src/shape_ellipse.scad
@@ -0,0 +1,16 @@
+function shape_ellipse(axes) =
+    let(
+        frags = $fn > 0 ? 
+            ($fn >= 3 ? $fn : 3) : 
+            max(min(360 / $fa, axes[0] * 6.28318 / $fs), 5),
+        step_a = 360 / frags,
+        shape_pts = [
+            for(a = [0:step_a:360 - step_a]) 
+                [axes[0] * cos(a), axes[1] * sin(a)]
+        ],
+        triangles = [for(i = [1:len(shape_pts) - 2]) [0, i, i + 1]]
+    )
+    [
+        shape_pts,
+        triangles
+    ];
\ No newline at end of file