From fc66bd58ef02b3e3aa6b3caff9fb953b1b0e69ed Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 23 Jul 2016 14:41:27 +0100
Subject: [PATCH] earring-stand: TestRAProtr looks good

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

diff --git a/earring-stand.scad b/earring-stand.scad
index 60b5199..3383aa6 100644
--- a/earring-stand.scad
+++ b/earring-stand.scad
@@ -108,6 +108,17 @@ module TestProtr(){
     EclipPPlan(test_main_th);
 }
 
+module TestRAProtr(){
+  rotate([-90,0,0]) TestProtr();
+  mirror([1,0,0])
+    translate([-test_len,
+	       -r2,
+	       -(r2 + test_base_th) + 0.1])
+    cube([test_len,
+	  r2*2,
+	  test_base_th]);
+}
+
 module PlanDemo(){
   color("red") EclipLPlan(test_alpha);
   color("blue") rotate(test_alpha) EclipPPlan(test_main_th);
@@ -116,4 +127,5 @@ module PlanDemo(){
 
 //PlanDemo();
 //TestBase();
-TestProtr();
+//TestProtr();
+TestRAProtr();
-- 
2.30.2