earring-stand: wip new approach to panes

[reprap-play.git] / earring-stand.scad

diff --git a/earring-stand.scad b/earring-stand.scad
index b1f03df9b9f80fcf6552322a3ded51802382fe2a..b2c001cee167d753f08b0bb250d6a5d68b99a2dd 100644 (file)
--- 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();