chiark
/
gitweb
/
~ianmdlvl
/
reprap-play.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
steamer-handle-clip: edits from v1
[reprap-play.git]
/
steamer-handle-clip.scad
1
// -*- C -*-
2
3
include <funcs.scad>
4
include <utils.scad>
5
6
width = 30;
7
cup = 2.5;
8
jaw = 32.36 - 2.00;
9
th = 3.0;
10
l = 15;
11
12
a = cup;
13
b = width/2;
14
alpha = atan2(a, b);
15
c = vectorlen2d([a, b]);
16
r = a / (1 - cos(2*alpha));
17
C = [0, a-r];
18
19
$fa = 1;
20
21
module HalfBaseline() {
22
intersection(){
23
translate(C + [0, jaw/2])
24
circle(r=r);
25
rectfromto([ -width/2, -1, ],
26
[ width/2, jaw ]);
27
}
28
}
29
30
module Baseline(){
31
HalfBaseline();
32
mirror([0,1]) HalfBaseline();
33
}
34
35
module Plan(){
36
difference(){
37
offset(delta=th) Baseline();
38
Baseline();
39
rectfromto([-width, -jaw/2],
40
[0, jaw/2]);
41
}
42
}
43
44
module Thing(){
45
linextr(0,l) Plan();
46
}
47
48
//HalfPlan();
49
//Plan();
50
Thing();