From a74531273748849560c97d4d3ac1690fa0e07525 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 3 Jun 2017 19:52:36 +0100
Subject: [PATCH] sewing-table: RoundCorner: Demo

---
 sewing-table.scad.m4 | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index f89859c..27fb69c 100644
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -778,6 +778,22 @@ module FitTest_FrontCurve(){ ////toplevel
   }
 }
 
+module RoundCornerDemo_plat(cnr){
+  mirror([0,0,1]) linear_extrude(height=1) polygon(cnr);
+}
+
+module RoundCornerDemo(){ ////toplevel
+  cnr = [ [0,0], [15,0], [-10,10] ];
+  translate([0,25,0]) RoundCornerDemo_plat(cnr);
+  translate([25,0,0]) RoundCornerAdd(cnr);
+  translate([-25,0,0]) RoundCornerCut(cnr);
+  difference(){
+    RoundCornerDemo_plat(cnr);
+    RoundCornerCut(cnr);
+  }
+  RoundCornerAdd(cnr);
+}
+
 module Demo(){ ////toplevel
   translate(demo_slop*[-2,1]) color("blue") Tile12();
   translate(demo_slop*[-2,0]) color("red")  Tile02();
-- 
2.30.2