// -*- C -*-
-opening_height = 7.84 - 0.3 + 0.60;
-opening_depth = 6.0; // 7.88;
-openingcnr_dia = 2.75;
-opening_topprotr = 1.54;
+opening_height = 7.84;
+opening_depth = 7.88;
+openingedge_dia = 1.34;
+opening_protrh = 1.8;
-gap = 0.25;
+pivot_x = 6;
+inside_len = 4;
-retain_rad = 1.65;
-retain_protr = 0.35;
-retain_hgap_adjust = 1.5;
+pivoting_gap = 1;
-retain_stalk_len = 8.0;
-retain_stalk_h = 1.5;
-retain_bend_gap = 2.0;
-retain_empir_angle = -25;
+outside_gap = 3;
+outside_len = 16;
+outend_height = 3;
-hgap_empir_adjust = -0.5 -2.50;
+ourcirc_r = 0.5 / 2;
-topprotr_rad = 0.35;
+opening_protr_slop = 0.1;
-bot_overlap = 5;
-bot_w = 3;
-
-handle_w = 10;
-handle_rh = 3;
-handle_rcut = 3;
-
-cutout_gap = 1.5;
-
-total_len = 40;
-basics_len = 8;
-
-overret_hch = 5;
+intooth_top_slop = 0.1;
+inside_h_xgap = 1;
// calculated
-ins_irad = openingcnr_dia/2 + gap;
-ins_orad = openingcnr_dia/2 + opening_height - gap;
-ins_th = ins_orad - ins_irad;
-
-handle_x0 = ins_irad + hgap_empir_adjust;
-handle_h = bot_overlap + ins_th;
-handle_y0 = -ins_orad-bot_overlap;
-handle_y1 = handle_y0 + handle_h;
-
-handle_x1 = handle_x0 + bot_w + handle_w;
-
-topprotr_y = -ins_irad + opening_topprotr;
-
-retain_mxy = [handle_x0 - retain_rad - retain_hgap_adjust,
- -ins_orad + retain_rad - retain_protr];
-
-retain_cutout_h = retain_rad * 2 + retain_bend_gap;
-
-overret_gaplen = retain_cutout_h / cos(retain_empir_angle);
-
-retaining_len = total_len - overret_gaplen - basics_len * 2;
-echo(retaining_len);
-
-module InsertSection(){
- hull(){
- translate([-ins_irad, -ins_irad])
- mirror([1, 0])
- square([opening_depth - ins_irad, 0.1]);
- translate([-ins_irad - topprotr_rad,
- topprotr_y - topprotr_rad])
- circle(r=topprotr_rad, $fn=10);
- }
- translate([0, -ins_orad]) square([ins_irad+1, ins_th]);
- intersection(){
- translate([0, -ins_irad])
- mirror([1,1])
- square([100, opening_depth]);
- difference(){
- circle(r= ins_orad);
- circle(r= ins_irad, $fn=20);
- }
- }
-}
-
-module HandleSection(){
- difference(){
- hull(){
- translate([handle_x0, handle_y0])
- square([bot_w, handle_h]);
- for (y= [handle_y1 - handle_rh/2,
- handle_y1 - ins_th + handle_rh/2]) {
- translate([handle_x1 - handle_rh/2, y])
- circle(r= handle_rh/2, $fn=20);
- }
- }
- hull(){
- for (x= [handle_x0 + bot_w + handle_rcut/2,
- handle_x1 - handle_rh/2 - handle_rcut/2]) {
- translate([x, handle_y1])
- circle(r = handle_rcut/2, $fn=20);
+inside_h = opening_height/2 - opening_protrh - inside_h_xgap/2;
+
+Q0 = [ openingedge_dia/2,
+ openingedge_dia/2 + opening_height/2 ];
+
+P0 = [ pivot_x, pivoting_gap ];
+P4 = Q0 + [ -(openingedge_dia/2 + opening_protr_slop + ourcirc_r), 0 ];
+P3 = [ P4[0], Q0[1] - openingedge_dia/2 + opening_protrh
+ - intooth_top_slop - ourcirc_r ];
+P2 = P4 + [ -(inside_len - ourcirc_r*2), 0 ];
+P1 = [ P2[0], P3[1] - (inside_h + ourcirc_r*2) ];
+P9 = [ outside_len - ourcirc_r, outside_gap/2 + ourcirc_r ];
+P8 = P9 + [ 0, outend_height - ourcirc_r*2 ];
+
+module ExtrusionSect(){
+ cr = openingedge_dia/2;
+ toph = opening_height/2 + opening_protrh;
+
+ for (my=[0,1]) {
+ mirror([0,my]) {
+ translate(Q0) {
+ hull(){
+ circle(r=cr, $fn=20);
+ translate([-cr,10]) square([cr*2, 1]);
+ }
}
}
}
- hull(){
- for (y= [handle_y1 - handle_rh/2,
- handle_y1 - 3*handle_rh/2])
- translate([handle_x1 - handle_rh/2, y])
- circle(r = handle_rh/2, $fn=20);
- }
- translate([ handle_x1 - handle_rh*2,
- handle_y1 - handle_rh/2 ])
- circle(r = handle_rh/2, $fn=20);
-}
-
-module RetainSection(){
- translate(retain_mxy) {
- rotate(retain_empir_angle) {
- circle(r=retain_rad, $fn=20);
- square([retain_stalk_len + 1, retain_stalk_h]);
+ translate([-opening_depth, -toph]) {
+ difference(){
+ translate([-5,-5])
+ square([opening_depth+6, toph*2+10]);
+ square([opening_depth+2, toph*2]);
}
}
}
-module RetainCutout(gapping=false){
- translate(retain_mxy) {
- rotate(retain_empir_angle) {
- translate([-50, -retain_rad]) {
- square([50 + retain_stalk_len,
- retain_cutout_h]);
- }
- }
- }
-}
-
-module GappingSection(){
- difference(){
- union(){
- InsertSection();
- HandleSection();
+module PsHull(ps) {
+ hull(){
+ for (p = ps) {
+ translate(p)
+ circle(r = ourcirc_r, $fn=10);
}
- RetainCutout(true);
}
}
-module WithRetainSection(){
+module LeverSect(){
+ PsHull([P2,P3,P4]);
+ //PsHull([P5,P6,P7]);
difference(){
- union(){
- InsertSection();
- HandleSection();
- }
- RetainCutout();
- }
- RetainSection();
-}
-
-module BasicSection(){
- InsertSection();
- HandleSection();
-}
-
-module Handle(){
- bs0 = retaining_len + overret_gaplen + basics_len;
- bs1 = bs0 + overret_hch;
- linear_extrude(height=total_len, convexity=100) GappingSection();
-
- translate([0,0, basics_len]) {
- intersection(){
- linear_extrude(height=retaining_len, convexity=100)
- WithRetainSection();
- translate([retain_mxy[0], retain_mxy[1], 0])
- rotate([0,0, retain_empir_angle])
- translate([retain_stalk_len, -30, 0])
- multmatrix([[1,0,-1,0],
- [0,1,0,0],
- [0,0,1,0],
- [0,0,0,1]])
- cube([50, 60, 50]);
- }
- }
-
- for (z= [0, bs1]) {
- translate([0,0, z])
- linear_extrude(height= basics_len)
- BasicSection();
- }
-
- translate([0,0, bs1+0.1]) mirror([0,0,1]) {
- intersection_for (sl=[0,1]) {
- multmatrix([[1,0,0,0],
- [0,1,sl,0],
- [0,0,1,0],
- [0,0,0,1]])
- linear_extrude(height= overret_gaplen + 10, convexity=100)
- BasicSection();
- }
+ PsHull([P0,P1,P2,//P5
+ ,P8,P9]);
}
}
module Demo(){
- color("red") translate([0,0,-3]) BasicSection();
- color("blue") translate([0,0,3]) WithRetainSection();
-}
-
-module Test(){
- linear_extrude(height=2) {
- WithRetainSection();
- translate([0, -handle_y0 + topprotr_y + 10])
- BasicSection();
- }
+ color("white") ExtrusionSect();
+ LeverSect();
}
-//Demo();
-//HandleSection();
-//InsertSection();
-//WithRetainSection();
-//BasicSection();
-//GappingSection();
-//Test();
-//Demo();
-Handle();
+Demo();