drop unused graph arg from to*_graph

Author: mohawk2

lib/PDL/Graphics/TriD/GL.pm

@@ -55,7 +55,7 @@ sub PDL::Graphics::TriD::Object::togl { $_->togl for @{$_[0]->{Objects}} }
 sub PDL::Graphics::TriD::Graph::togl {
 	my($this) = @_;
 	$this->{Axis}{$_}->togl($this) for grep $_ ne "Default", keys %{$this->{Axis}};
-	$this->{Data}{$_}->togl_graph($this,$this->get_points($_)) for keys %{$this->{Data}};
+	$this->{Data}{$_}->togl_graph($this->get_points($_)) for keys %{$this->{Data}};
 }
 
 use PDL;
@@ -143,10 +143,10 @@ sub PDL::Graphics::TriD::GObject::togl {
   $_[0]->gdraw($_[0]->{Points});
 }
 
-# (this,graphs,points)
+# (this,points)
 sub PDL::Graphics::TriD::GObject::togl_graph {
   print "togl_graph $_[0]\n" if $PDL::Graphics::TriD::verbose;
-  $_[0]->gdraw($_[2]);
+  $_[0]->gdraw($_[1]);
 }
 
 sub PDL::Graphics::TriD::Points::gdraw {

lib/PDL/Graphics/TriD/VRML.pm

@@ -159,7 +159,7 @@ sub PDL::Graphics::TriD::GObject::tovrml {
 }
 
 sub PDL::Graphics::TriD::GObject::tovrml_graph {
-	return $_[0]->vdraw($_[2]);
+	return $_[0]->vdraw($_[1]);
 }
 
 sub PDL::Graphics::TriD::Points::vdraw {
@@ -287,7 +287,7 @@ sub PDL::Graphics::TriD::Graph::tovrml {
 	}
 	for(sort keys %{$this->{Data}}) {
 	    push @children,
-	     $this->{Data}{$_}->tovrml_graph($this,$this->get_points($_));
+	     $this->{Data}{$_}->tovrml_graph($this->get_points($_));
 	}
 	return vrn('Group', 'children' => [@children]);
 }