+// translate([ 50, 0, 0 ])
+// cube([ 100,
+// strap_hoop_inside + strap_hoop_thick*2 + 1,
+// 100 ],
+// center=true);
+ }
+ }
+}
+
+module ImplHeadCupTest(){ ////toplevel
+ for (r=[0,180])
+ rotate([0,0,r])
+ translate([-17,0,0])
+ ImplHeadCup();
+}
+
+module SomeStrap(width){
+ // children(0) is to add, (1) subtract
+ difference(){
+ union(){
+ cylinder(r=sm_outer_rad, h=width);
+ StrapMountProtrusion(smc_cnr_c_x + sm_closure_cnr,
+ smc_max_y,
+ sm_closure_cnr,
+ width);
+ children(0);
+ }
+ translate([0,0,-1])
+ cylinder(r=sm_inner_rad, h=width+2);
+ translate(smc_pos)
+ StrapMountBolt(10, width);
+ translate(smc_pos)
+ cube([ sm_bolt_tighten_allow, 40,100 ], center=true);
+ children(1);
+ }
+}
+
+module StrapMountBolt(l_delta, strap_width){ ///toplevel
+ // positioned relative to smc_pos
+ translate([(smc_bolt_nut_eff_thick - sm_bolt_head_thick)/2,
+ smc_bolt_y,
+ strap_width/2]){
+ translate([ -sm_bolt_shaft/2-1, 0,0 ]){
+ rotate([0,90,0]) cylinder(r= sm_bolt_dia/2, h= sm_bolt_shaft+2);
+ }
+ translate([ -sm_bolt_shaft/2, 0,0 ])
+ rotate([0,-90,0])
+ cylinder($fn=6, r=smc_bolt_nut_dia/2,
+ h=smc_bolt_nut_eff_thick + l_delta);
+ translate([ sm_bolt_shaft/2, 0,0 ])
+ rotate([0,90,0])
+ cylinder(r=sm_bolt_head_dia/2, h=sm_bolt_head_thick + l_delta);
+ }
+}
+
+module StrapMountProtrusion(half_x, max_y, cnr, width){
+ translate(smc_pos){
+ linear_extrude(height=width, convexity=10){
+ hull(){
+ for (m = [0,1]) mirror([m,0,0]) {
+ translate([-(half_x - cnr), max_y - cnr])
+ circle(r=cnr);
+ translate([-half_x, -sm_inner_rad])
+ square([1,1]);
+ }
+ }
+ }
+ }
+}
+
+module StrapMount(){ ////toplevel
+ SomeStrap(sm_main_width){
+ rotate([0,0,180]){
+ StrapMountProtrusion(strap_hoop_inside/2 + strap_hoop_thick,
+ strap_hoop_thick,
+ sm_closure_cnr);
+ translate(smc_pos +
+ [0,0, sm_main_width] +
+ strap_hoop_thick * [ 0, 0.5, -1.0 ])
+ StrapHoop();
+ }
+ union(){ };
+ }
+}
+
+module CatchAssemblyCoreProfile(){
+ difference(){
+ union(){
+ hull(){
+ translate(cpp3) circle(r= catch_cr);
+ polygon([ cpp3,
+ cpp2r,
+ cpp5,
+ cpph,
+ cppd
+ ]);
+ }
+ polygon([cppD,
+ cppC,
+ cpp9,
+ cpp10,
+ cpp11,
+ cpp4,
+ cpp2r,
+ cpp2d,
+ cppA,
+ cppE
+ ]);
+ translate(cpp8) circle(r= catch_cr);
+ }
+ hull(){
+ translate(cpp4) circle(r= catch_cr);
+ translate(cpp5) circle(r= catch_cr);
+ translate(cpp7) circle(r= catch_cr);
+ polygon([cpp4,
+ cppg,
+ cpph,
+ cpp10,
+ cpp11,
+ ]);
+ }
+ translate(cpp2) circle(r= catch_cr);
+ }
+ // if cpp11 is above cpp10, the subtracted hull above
+ // can go down too far. Ensure we do not cut off below cppy6.
+ polygon([ cppE,
+ cppD,
+ cpp9,
+ [ cpp9[0], cppy6 ],
+ [ cpp7[0] - catch_cr, cppy6 ],
+ cpp2d
+ ]);
+}
+
+module CatchHeadProfile(){
+ intersection(){
+ translate(cppF){
+ difference(){
+ circle(r = dist2d(cppF, cppd));
+ //circle(r = dist2d(cppF, cppa));
+ }