ksafe-base: wip

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

diff --git a/ksafe-base.scad b/ksafe-base.scad
new file mode 100644 (file)
index 0000000..b2536af
--- /dev/null
+++ b/ksafe-base.scad
@@ -0,0 +1,33 @@
+// -*- C -*-
+
+// xxx
+bolt_above = 4;
+wall_thick = 4;
+bolthole_height = 4;
+bolthole_width = 10;
+base_thick = 5;
+lidinner_thick_allow = 20;
+space = 25;
+anchor_thick = 4;
+anchor_rad = 4;
+minbevel = space/2;
+
+// calculated
+
+uppA = [0,0];
+uppB = uppA - [ wall_thick, 0 ];
+
+uppL = [ uppB[0], -(lidinner_thick_allow + space + base_thick) ];
+anchor_b = anchor_thick + anchor_rad;
+uppM = uppL + anchor_b * [1,1];
+
+bevel = max(minbevel, 2 * anchor_b * (1 + sqrt(0.5)));
+uppE = uppL + bevel * [0,1];
+uppF = uppL + bevel * [1,0];
+
+uppJ = uppE + wall_thick * [ 1, tan(22.5) ];
+uppI = uppF + base_thick + [ tan(22.5), 1 ];
+uppH = upp
+
+module UsualProfile(){
+