sewing-table: Use RoundCornerAdd/Cut in Tile12 too

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 4ef697ebbd1639f8480c28741b6574ca922a8d42..2231e3fbb3320d5ff1aac22da196725bf2866ed9 100644 (file)
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -121,16 +121,6 @@ module RoundEdge(left_cnr, right_cnr) {
   }
 }
 
   }
 }
 

-module RoundLeftCorner(this_cnr, right_cnr) {
-  INREFFRAME(this_cnr, right_cnr) INREFFRAME_EDGE {
-    difference(){
-      sphere(r= round_edge_rad, $fn=60);
-      translate([0,0, -20])
-       cube([20,20,20]);
-    }
-  }
-}
-

 module RoundCornerCut(this_cnr, right_cnr) {
   offr= round_cnr_rad - round_edge_rad;
   INREFFRAME(this_cnr, right_cnr) INREFFRAME_EDGE {
 module RoundCornerCut(this_cnr, right_cnr) {
   offr= round_cnr_rad - round_edge_rad;
   INREFFRAME(this_cnr, right_cnr) INREFFRAME_EDGE {


@@ -316,11 +306,12 @@ module Tile12(){ ////toplevel
       TileBase(c[0], c[2]);
       RoundEdge(c[2], c[3]);
       RoundEdge(c[3], c[0]);
       TileBase(c[0], c[2]);
       RoundEdge(c[2], c[3]);
       RoundEdge(c[3], c[0]);

-      RoundLeftCorner(c[2], c[3]);

       Posts(posts);
     }
     InterlockEdge(c[0], c[1], 1);
       Posts(posts);
     }
     InterlockEdge(c[0], c[1], 1);

+    RoundCornerCut(c[2], c[3]);

   }
   }

+  RoundCornerAdd(c[2], c[3]);

 }
 
 module Demo(){ ////toplevel
 }
 
 module Demo(){ ////toplevel