cable-splice-clamp: introduce top and basew, and size top thickness by r1

diff --git a/cable-splice-clamp.scad b/cable-splice-clamp.scad
index dd376d6571b5cfec90025f72301fc7d079f3e5ae..55f219a0bf65a293ec5457b627eb1b6b0572f3f4 100644 (file)
--- a/cable-splice-clamp.scad
+++ b/cable-splice-clamp.scad
@@ -58,6 +58,9 @@ top_r = wall_r - (d_OC_r - 1);
 
 wall_x_r = wall_r / tan(90-alpha);
 
+top = top_r * r1;
+basew = base_r * rnom;
+
 echo(r0,r1, "ratio",r1/r0);
 
 module CrossSection(plus=0) {
@@ -66,8 +69,8 @@ module CrossSection(plus=0) {
             [x_T_r * r0,                          y_T_r * r0],
             [x_B_r * r1,                          y_B_r * r1],
             [x_B_r * r1 + wall_x_r * rnom + plus, y_B_r * r1],
-            [base_r * rnom                + plus, top_r * rnom],
-            [-0.1,                                top_r * rnom]]);
+            [basew                        + plus, top],
+            [-0.1,                                top]]);
     translate([0, -d_OC_r * r0])
       circle(r = r0);
   }