tppP = [ tppS[0] - tooth_th, tppC[1] ];
tppQ = tppP + tooth_height * [0,-1] + tooth_inward * [1,0];
tppR = [ tppS[0] + tooth_inward, tppQ[1] ];
+tppM = (tppQ + tppR) * 0.5 + tooth_th * 0.5 * [0,1];
module RightSideMainProfile() {
rectfromto(spp7, spp0);
}
module ToothProfile(){
- l = [ tppA, tppB, tppS, tppR, tppQ, tppP, tppC ];
- polygon(l);
+ polygon([tppA,
+ tppB,
+ tppS + [-0.1,0],
+ tppP,
+ tppC]);
+ hull(){
+ polygon([tppP,
+ tppM,
+ tppS]);
+ translate(tppM)
+ circle(r= tooth_th/2, $fa=3, $fs=0.1);
+ }
}
module Demo(){ ////toplevel
}
module Base(){ ////toplevel
- FaceCore(0,0, 0.3, 0) {
+ FaceCore(spp7[1],spp8[1], 0.3, 0) {
LeftSideMainProfile();
RightSideMainProfile();
}
}
module Top(){ ////toplevel
- FaceCore(0,0, -gap[0], gap[0] + 0.3) {
+ FaceCore(tppE[1],tppD[1], -gap[0], gap[0] + 0.3) {
LeftTopMainProfile();
RightTopMainProfile();
}