chiark / gitweb /
pattress-boxes-3-cover: LidSide, increase lid_fatbox_overlap
[reprap-play.git] / cliphook.scad
1 // -*- C -*-
2
3 function ClipHook_r2(w,g,l,ye,k) = w/2 + g + w/2;
4 function ClipHook_r3(w,g,l,ye,k) = k * (ClipHook_r2(w,g,l,ye,k) + w + g);
5 function ClipHook_yd(w,g,l,ye,k) = g/2 + w + g + w/2 - ClipHook_r3(w,g,l,ye,k);
6 function ClipHook_xe(w,g,l,ye,k) =
7         l*1.5 + w +
8         sqrt(pow( ClipHook_r3(w,g,l,ye,k),      2) -
9              pow( ClipHook_yd(w,g,l,ye,k) - ye, 2));
10
11 module FlatArc(cx,cy,r1,r2,a1,a2=361,$fn=$fn) {
12   astep = (a2-a1)/6;
13   size = 5*(r2/2);
14   translate([cx,cy,0]) {
15     intersection() {
16       difference() {
17         circle(r=r2);
18         translate([0,0,-1])
19           circle(r=r1);
20       }
21       scale(size) {
22         for (ai=[0:4]) {
23           //echo(" jarc ", a1,a2, astep, ai, a1 + astep*ai );
24           rotate(a1 + astep*ai) {
25             polygon([ [0,0], [1,0],
26                       [cos(astep*2),sin(astep*2)] ]);
27           }
28         }
29       }
30     }
31   }
32 }
33
34 module ClipHook_2D(w,g,l,ye,k,h) {
35   r2 =  ClipHook_r2(w,g,l,ye,k);
36   r3 =  ClipHook_r3(w,g,l,ye,k);
37   yd =  ClipHook_yd(w,g,l,ye,k);
38   xe =  ClipHook_xe(w,g,l,ye,k);
39
40   xd = l*1.5 + w;
41   xc = -l/2;
42   yc = g/2 + w/2;
43
44   alpha = atan2((xe-xd)/r3, (ye-yd)/r3);
45
46   echo("ClipHook(w g l ye k h) ", w, g, l, ye, k, h);
47   echo("ClipHook r2 r3 xd yd xe =", r2,r3, xd,yd, xe);
48
49   $fn = 20;
50
51   module jcirc(x,y) { translate([x,y,0]) circle(r=w/2); }
52   module jbox(y,x1,x2) { translate([x1,y-w/2,0]) square(size=[x2-x1, w]); }
53   module jarc(cx,cy,r,a1=0,a2=360) { FlatArc(cx,cy,r-w/2,r+w/2,a1,a2); }
54
55   jcirc(-xc, -yc);
56   jbox(-yc, xc, -xc);
57   jarc(xc, yc, r2, 90, 270);
58   jbox(yc+r2, xc, xd);
59   jarc(xd, yd, r3, 90-alpha, 90);
60   jcirc(xe,ye);
61 }
62
63 module ClipHook(w=1.2, g=0.2, l=0.0, ye=0, k=2.0, h=3.5, demo=false,
64                 cupcaph=0, cupgapg=0) {
65   difference() {
66     linear_extrude(height=h)
67       ClipHook_2D(w,g,l,ye,k);
68     if (cupcapg != 0) {
69       translate([-g+0.01,-(w+g),h-cupcapg])
70       cube([w,(w+g),cupcaph+1]);
71     }
72   }
73   if (cupcaph != 0) {
74     translate([-l/2, g/2+w/2, h-0.01])
75       intersection() {
76         cylinder(r=ClipHook_r2(w,g,l,ye,k)+w*0.4, h=cupcaph, $fn=16);
77         translate([-50-g,-50,-1]) cube([50,100,h+2]);
78       }
79   }
80 }
81
82 if (ClipHook_demo) {
83   ClipHook(l=0, k=1, cupcaph=1, cupcapg=0.4);
84   %translate([l+w,0,0]) rotate(180) ClipHook(l=0, k=1, cupcaph=1, cupcapg=0.4);
85 }