default axis just store name, not extra ref

Author: mohawk2

lib/PDL/Graphics/TriD/GL.pm

@@ -67,7 +67,7 @@ sub translate {
   PDL::Graphics::TriD::Graph;
 sub togl_setup {
   my ($this, $points_arg, @args) = @_;
-  $this->{Axis}{$_}->togl_setup($points_arg, @args) for grep $_ ne "Default", keys %{$this->{Axis}};
+  $_->togl_setup($points_arg, @args) for values %{$this->{Axis}};
   while (my ($series,$h) = each %{ $this->{Data} }) {
     for my $data (values %$h) {
       $data->togl_setup($this->get_points($series, $data), @args);
@@ -76,7 +76,7 @@ sub togl_setup {
 }
 sub togl {
   my ($this, @args) = @_;
-  $this->{Axis}{$_}->togl(@args) for grep $_ ne "Default", keys %{$this->{Axis}};
+  $_->togl(@args) for values %{$this->{Axis}};
   while (my ($series,$h) = each %{ $this->{Data} }) {
     for my $data (values %$h) {
       $data->togl($this->get_points($series, $data), @args);

lib/PDL/Graphics/TriD/Graph.pm

@@ -27,7 +27,7 @@ use warnings;
 use base qw/PDL::Graphics::TriD::Object/;
 use PDL::LiteF; # XXX F needed?
 
-use fields qw(Data DataBind UnBound DefaultAxes Axis );
+use fields qw(Data DataBind UnBound DefaultAxes DefaultAxisName Axis );
 
 sub add_dataseries {
   my ($this, $data, $name, $no_changed) = @_;
@@ -58,7 +58,7 @@ sub bind_data {
 
 sub bind_default {
   my ($this,$dser,$axes) = @_;
-  $this->bind_data($dser, $axes // $this->{DefaultAxes}, 'Default');
+  $this->bind_data($dser, $axes // $this->{DefaultAxes}, $this->{DefaultAxisName});
 }
 
 sub set_axis {
@@ -117,7 +117,7 @@ sub default_axes {
 
 sub set_default_axis {
 	my($this,$name,$axes) = @_;
-	$this->{Axis}{Default} = $this->{Axis}{$name};
+	$this->{DefaultAxisName} = $name;
 	$this->{DefaultAxes} = $axes;
 }
 

lib/PDL/Graphics/TriD/VRML.pm

@@ -273,7 +273,6 @@ sub PDL::Graphics::TriD::Graph::tovrml {
 	my($this) = @_;
 	my @children = ();
 	for (sort keys %{$this->{Axis}}) {
-		if ($_ eq "Default") {next}
 		push @children, @{$this->{Axis}{$_}->tovrml($this)};
 	}
 	for (sort keys %{$this->{Data}}) {