From b5f5c242142fd38f81fca080d5c85ae8902d6b5f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 23 Jul 2016 15:56:39 +0100
Subject: [PATCH] earring-stand: wip new approach to panes

---
 earring-stand.scad | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/earring-stand.scad b/earring-stand.scad
index b1f03df..b2c001c 100644
--- a/earring-stand.scad
+++ b/earring-stand.scad
@@ -155,8 +155,6 @@ module Sketch(){
 
 thicks = [ 2, 2, 2 ];
 
-//side_origins = [ pp, 
-
 module Joins(alpha, objnum, objnum_f, objnum_m) {
   echo("Joins",objnum, objnum_f, objnum_m);
   thm = thicks[objnum_m];
@@ -169,16 +167,24 @@ module Joins(alpha, objnum, objnum_f, objnum_m) {
       EclipPPlan(thm);
 }
 
-module Object(objnum){
+module ObjectJoins(objnum){
   echo("Object",objnum);
   translate(pp)                   Joins(beta, objnum, 0,1);
   translate(pr) mirror([1,0,0])   Joins(0,    objnum, 0,2);
   translate(pq) rotate([0,0,-90]) Joins(beta, objnum, 2,1);
 }
 
-module Base(){ Object(0); }
-module Front(){ Object(1); }
-module Back(){ Object(2); }
+module Base(){
+  ObjectJoins(0);
+}
+
+module Front(){
+  ObjectJoins(1);
+}
+
+module Back(){
+  ObjectJoins(2);
+}
 
 module Demo(){
   Base();
@@ -191,4 +197,4 @@ module Demo(){
 //TestProtr();
 //TestRAProtr();
 //Sketch();
-//Demo();
+Demo();
-- 
2.30.2