GD::Graph::lines3d undef values dont work

ranqor has asked for the wisdom of the Perl Monks concerning the following question:

I cant seem to get GD::Graph::lines3d to hide undef value from it's graph, however GD::Graph::lines does work. Does anyone have any suggestions as to what I may be doing wrong?

GD::Graph::lines3d

use CGI;
use GD::Graph::lines3d;
my $cgi = new CGI;
  my @data = ( 
            ["Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "
+Sep", "Oct", "Nov", "Dec"],
            [undef,undef,undef,undef,undef,undef,undef,undef,undef,und
+ef,undef,undef],
            [undef, undef, undef, undef, 13,  0,  undef,  200,  200,  
+180,  160,  260],
            [undef, undef, 22, 15, 7,  -10,  undef,  undef,  400,  600
+,  100,  -260]
        );
  my $graph = new GD::Graph::lines3d( 700, 400 );
  $graph->set(skip_undef => 1);
  my $gd = $graph->plot( \@data );
  
  print $cgi->header(-type => "image/png", -expires => "-1d");
  print $gd->png;
[download]

GD::Graph::lines

use CGI;
use GD::Graph::lines;
my $cgi = new CGI;
  my @data = ( 
            ["Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "
+Sep", "Oct", "Nov", "Dec"],
            [undef,undef,undef,undef,undef,undef,undef,undef,undef,und
+ef,undef,undef],
            [undef, undef, undef, undef, 13,  0,  undef,  200,  200,  
+180,  160,  260],
            [undef, undef, 22, 15, 7,  -10,  undef,  undef,  400,  600
+,  100,  -260]
        );
  my $graph = new GD::Graph::lines( 700, 400 );
  $graph->set(skip_undef => 1);
  my $gd = $graph->plot( \@data );
  
  print $cgi->header(-type => "image/png", -expires => "-1d");
  print $gd->png;
[download]

Comment on GD::Graph::lines3d undef values dont work Select or Download Code

Replies are listed 'Best First'.
Re: GD::Graph::lines3d undef values dont work by stefbv (Priest) on Nov 21, 2009 at 15:15 UTC
It's nothing wrong with the code and I think that the 'skip_undef' option is not implemented in GD/Graph/lines3d.pm	[reply]