-opening_height = 7.84 - 0.3 + 0.60;
-opening_depth = 6.0; // 7.88;
-openingcnr_dia = 2.75;
-opening_topprotr = 1.54;
-
-gap = 0.25;
-
-retain_rad = 1.65;
-retain_protr = 0.35;
-retain_hgap_adjust = 1.5;
-
-retain_stalk_len = 8.0;
-retain_stalk_h = 1.5;
-retain_bend_gap = 2.0;
-retain_empir_angle = -25;
-
-hgap_empir_adjust = -0.5 -2.50;
-
-topprotr_rad = 0.35;
-
-bot_overlap = 5;
-bot_w = 3;
-
-handle_w = 8;
-handle_rh = 3;
-handle_rcut = 3;
-
-cutout_gap = 1.5;
-
-total_len = 35;
-retaining_len = 10;
-overret_gaplen = 5;
-
-overret_hch = 5;
-
-// 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];
-
-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);