view release on metacpan or  search on metacpan

lib/Bio/NEXUS/Tools/NexPlotter.pm  view on Meta::CPAN

}
elsif ( $runtime_options->{'output_type'} eq "pdf" ) {
	my $p    = new PDF::API2::Lite;
	my $font = $p->corefont("Courier");
	$p->page($nexusG->get_xsize,$nexusG->get_ysize);
	$my_data_obj->set_image_handler($p);
	$my_data_obj->set_font($font);
}
else {
	my $im = new GD::Simple($nexusG->get_xsize,$nexusG->get_ysize);
# make the background transparent and interlaced
#$im->transparent($white);
	$im->interlaced('true');
	$my_data_obj->set_image_handler($im);
	$my_data_obj->allocate_colors;
	$my_data_obj->set_font(gdSmallFont());
}


##############################

# Assgn state to nodes by taxonomy