ksafe-base: wip KsafeBase

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/ksafe-base.scad b/ksafe-base.scad
index 248119ca0199a0b012f435fb766df96d9666dfd4..2ef442b0c7c789d36b851555ead35e437c5073b8 100644 (file)
--- 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();