Fix cutting of objects rotated around X or Y

This commit is contained in:
Alessandro Ranellucci 2014-12-25 20:04:42 +01:00
parent 5d9ff677c0
commit 6ac82f1a20

View File

@ -407,7 +407,7 @@ sub SetCuttingPlane {
my @verts = ();
foreach my $volume (@{$self->volumes}) {
foreach my $volume (@{$self->volumes}) {
my $expolygons = $volume->mesh->slice([ $z + $volume->origin->z ])->[0];
my $expolygons = $volume->mesh->slice([ $z - $volume->origin->z ])->[0];
$expolygons = offset_ex([ map @$_, @$expolygons ], scale 0.1);
foreach my $line (map @{$_->lines}, map @$_, @$expolygons) {