Points to use glDrawArrays

Author: mohawk2

lib/PDL/Graphics/OpenGLQ.pd

@@ -112,7 +112,7 @@ sub make_func {
   }
 }
 
-make_func($_) for qw(gl_line_strip gl_points);
+make_func($_) for qw(gl_line_strip);
 
 pp_def('gl_line_strip_multi',
   GenericTypes => $F,

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_LINE_STRIP GL_TRIANGLES GL_LINES GL_POINTS
   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
@@ -168,7 +168,13 @@ sub PDL::Graphics::TriD::GObject::togl {
 
 sub PDL::Graphics::TriD::Points::gdraw {
   my($this,$points) = @_;
-  PDL::gl_points_col($points,$this->{Colors});
+  glEnableClientState(GL_VERTEX_ARRAY);
+  glVertexPointer_c(3, GL_FLOAT, 0, $points->make_physical->address_data);
+  glEnableClientState(GL_COLOR_ARRAY);
+  glColorPointer_c(3, GL_FLOAT, 0, $this->{Colors}->make_physical->address_data);
+  glDrawArrays(GL_POINTS, 0, $points->nelem / $points->dim(0));
+  glDisableClientState(GL_VERTEX_ARRAY);
+  glDisableClientState(GL_COLOR_ARRAY);
 }
 
 sub PDL::Graphics::TriD::Spheres::gdraw {