chiark / gitweb /
flyscreen-handle: wip, Q0 etc
[reprap-play.git] / flyscreen-handle.scad
1 // -*- C -*-
2
3 opening_height = 7.84;
4 opening_depth = 7.88;
5 openingcnr_dia = 1.34;
6 opening_protrh = 1.8;
7
8 pivot_x = 6;
9
10 pivoting_gap = 1;
11
12 // calculated
13
14 Q0 = [ openingcnr_dia/2,
15        openingcnr_dia/2 + opening_height/2 ];
16
17 P0 = [ pivot_x, pivoting_gap ];
18 //P4 = [ 
19
20 module ExtrusionSect(){
21   cr = openingcnr_dia/2;
22   toph = opening_height/2 + opening_protrh;
23
24   for (my=[0,1]) {
25     mirror([0,my]) {
26       translate(Q0) {
27         hull(){
28           circle(r=cr, $fn=20);
29           translate([-cr,10]) square([cr*2, 1]);
30         }
31       }
32     }
33   }
34   translate([-opening_depth, -toph]) {
35     difference(){
36       translate([-5,-5])
37         square([opening_depth+6, toph*2+10]);
38       square([opening_depth+2, toph*2]);
39     }
40   }
41 }
42
43 module LeverSect(){
44   
45 }
46
47 ExtrusionSect();