Perl GD:：图形字体和图例

我有一个perl脚本中的累积GD条形图，我似乎无法将标题字体更改为更大和粗体

此外，更重要的是，如何将图例添加到图形中？我已经读到，在实际的图形中可能没有这样做的方法，但添加了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";

my$graph=GD:：graph:：bar->new（900450）；
$graph->set(
x_标签=>“x标签”，
y_label=>“y label”，
title=>“title”，
t_margin=>5，
b_保证金=>2，
l_边距=>5，
r_边距=>5，
y_最小值=>0，
y_最大值=>1200，
y_tick_number=>8，
y_label_skip=>3，
累积=>1，
dclrs=>[qw（#4f81bd#70AD47#5b9bd5#FFC000#ED7D31#AFABAB#9E480E#997300#264478#ac63e3#FF7171ťd571ce）]，
fgclr=>黑色，
textclr=>黑色，
labelclr=>黑色，
axislabelclr=>黑色，
x_标签_垂直=>1，
y_long_ticks=>1，
线宽=>4，
钢筋间距=>10，
透明=>0，
)或警告$graph->error；
$tmp_trend_file='graph.png'；
打开（IMG，“>$tmp\U趋势文件”）或死亡$！；
双模式IMG；
打印IMG$graph->plot（\@data）->png（）；
关闭IMG；
打印“\n”；

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

$graph->set_legend_font（GD:：gdFontTiny）；
$graph->set_图例（拆分（“”，$legend））
GD确实有一些内置字体，但它也支持TrueType字体，从而提供更好的效果。这里有一些例子，你知道如何添加它们吗？这就是我无法理解的。而且，该链接仅指向一张封面幻灯片。我想这并不明显，有指向下一张幻灯片的链接，或者您可以使用箭头键或PgDn/PgUp。使用TrueType字体需要指定.ttf或.otf文件的路径名。