From f1865cfc236ad69366031eda26234341361ed3f8 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 20 Oct 2017 20:07:27 +0100
Subject: [PATCH] poster-tube-lid-parametric: fix diameter

---
 poster-tube-lid-parametric.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/poster-tube-lid-parametric.pl b/poster-tube-lid-parametric.pl
index 275643d..fc10667 100755
--- a/poster-tube-lid-parametric.pl
+++ b/poster-tube-lid-parametric.pl
@@ -91,8 +91,8 @@ sub point ($$$$) {
     my $j_plus_th = $jp =~ m/2$/ ? $thick : 0;
 
     my $i_thick = $thick * $i_thickscale;
-    my $j_p_x = $small_dia/2 + $thick;
-    my $j_rs_x = $large_dia/2 + $thick;
+    my $j_p_x = $small_dia/2 + $thick/2;
+    my $j_rs_x = $large_dia/2 + $thick/2;
     my $j_dqr_x = (1-cos($slope_angle)) * $jcurverad;
     my $j_q_x = $j_rs_x - $j_dqr_x;
     my $j_dpq = ($j_q_x - $j_p_x) / asin($slope_angle);
-- 
2.30.2