Fixed minor regression in cut dialog

This commit is contained in:
Alessandro Ranellucci 2014-07-23 13:06:22 +02:00
parent 71209711b3
commit f67b863e64

View File

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