move all gdraw to ::GL

Author: mohawk2

lib/PDL/Graphics/TriD/GL.pm

@@ -114,6 +114,14 @@ sub PDL::Graphics::TriD::EuclidAxes::gdraw {
   PDL::gl_lines_col($points, [1,1,1]);
 }
 
+sub PDL::Graphics::TriD::Labels::gdraw {
+  my ($this,$points) = @_;
+  glDisable(GL_LIGHTING);
+  glColor3d(1,1,1);
+  PDL::Graphics::OpenGLQ::gl_texts($points,@{$this->{Options}}{qw(Strings)});
+  glEnable(GL_LIGHTING);
+}
+
 use POSIX qw//;
 sub PDL::Graphics::TriD::Quaternion::togl {
   my($this) = @_;
@@ -204,6 +212,15 @@ sub PDL::Graphics::TriD::Lattice::gdraw {
   }
 }
 
+sub PDL::Graphics::TriD::MathGraph::gdraw {
+  my($this,$points) = @_;
+  glDisable(GL_LIGHTING);
+  glColor3d(@{$this->{Options}{Color}});
+  PDL::Graphics::OpenGLQ::gl_arrows($points,@{$this->{Options}}{qw(From To
+          ArrowLen ArrowWidth)});
+  glEnable(GL_LIGHTING);
+}
+
 sub PDL::Graphics::TriD::LineStrip::gdraw {
   my($this,$points) = @_;
   PDL::gl_line_strip_col($points,$this->{Colors});

lib/PDL/Graphics/TriD/Labels.pm

@@ -35,14 +35,6 @@ use PDL::Graphics::OpenGLQ;
 use PDL::Graphics::TriD::Objects;
 use base qw/PDL::Graphics::TriD::GObject/;
 
-sub gdraw {
-	my ($this,$points) = @_;
-	glDisable(&GL_LIGHTING);
-	glColor3d(1,1,1);
-	PDL::Graphics::OpenGLQ::gl_texts($points,@{$this->{Options}}{qw(Strings)});
-	glEnable(&GL_LIGHTING);
-}
-
 sub get_valid_options {
   return {UseDefcols => 0, Strings => []}
 }

lib/PDL/Graphics/TriD/MathGraph.pm

@@ -35,15 +35,6 @@ use PDL::Graphics::TriD::Objects;
 use base qw/PDL::Graphics::TriD::GObject/;
 use OpenGL qw(:all);
 
-sub gdraw {
-	my($this,$points) = @_;
-	glDisable(&GL_LIGHTING);
-	glColor3d(@{$this->{Options}{Color}});
-	PDL::Graphics::OpenGLQ::gl_arrows($points,@{$this->{Options}}{qw(From To
-		ArrowLen ArrowWidth)});
-	glEnable(&GL_LIGHTING);
-}
-
 sub get_valid_options {
 	return {UseDefcols => 0,From => [],To => [],Color => [1,1,1],
 		ArrowWidth => 0.02, ArrowLen => 0.1}