From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 3 Jun 2017 20:11:08 +0000 (+0100)
Subject: sewing-table: RoundCorner rework: introduce ctr3 (nfc)
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=53c1920a14c52f41dea136b9dee91bdf91d0ceb5;p=reprap-play.git

sewing-table: RoundCorner rework: introduce ctr3 (nfc)
---

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index a407c7a..57f9f3d 100644
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -248,7 +248,8 @@ m4_define(`ROUNDCORNER_VARS',`
   lp2 = this_cnr  + clockwise2d(l_uvec) * bigr;
   lp3 = this_cnr  - clockwise2d(r_uvec) * bigr;
   lp4 = right_cnr - clockwise2d(r_uvec) * bigr;
-  ctr = line_intersection_2d(lp1,lp2,lp3,lp4)
+  ctr = line_intersection_2d(lp1,lp2,lp3,lp4);
+  ctr3 = concat(ctr,[0])
 ')
 
 module RoundCorner_selector(ci, adj) {
@@ -281,7 +282,7 @@ module RoundCornerCut(ci) {
   ROUNDCORNER_VARS;
   difference(){
     RoundCorner_selector(ci, -0.1);
-    translate(concat(ctr,[0]))
+    translate(ctr3)
       cylinder(center=true, h=20, r= bigr);
   }
 }
@@ -291,7 +292,7 @@ module RoundCornerAdd(ci) {
   intersection(){
     RoundCorner_selector(ci, +0.1);
     INREFFRAME_EDGE {
-      translate(concat(ctr,[0])){
+      translate(ctr3){
 	rotate_extrude(convexity=10, $fn=50)
 	  translate([bigr, 0])
 	  difference(){