perlで円グラフや折れ線グラフを表示するには

ｋｅｉ [E-Mail] [HomePage] 1998/05/09(土) 18:32:16
perlのスクリプトだけで円グラフや折れ線グラフを表示する
方法はあるのでしょうか？あったら教えてください。
説明が書いてあるＵＲＬや本の名前でもいいです。
よろしくお願いします。

とほほ 1998/05/10(日) 01:54:25
ブラウザ上に・・・ということであれば・・・うーん、難しいなぁ。
GIFファイルを生成するライブラリを用いて、自分で円グラフなどの
画像を生成するとか・・・（ただしこの場合はUnisysとのライセンス
契約が必要です）

<PICTBOX WIDTH=200 HEIGHT=200>
<PICT TYPE=LINE X0=0 Y0=0 X1=100 Y1=100>
<PICT TYPE=CIRCLE X=50 Y=50 R=50>
</PICTBOX>

なんていうタグが書ければいいのになぁ。

mo [E-Mail] 1998/05/10(日) 17:26:03
UNIX 上で GIF を生成するなら fly というツールを使ってみては
いかがでしょうか？ perl から fly をフィルタに使えば、
line, circle, string などを組み合わせた GIF ファイルを生成する
プログラムが簡単に書けます。詳しくは

http://www.unimelb.edu.au/fly/fly.html

を参照してみてください。

野狸 [E-Mail] [HomePage] 1998/05/12(火) 05:09:36
ビットマップで書くと表示が遅くなるのかな？
棒グラフならテーブルを使って簡単にできるんですがね。
ｋｅｉさんの発言には興味があります。

B-Cus 1998/05/12(火) 07:33:10
> UNIX 上で GIF を生成するなら fly というツールを使ってみては

おお、これは簡単！これを使ってアクセスカウンタのグラフ作っちゃろ。

# 情報量0でごめん。ちょっとうれしかったので(^^;

sekikawa [E-Mail] [HomePage] 1998/05/12(火) 10:56:20
書き込みは久しぶりです。
以前、Keiさんと同じ事をやろうと思ってgd Graphics Library
（flyを動かしてる元のライブラリ）を試した事があります。
辞書片手にマニュアル訳しつつやったところ...

#!/usr/local/bin/perl5

# GD.pm の使用を宣言
use GD;

# イメージヘッダを出力
print("Content-type: image/gif\n\n");

# GD Image を作成
$image = new GD::Image(200,20);

# 色の確保
$white = $image->colorAllocate(255,255,255);
$black = $image->colorAllocate( 0, 0, 0);
$blue = $image->colorAllocate( 0,200,255);

# $white に確保した色を透明色に設定
$image->transparent($white);

# 円弧を描いて中心を塗る
$image->arc(100,10,30,15,0,360,$blue);
$image->fill(100,10,$blue);

# 文字を書く
$image->string(gdMediumBoldFont,0,0,"This is GD.pm test.",$black);

# GIF形式に変換して出力
print $image->gif;

こんな感じでGIFファイルの生成が出来ちゃいました。
ちょっと面白かったです。

匿名希望 1998/05/14(木) 00:44:53
このGDやFLYというのは、UNISYS社のLZW特許の問題は
どうなっているのか、ご存知の方がおられましたら教え
てください。使用する人それぞれがUNISYS社とライセン
スを結ぶのでしょうか？