From 357c231defc0f31fa89e12a71a6ea1c3f7d217c2 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 2 Jan 2017 13:35:32 +0000
Subject: [PATCH] sewing-table: introduce InterlockPlan

---
 sewing-table.scad.m4 | 32 +++++++++++++++++++-------------
 1 file changed, 19 insertions(+), 13 deletions(-)

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 018ab45..9b11413 100644
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -122,28 +122,34 @@ module RoundLeftCorner(this_cnr, right_cnr) {
   }
 }
 
-module InterlockCore(r, plusth, ymir) {
+module InterlockPlan(r, ymir) {
   dx = sqrt(3) * r;
   $fn= 80;
-  translate([thehd[0], 0, plusth]){
+  translate([thehd[0], 0]){
     mirror([0,ymir,0]){
-      mirror([0,0,1]){
-	linear_extrude(height=tile_th+plusth*2, convexity=10){
-	  circle(r=r);
-	  difference(){
-	    translate([-dx, -0.1])
-	      square([ dx*2, r/2 + 0.1 ]);
-	    for (xi = [-1, 1]) {
-	      translate([ xi*dx, r ])
-		circle(r=r);
-	    }
-	  }
+      circle(r=r);
+      difference(){
+	translate([-dx, -0.1])
+	  square([ dx*2, r/2 + 0.1 ]);
+	for (xi = [-1, 1]) {
+	  translate([ xi*dx, r ])
+	    circle(r=r);
 	}
       }
     }
   }
 }
 
+module InterlockCore(r, plusth, ymir) {
+  translate([0, 0, plusth]){
+    mirror([0,0,1]){
+      linear_extrude(height=tile_th+plusth*2, convexity=10){
+	InterlockPlan(r, ymir);
+      }
+    }
+  }
+}
+
 module InterlockNegative(this_cnr, right_cnr) {
   INREFFRAME(this_cnr, right_cnr)
     InterlockCore(interlock_negative_rad, 1, 0);
-- 
2.30.2