chiark / gitweb /
poster-tube-lid-parametric: fix diameter
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 20 Oct 2017 19:07:27 +0000 (20:07 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 20 Oct 2017 19:07:27 +0000 (20:07 +0100)
poster-tube-lid-parametric.pl

index 275643d..fc10667 100755 (executable)
@@ -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);