Documented the purpose of various perl modules.

This commit is contained in:
bubnikv 2016-09-14 11:22:41 +02:00
parent 55218c8c4d
commit 4c67230436
25 changed files with 78 additions and 2 deletions

View file

@ -1347,6 +1347,8 @@ sub _expolygons_to_verts {
gluDeleteTess($tess);
}
# Fill in the $qverts and $tverts with quads and triangles
# for the extrusion $entity.
sub _extrusionentity_to_verts {
my ($self, $entity, $top_z, $copy, $qverts, $tverts) = @_;
@ -1379,8 +1381,16 @@ sub _extrusionentity_to_verts {
}
}
# Calling the C++ implementation Slic3r::_3DScene::_extrusionentity_to_verts_do()
# This adds new vertices to the $qverts and $tverts.
Slic3r::GUI::_3DScene::_extrusionentity_to_verts_do($lines, $widths, $heights,
$closed, $top_z, $copy, $qverts, $tverts);
$closed,
# Top height of the extrusion.
$top_z,
# $copy is not used here.
$copy,
# GLVertexArray object: C++ class maintaining an std::vector<float> for coords and normals.
$qverts,
$tverts);
}
sub object_idx {