X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=sewing-table.scad.m4;h=9a091699d37c244106368363f463faf8f903cd3c;hp=92c68cbd29435780aea9f854a8e55948c39beea2;hb=457cf6af6a0931a6baef7c51e49f2ca6dd02c135;hpb=4428d4d1ae86c5a90d6afd564052b1b74b7af0da

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 92c68cb..9a09169 100644
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -205,6 +205,13 @@ module TileBase(botleft, topright){
   }
 }
 
+m4_dnl   R_EDGE(c,ix)
+m4_dnl        c is from Rectangle_corners and
+m4_dnl        ix is a corner number
+m4_dnl    expands to two comma-separated corners:
+m4_dnl    that denoted by ix, and the next one anticlockwise
+m4_define(`R_EDGE',`$1[$2],$1[(($2)+1)%4]')
+
 m4_dnl  INREFFRAME(left_cnr, right_cnr, morevars) { body; }
 m4_define(`INREFFRAME',`
   length_vec = ($2) - ($1);
@@ -241,13 +248,42 @@ m4_define(`ROUNDCORNER_VARS',`
   this_cnr = ci[0];
   right_cnr = ci[1];
   left_cnr = ci[2];
-  bigr= round_cnr_rad - round_edge_rad
+  bigr= round_cnr_rad - round_edge_rad;
+  l_uvec = unitvector2d(left_cnr - this_cnr);
+  r_uvec = unitvector2d(right_cnr - this_cnr);
+  lp1 = left_cnr  + clockwise2d(l_uvec) * bigr;
+  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);
+  ctr3 = concat(ctr,[0])
 ')
 
 module RoundCorner_selector(ci, adj) {
   ROUNDCORNER_VARS;
-  INREFFRAME(this_cnr, right_cnr) {
-    cube(bigr*2 + adj, center=true);
+  echo("RCS",l_uvec,ctr);
+  %union(){
+    INREFFRAME(this_cnr, right_cnr) {
+      cube(bigr*2 + adj, center=true);
+    }
+  }
+  intersection(){
+    union(){
+      INREFFRAME(ctr3,concat(lp1,[4])){
+	translate([0,0,-bigr]) linear_extrude(height=bigr*2) {
+	  translate([-bigr*2 + adj, -bigr])
+	    square([bigr*2, bigr*3]);
+	}
+      }
+    }
+    union(){
+      INREFFRAME(ctr3,concat(lp4,[0])){
+	translate([0,0,-bigr]) linear_extrude(height=bigr*2) {
+	  translate([-bigr*2, -bigr*2])
+	    square([bigr*2 + adj, bigr*3]);
+	}
+      }
+    }
   }
 }
 
@@ -257,10 +293,8 @@ module RoundCornerCut(ci) {
   ROUNDCORNER_VARS;
   difference(){
     RoundCorner_selector(ci, -0.1);
-    INREFFRAME(this_cnr, right_cnr) INREFFRAME_EDGE {
-      translate([bigr, bigr, 0])
-	cylinder(center=true, h=20, r= bigr);
-    }
+    translate(ctr3)
+      cylinder(center=true, h=20, r= bigr);
   }
 }
 
@@ -268,15 +302,16 @@ module RoundCornerAdd(ci) {
   ROUNDCORNER_VARS;
   intersection(){
     RoundCorner_selector(ci, +0.1);
-    INREFFRAME(this_cnr, right_cnr) INREFFRAME_EDGE {
-      translate([bigr, bigr, 0])
+    INREFFRAME_EDGE {
+      translate(ctr3){
 	rotate_extrude(convexity=10, $fn=50)
-	translate([bigr, 0])
-	difference(){
+	  translate([bigr, 0])
+	  difference(){
 	  circle(r= round_edge_rad, $fn=50);
 	  mirror([1,1])
 	    square([20,20]);
-        }
+	}
+      }
     }
   }
 }
@@ -575,13 +610,6 @@ module Rectangle_TileBase(c) { TileBase(c[0], c[2]); }
 
 function Posts_interpolate_one(c0,c1) = [c0, (c0+c1)/2, c1];
 
-m4_dnl   R_EDGE(c,ix)
-m4_dnl        c is from Rectangle_corners and
-m4_dnl        ix is a corner number
-m4_dnl    expands to two comma-separated corners:
-m4_dnl    that denoted by ix, and the next one anticlockwise
-m4_define(`R_EDGE',`$1[$2],$1[(($2)+1)%4]')
-
 module FitTest_general(c0,sz, dobrace=false){
   c = Rectangle_corners(c0, sz);
   brace = [7,7,9];
@@ -791,10 +819,11 @@ module RoundCornerDemo_plat(cnr){
 }
 
 module RoundCornerDemo(){ ////toplevel
-  cnr = [ [0,0], [15,0], [-10,10] ];
+  cnr = [ [0,0], [15,0], [-10,12] ];
   translate([0,25,0]) RoundCornerDemo_plat(cnr);
   translate([25,0,0]) RoundCornerAdd(cnr);
   translate([-25,0,0]) RoundCornerCut(cnr);
+  translate([0,-25,0]) RoundCorner_selector(cnr, 0);
   difference(){
     RoundCornerDemo_plat(cnr);
     RoundCornerCut(cnr);