Raise the miter limit to avoid squaring corners too easily. #801

This commit is contained in:
Alessandro Ranellucci 2012-11-20 17:43:20 +01:00
parent cd892fdce8
commit fc399d60e2

View File

@ -21,7 +21,7 @@ sub offset {
my ($polygons, $distance, $scale, $joinType, $miterLimit) = @_; my ($polygons, $distance, $scale, $joinType, $miterLimit) = @_;
$scale ||= 100000; $scale ||= 100000;
$joinType //= JT_MITER; $joinType //= JT_MITER;
$miterLimit //= 2; $miterLimit //= 10;
my $offsets = Math::Clipper::offset($polygons, $distance, $scale, $joinType, $miterLimit); my $offsets = Math::Clipper::offset($polygons, $distance, $scale, $joinType, $miterLimit);
return @$offsets; return @$offsets;