From 3581deec0a4c569e052190dcbadc95297b0130fe Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 30 Oct 2018 18:35:11 +0000
Subject: [PATCH] ksafe-base: wip KsafeBase

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 ksafe-base.scad | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/ksafe-base.scad b/ksafe-base.scad
index 248119c..2ef442b 100644
--- a/ksafe-base.scad
+++ b/ksafe-base.scad
@@ -24,6 +24,8 @@ bevel = 5;
 
 // ----- calculated -----
 
+hsz = main_sz/2;
+
 gppA = [0,0];
 gppB = gppA - [ wall_thick, 0 ];
 
@@ -137,6 +139,20 @@ module WebProfile(){
   }
 }
 
+module KsafeBase(){
+  for (xm=[0,1]) for (ym=[0,1]) {
+    mirror([xm,0]) mirror([0,ym])
+    translate((hsz - cnr_rad) * [1,1])
+    intersection(){
+      rotate_extrude(convexity=10)
+	translate([-cnr_rad,0])
+	UsualProfile();
+      translate([0,0,-250])
+	cube([50,50,500]);
+    }
+  }
+}
+
 module DemoProfiles(){
   translate([0,0,-2]) color("yellow") AnchorWallProfile();
   color("red") AnchorProfile();
@@ -145,4 +161,5 @@ module DemoProfiles(){
   translate([0,0,-4]) color("pink") WebProfile();
 }
 
-DemoProfiles();
+//DemoProfiles();
+KsafeBase();
-- 
2.30.2