cable-splice-clamp: fix top use different r's as appropriate

diff --git a/cable-splice-clamp.scad b/cable-splice-clamp.scad
index bed9edb9070c71324d0d0640bbbcf0b1f43e49fe..4684d237fd8bf1096d2dbe5433db96a4a4901adf 100644 (file)
--- a/cable-splice-clamp.scad
+++ b/cable-splice-clamp.scad
@@ -54,11 +54,9 @@ y_B_r = -dy_OB_r;
 x_T_r =         sina;
 y_T_r = -tana * sina;
 
-top_r = wall_r - (d_OC_r - 1);
-
 wall_x_r = wall_r / tan(90-alpha);
 
-top = top_r * r1;
+top = wall_r * r1 - (d_OC_r - 1) * r0;
 basew = base_r * rnom;
 
 echo("dias", r0*2, r1*2, "ratio",r1/r0);