chiark / gitweb /
b2536af81f05fa49f37732f7a265229a73b7b18c
[reprap-play.git] / ksafe-base.scad
1 // -*- C -*-
2
3 // xxx
4 bolt_above = 4;
5 wall_thick = 4;
6 bolthole_height = 4;
7 bolthole_width = 10;
8 base_thick = 5;
9 lidinner_thick_allow = 20;
10 space = 25;
11 anchor_thick = 4;
12 anchor_rad = 4;
13 minbevel = space/2;
14
15 // calculated
16
17 uppA = [0,0];
18 uppB = uppA - [ wall_thick, 0 ];
19
20 uppL = [ uppB[0], -(lidinner_thick_allow + space + base_thick) ];
21 anchor_b = anchor_thick + anchor_rad;
22 uppM = uppL + anchor_b * [1,1];
23
24 bevel = max(minbevel, 2 * anchor_b * (1 + sqrt(0.5)));
25 uppE = uppL + bevel * [0,1];
26 uppF = uppL + bevel * [1,0];
27
28 uppJ = uppE + wall_thick * [ 1, tan(22.5) ];
29 uppI = uppF + base_thick + [ tan(22.5), 1 ];
30 uppH = upp
31
32 module UsualProfile(){
33