my $jcurverad = 5;
my $tall = 50;
-my $lin_len = 5;
+my $lin_len = 4;
my $sine_size = 10;
-my $sine_angle = TAU/8;
+my $sine_angle = 1.2 * TAU/8;
my $ballend_xr = $thick/2;
+my $skew_slope = 0.7;
+
my @i_sections = qw(ball0 -6
sine0 -10
-
die "$jp ?";
}
+ if ($i_offset->[0] < 0) {
+ my $base = $large_dia/2 + 3.0*($large_dia - $small_dia)/2;
+ $i_offset->[0] *=
+ ($base - $j_x) /
+ ($base - $small_dia/2);
+ }
+
# print STDERR "@_ $j_x $j_y $i_offset $i_outward\n";
return
$i_offset +