use GL_LINE_LOOP for Trigrid Lines

Author: mohawk2

lib/PDL/Graphics/TriD/GL.pm

@@ -16,7 +16,7 @@ use OpenGL qw/
   GL_FLAT
   GL_LIGHTING_BIT GL_POSITION GL_LIGHTING GL_LIGHT0 GL_LIGHT_MODEL_TWO_SIDE
   GL_COMPILE GL_ENABLE_BIT GL_DEPTH_TEST GL_TRUE
-  GL_LINE_STRIP GL_TRIANGLES GL_LINES GL_POINTS
+  GL_LINE_STRIP GL_TRIANGLES GL_LINES GL_POINTS GL_LINE_LOOP
   GL_COLOR_MATERIAL GL_QUADS GL_MODELVIEW GL_PROJECTION
   GL_RGB GL_FLOAT GL_UNSIGNED_INT
   GL_TEXTURE_2D GL_TEXTURE_MIN_FILTER GL_TEXTURE_MAG_FILTER
@@ -146,6 +146,7 @@ sub PDL::Graphics::TriD::Quaternion::togl {
 
 my %mode2enum = (
   linestrip => GL_LINE_STRIP,
+  lineloop => GL_LINE_LOOP,
 );
 
 sub PDL::Graphics::TriD::GObject::togl {

lib/PDL/Graphics/TriD/Objects.pm

@@ -150,10 +150,10 @@ sub new {
   if ($options->{Lines}) {
     $points = $this->normalise_as($type->r_type,$points);
     my $f = $faceidx->dim(1);
-    my $counts = (PDL->ones(PDL::long, $f) * 4)->flat;
-    my $starts = (PDL->sequence(PDL::ulong, $f) * 4)->flat;
-    my $indices = $faceidx->append($faceidx->slice(0))->flat;
-    $this->add_object(PDL::Graphics::TriD::DrawMulti->new($points, PDL::float(0,0,0)->dummy(1,$points->dim(1)), 'linestrip', $counts, $starts, $indices));
+    my $counts = (PDL->ones(PDL::long, $f) * 3)->flat;
+    my $starts = (PDL->sequence(PDL::ulong, $f) * 3)->flat;
+    my $indices = $faceidx->flat;
+    $this->add_object(PDL::Graphics::TriD::DrawMulti->new($points, PDL::float(0,0,0)->dummy(1,$points->dim(1)), 'lineloop', $counts, $starts, $indices));
   }
   $this;
 }