sub TAU () { pi*2; }
-my $thick = 4;
+my $thick = 2.5;
my $small_dia = 20;
my $large_dia = 30;
my $jcurverad = 5;
my $tall = 50;
-my $lin_len = 10;
+my $lin_len = 5;
my $lin2_len = 9;
-my $sine_len = 8;
+my $sine_len = 6;
my $sine_height = 6;
my $ballend_xr = $thick/2;
print "],faces=[\n" or die $!;
print pv($_),",\n" or die $! foreach @triangles;
print "],convexity=10); }\n" or die $!;
+ print <<END or die $!;
+implheadcup_large_dia = $large_dia;
+implheadcup_thick = $thick;
+END
}
make_sheet();