From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 13 Feb 2016 17:27:19 +0000 (+0000)
Subject: cable-splice-clamp: introduce top and basew, and size top thickness by r1
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=435c550a5e816e564f75790dc290cacf37d6d740;p=reprap-play.git

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 dd376d6..55f219a 100644
--- 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);
   }