GD ::图形字体和传奇

Question

我在perl脚本中有一个累积的gd bar图，我似乎无法将标题字体更改为较大和粗体。

，更重要的是，如何将传奇添加到图表中？我读过，在实际图中可能没有办法这样做，而是使用GD :: Graph :: Map。

添加。

关于如何做任何一种的想法？我找不到其他任何地方应用的一个答案。

谢谢

my $graph = GD::Graph::bars->new (900,450);
$graph->set(
 x_label         => 'X Label',
 y_label         => 'Y label',
 title           => 'Title',
 t_margin        => 5,
 b_margin        => 2,
 l_margin        => 5,
 r_margin        => 5,
 y_min_value     => 0,
 y_max_value     => 1200,
 y_tick_number   => 8,
 y_label_skip    => 3,
 cumulate        => 1,
 dclrs           => [qw(#4f81bd #70AD47 #5b9bd5 #FFC000 #ED7D31 #AFABAB #9E480E #997300 #264478 #ac63e3 #FF7171 #d571ce)],
 fgclr           => black,
 textclr         => black,
 labelclr        => black,
 axislabelclr    => black,
 x_labels_vertical => 1,
 y_long_ticks      => 1,
 line_width      => 4,
 bar_spacing     => 10,
 transparent     => 0,
) or warn $graph->error;

$tmp_trend_file = 'graph.png';
open(IMG, ">$tmp_trend_file") or die $!;
binmode IMG;
print IMG $graph->plot(@data)->png();
close IMG;  
print "<p><img src=$tmp_trend_file border=1><p>n";

Answer 1

您可以添加传奇并使用以下代码更改字体：

$graph->set_legend_font(GD::gdFontTiny); $graph->set_legend(split(' ',$legend));