Failing test for broken command line scaling. #1889

This commit is contained in:
Alessandro Ranellucci 2014-04-05 11:21:26 +02:00
parent fc4ac5ded4
commit e9e23119fc
2 changed files with 53 additions and 35 deletions

View file

@ -98,7 +98,6 @@ sub mesh {
$mesh->ReadFromPerl($vertices, $facets);
$mesh->repair;
$mesh->scale_xyz($params{scale_xyz}) if $params{scale_xyz};
$mesh->scale($params{scale}) if $params{scale};
$mesh->translate(@{$params{translate}}) if $params{translate};
return $mesh;
}
@ -113,6 +112,7 @@ sub model {
$object->add_instance(
offset => [0,0],
rotation => $params{rotation} // 0,
scaling_factor => $params{scale} // 1,
);
return $model;
}