gl_arrows stop emitting lines

Author: mohawk2

lib/PDL/Graphics/OpenGLQ.pd

@@ -184,14 +184,6 @@ broadcastloop %{
   PDL_3D_SETVECLEN(norm, w);
   PDL_3D_SETVECLEN(norm2, w);
   PDL_3D_SETVECLEN(tmp1, 1);
-  glBegin(GL_LINES);
-  glVertex3d( $coords(tri => 0, n => a) ,
-              $coords(tri => 1, n => a) ,
-              $coords(tri => 2, n => a) );
-  glVertex3d( $coords(tri => 0, n => b) ,
-              $coords(tri => 1, n => b) ,
-              $coords(tri => 2, n => b) );
-  glEnd();
   if(w!=0) {
   glBegin(GL_TRIANGLES);
   glVertex3d( $coords(tri => 0, n => b) ,

lib/PDL/Graphics/TriD/GL.pm

@@ -185,22 +185,28 @@ sub PDL::Graphics::TriD::Lattice::gdraw {
       glDisable(GL_LIGHTING);
       glColor3d(1,1,1);
       PDL::Graphics::OpenGLQ::gl_arrows($arrows, 0, 1, 0.5, 0.02);
+      PDL::gl_lines_col($arrows,[1,1,1]);
     }
     if (defined $this->{FaceNormals}) {
       my $facecentres = $faces->transpose->avgover;
       my $facearrows = $facecentres->append($facecentres + $this->{FaceNormals}*0.1)->splitdim(0,3);
       glDisable(GL_LIGHTING);
       glColor3d(0.5,0.5,0.5);
       PDL::Graphics::OpenGLQ::gl_arrows($facearrows, 0, 1, 0.5, 0.02);
+      PDL::gl_lines_col($facearrows,[0.5,0.5,0.5]);
     }
   }
 }
 
 sub PDL::Graphics::TriD::Arrows::gdraw {
   my($this,$points) = @_;
-  glColor3d(@{$this->{Options}{Color}});
-  PDL::Graphics::OpenGLQ::gl_arrows($points,@{$this->{Options}}{qw(From To
+  my $opts = $this->{Options};
+  glColor3d(@{$opts->{Color}});
+  my ($from, $to) = @$opts{qw(From To)};
+  PDL::Graphics::OpenGLQ::gl_arrows($points,$from,$to,@$opts{qw(
           ArrowLen ArrowWidth)});
+  my $lines = $points->dice_axis(1,$from)->append($points->dice_axis(1,$to))->splitdim(0,3);
+  PDL::gl_lines_col($lines,$opts->{Color});
 }
 
 sub PDL::Graphics::TriD::LineStrip::gdraw {
@@ -258,13 +264,15 @@ sub PDL::Graphics::TriD::Trigrid::gdraw {
       glDisable(GL_LIGHTING);
       glColor3d(1,1,1);
       PDL::Graphics::OpenGLQ::gl_arrows($arrows, 0, 1, 0.5, 0.02);
+      PDL::gl_lines_col($arrows,[1,1,1]);
     }
     if (defined $this->{FaceNormals}) {
       my $facecentres = $faces->transpose->avgover;
       my $facearrows = $facecentres->append($facecentres + $this->{FaceNormals}*0.1)->splitdim(0,3);
       glDisable(GL_LIGHTING);
       glColor3d(0.5,0.5,0.5);
       PDL::Graphics::OpenGLQ::gl_arrows($facearrows, 0, 1, 0.5, 0.02);
+      PDL::gl_lines_col($facearrows,[0.5,0.5,0.5]);
     }
   }
   if ($options->{Lines}) {