sewing-table: RoundCorner rework: switch to new model

[reprap-play.git] / sewing-table.scad.m4

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 57f9f3d978d6d3aba91548d8dfd9957d9c5666ea..76fda5d8ba6a00ca3ebe1c7b9a661e925ff6c091 100644 (file)
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -255,25 +255,29 @@ m4_define(`ROUNDCORNER_VARS',`
 module RoundCorner_selector(ci, adj) {
   ROUNDCORNER_VARS;
   echo("RCS",l_uvec,ctr);
-  union(){
+  %union(){
     INREFFRAME(this_cnr, right_cnr) {
       cube(bigr*2 + adj, center=true);
     }
   }
-  %translate(concat(ctr,[0])) circle(1);
-  if(0){
-  union(){
-    INREFFRAME(this_cnr, right_cnr) {
-//      %translate([ -bigr,-bigr,0 ])
-//     cube([bigr*2 + adj, bigr*3, bigr*2]);
+  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(this_cnr, left_cnr) {
-      %translate([ -bigr,-bigr,0 ])
-      cube(bigr*2 + adj);
+    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]);
+       }
+      }
     }
-  }}
+  }
 }
 
 module RoundCornerCut(ci) {