include <funcs.scad>
include <utils.scad>
-width = 20;
+width = 30 - 2;
cup = 2.5;
-jaw = 32.36 - 2.00;
+jaw = 32.36 - 2.00 - 2.00 - 3.00;
th = 3.0;
l = 15;
r = a / (1 - cos(2*alpha));
C = [0, a-r];
-module Baseline() {
+$fa = 1;
+
+module HalfBaseline() {
intersection(){
- hull(){
- translate(C)
- circle(r=r);
- translate([0, -jaw])
- square(center=true, [width, 10]);
- }
- rectfromto([ -width/2, -jaw ],
- [ width/2, 20 ]);
+ translate(C + [0, jaw/2])
+ circle(r=r);
+ rectfromto([ -width/2, -1, ],
+ [ width/2, jaw ]);
}
}
+module Baseline(){
+ HalfBaseline();
+ mirror([0,1]) HalfBaseline();
+}
+
module Plan(){
difference(){
offset(delta=th) Baseline();
Baseline();
- rectfromto([-width, -jaw],
- [0, 0]);
+ rectfromto([-width, -jaw/2],
+ [0, jaw/2]);
}
}
linextr(0,l) Plan();
}
+//HalfPlan();
+//Plan();
Thing();