From 736f58454d6e48f7b3a1b536b511d1bca6dcfb87 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 23 Jul 2016 13:53:20 +0100
Subject: [PATCH] earring-stand: wip EclipPPlanCore

---
 earring-stand.scad | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/earring-stand.scad b/earring-stand.scad
index ace6c7a..e87f150 100644
--- a/earring-stand.scad
+++ b/earring-stand.scad
@@ -38,4 +38,16 @@ module EclipLPlanCore(alpha){
   }
 }
 
-EclipLPlanCore(10);
+module EclipLPlan(alpha){
+  rotate(alpha) EclipLPlanCore(alpha);
+}
+
+module EclipPPlanCore(){
+  hull(){
+    circle(r0);
+    rotate(45) square([r0,r0]);
+  }
+}
+
+color("red") EclipLPlanCore(10);
+color("blue") EclipPPlanCore(10);
-- 
2.30.2