レス数が1スレッドの最大レス数(1000件)を超えています。残念ながら投稿することができません。
最新流出情報
-
use GD::Graph::lines;
use utf8;
@data = (
[ "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep" ],
[ sort { $a <=> $b } (4, 3, 5, 6, 3, 1.5, -1, -3, -4)],
);
$my_graph = new GD::Graph::lines();
my $graphtitle = "日本語で表示";
$my_graph->set(
x_label => 'Month',
y_label => 'Measure of success',
title => $graphtitle,
# title => Jcode->new($graphtitle)->utf8,
transparent => 0,
);
$my_graph->set_title_font('C:\WINDOWS\Fonts\MSgothic.ttf', 18);
$my_graph->set_x_label_font('../FONT/Dustismo_Sans.ttf', 10);
$my_graph->set_y_label_font('../FONT/Dustismo_Sans.ttf', 10);
$my_graph->set_x_axis_font('../FONT/Dustismo_Sans.ttf', 8);
$my_graph->set_y_axis_font('../FONT/Dustismo_Sans.ttf', 8);
$my_graph->plot(\@data);
open( IMG , " > ./sample3.png") || die $!;
binmode IMG;
print IMG $my_graph -> plot(\@data) -> png;
close(IMG);
掲示板管理者へ連絡
無料レンタル掲示板