+ cube(offr*2 - 0.1, center=true);
+ translate([offr, offr, 0])
+ cylinder(center=true, h=20, r= offr);
+ }
+ }
+}
+
+module RoundCornerAdd(ci) {
+ this_cnr = ci[0];
+ right_cnr = ci[1];
+ bigr = round_cnr_rad - round_edge_rad;
+ INREFFRAME(this_cnr, right_cnr) INREFFRAME_EDGE {
+ intersection(){
+ cube(bigr*2 + 0.1, center=true);
+ translate([bigr, bigr, 0])
+ rotate_extrude(convexity=10, $fn=50)
+ translate([bigr, 0])
+ difference(){
+ circle(r= round_edge_rad, $fn=50);
+ mirror([1,1])
+ square([20,20]);
+ }
+ }
+ }
+}
+
+module InterlockLobePlan(negative) {
+ r = negative ? interlock_negative_rad : interlock_rad;
+ ymir = negative ? 0 : 1;
+
+ dx = sqrt(3) * r;
+ $fn= 80;
+ translate([thehd[0], 0]){
+ mirror([0,ymir]){
+ circle(r=r);
+ difference(){
+ translate([-dx, -0.1])
+ square([ dx*2, r/2 + 0.1 ]);
+ for (xi = [-1, 1]) {
+ translate([ xi*dx, r ])
+ circle(r=r);
+ }
+ }
+ }
+ }
+}
+
+module InterlockEdgePlan(negative, nlobes, length, dosquare=true) {
+ for (lobei = [ 0 : nlobes-1 ]) {
+ lobex = (length - thehd[0]*2) * (lobei ? lobei / (nlobes-1) : 0);
+ translate([lobex, 0, 0]) {
+ InterlockLobePlan(negative);