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);