earring-stand: TestRAProtr looks good

diff --git a/earring-stand.scad b/earring-stand.scad
index 60b5199e858894be97f460e89e1912fd6fedb9a7..3383aa6a4fc95cde625efb7b75ee4fd309814480 100644 (file)
--- 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();