From 2f0fc9ac1f7545e25231db6dbb73e28ef10f2b06 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 13 Feb 2016 18:34:38 +0000
Subject: [PATCH] cable-splice-clamp: fix top use different r's as appropriate

---
 cable-splice-clamp.scad | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/cable-splice-clamp.scad b/cable-splice-clamp.scad
index bed9edb..4684d23 100644
--- 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);
-- 
2.30.2