gl_triangles take vertices as single param

Author: mohawk2

lib/PDL/Graphics/OpenGLQ.pd

@@ -123,26 +123,26 @@ pp_def(
 for(
 {Name => 'gl_triangles'},
 {Name => 'gl_triangles_wn',
- NormalArgs => 'norm(tri,trivert=3); ',
+ NormalArgs => 'norm(tri,trivert); ',
  (map +("NormalCode$_"=>NORMAL(\$_)), 0..2),
 }) {
 # This may be suboptimal but should still be fast enough..
 # We only do triangles with this.
 pp_def(
   $_->{Name},
   GenericTypes => $F,
-  Pars => 'coordsa(tri=3); coordsb(tri); coordsc(tri);'.
+  Pars => 'coords(tri=3,trivert=3); '.
            ($_->{NormalArgs}//'').
-          'colors(tri,trivert=3)',
+          'colors(tri,trivert)',
   Code => '
 glBegin(GL_TRIANGLES);
 broadcastloop %{'.
   ($_->{NormalCode0}//'').
-  COLOR(\0).VERTEX("a").
+  COLOR(\0).VERTEX(\0).
   ($_->{NormalCode1}//'').
-  COLOR(\1).VERTEX("b").
+  COLOR(\1).VERTEX(\1).
   ($_->{NormalCode2}//'').
-  COLOR(\2).VERTEX("c").'
+  COLOR(\2).VERTEX(\2).'
 %}
 glEnd();',
   @internal

lib/PDL/Graphics/TriD/GL.pm

@@ -207,7 +207,7 @@ sub PDL::Graphics::TriD::Lattice::gdraw {
     my $tmpn = $shading <= 2 ? undef : $options->{Smooth}
       ? $this->{VertexNormals}->dice_axis(1,$this->{Faceidx}->flat)
                     ->splitdim(1,$this->{Faceidx}->dim(0)) : $this->{FaceNormals}->dummy(1,3);
-    $f->((map $_->mv(1,-1)->dog, $faces), $shading > 2 ? $tmpn : (), $colours);
+    $f->($faces, $shading > 2 ? $tmpn : (), $colours);
     if ($shading > 2) { glDisable(GL_COLOR_MATERIAL); }
     $this->_lattice_lines($points) if $options->{Lines};
   }
@@ -276,7 +276,7 @@ sub PDL::Graphics::TriD::Trigrid::gdraw {
     ? $this->{VertexNormals}->dice_axis(1,$this->{Faceidx}->flat)
                   ->splitdim(1,$this->{Faceidx}->dim(0)) : $this->{FaceNormals}->dummy(1,3);
   if ($options->{Shading}) { glColorMaterial(GL_FRONT_AND_BACK,GL_DIFFUSE); glEnable(GL_COLOR_MATERIAL); }
-  $f->((map $_->mv(1,-1)->dog, $faces), $options->{Shading} ? $tmpn : (), $colours);
+  $f->($faces, $options->{Shading} ? $tmpn : (), $colours);
   if ($options->{Shading}) { glDisable(GL_COLOR_MATERIAL); }
   if ($options->{ShowNormals}) {
     die "No normals to show!" if !grep defined $this->{$_}, qw(FaceNormals VertexNormals);