From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 31 Oct 2018 00:29:04 +0000 (+0000)
Subject: ksafe-base: side walls
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=b48f076777d19ce440a9c31f5f960364a03fc50f

ksafe-base: side walls

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

diff --git a/ksafe-base.scad b/ksafe-base.scad
index ec29895..a778969 100644
--- a/ksafe-base.scad
+++ b/ksafe-base.scad
@@ -15,7 +15,7 @@ web_height = 20; // excluding wall and base thick
 bolthole_rhs = 20;
 bolthole_lhs = 20;
 boltreinf_thick = 6;
-anchor_wall_space = 45;
+anchor_wall_space = 25;
 base_thick = 4;
 space = 25;
 anchor_thick = 4;
@@ -31,6 +31,18 @@ gppB = gppA - [ wall_thick, 0 ];
 
 gppL = [ gppB[0], -(lidinner_thick_allow + space + base_thick) ];
 
+yw1 = -web_thick/2;
+yw2 = yw1 - bolthole_rhs;
+yw3 = yw2 - anchor_thick;
+yw4 = yw3 - anchor_wall_space;
+yw5 = yw4 - wall_thick;
+yw6 = -(hsz - cnr_rad + 0.1);
+
+yw10 = web_thick/2;
+yw11 = yw2 + anchor_wall_space;
+yw12 = yw11 + wall_thick;
+yw13 = -yw6;
+
 // anchor
 
 anchor_b = anchor_thick + anchor_rad;
@@ -139,9 +151,21 @@ module WebProfile(){
   }
 }
 
+module SWalls(ymin, ymax, t_bevel) {
+  upp_app_Vars(t_bevel) {
+    translate([0,ymin,0])
+//      rotate([90,0,0])
+mirror([0,1,0])
+ rotate([90,0,0])
+      linear_extrude(height= ymax-ymin, convexity=10)
+      children();
+  }
+}
+
 module KsafeBase(){
+  /// corners
   for (xm=[0,1]) for (ym=[0,1]) {
-    mirror([xm,0]) mirror([0,ym])
+    mirror([xm,0,0]) mirror([0,ym,0])
     translate((hsz - cnr_rad) * [1,1])
     intersection(){
       rotate_extrude(convexity=10)
@@ -151,6 +175,20 @@ module KsafeBase(){
 	cube([50,50,500]);
     }
   }
+
+  // side walls
+  for (xm=[0,1]) {
+    mirror([xm,0,0]){
+      translate([-hsz, 0,0]){
+	SWalls(yw6 , yw4 , bevel  ) UsualProfile();
+	SWalls(yw5 , yw4 , a_bevel) AnchorWallProfile();
+	SWalls(yw5 , yw12, a_bevel) NearAnchorProfile();
+	SWalls(yw3 , yw2 , a_bevel) AnchorProfile();
+	SWalls(yw11, yw12, a_bevel) AnchorWallProfile();
+	SWalls(yw11, yw13, bevel  ) UsualProfile();
+      }
+    }
+  }
 }
 
 module DemoProfiles(){