view release on metacpan or  search on metacpan

lib/Bio/AssemblyImprovement/Util/FastqTools.pm  view on Meta::CPAN

# 	# Set graph details
# 	my $graph = new GD::Graph::histogram(400,600);
# 	$graph->set(
#                 x_label         => 'Read length',
#                 y_label         => 'Number of reads',
#                 title           => 'Histogram of read lengths for '.$self->input_filename,
#                 x_labels_vertical => 1,
#                 bar_spacing     => 0,
#                 shadow_depth    => 1,
#                 shadowclr       => 'dred',
#                 transparent     => 0,
#     )
#     or warn $graph->error;
#     #Draw the graph
#     my $gd = $graph->plot($arrayref) or die $graph->error;
#     #Store the graph
#     open(IMG, '>histogram.png') or die "Could not open a file called histogram.png";
#     binmode IMG;
#     print IMG $gd->png;
#
#     $self->_cleaup_after_ourselves($fastq_file);