#!/usr/local/bin/perl

use strict;

#画像を作成・加工用モジュール
#この例ではサーバーに導入済みだが…
use GD;

#円周率（パイ）
my $PI = 3.141592;

# 画像の幅
my $width  = 100;
# 画像の高さ
my $height = 25;

#モジュールの初期化
my $im = new GD::Image($width, $height);

#タイトル
my $title = "イージー img";

#色の設定
my $white             = $im->colorAllocate(255,255,255);
my $black             = $im->colorAllocate(0,0,0);
my $red               = $im->colorAllocate(255,0,0);
my $blue              = $im->colorAllocate(0,0,255);

# インタレースを ON
$im->interlaced('true');

# 背景色として塗りつぶし四角を描く
# 四角は基準が左上
$im->filledRectangle(0, 0, $width-1, $height-1, $white);

# 外枠を描画
$im->rectangle(0, 0, $width-1, $height-1, $black);

# 青い楕円形を描画
# 楕円は中心が基準
$im->arc(4,5,6,6,0,360,$blue);

# 青で塗りつぶし
$im->fill(4,5,$blue);

# 線を引く
$im->line(0,11,100,11,$black);

# フォントサイズ
my $font_size = 10;   

my $str1_x = 8;# X 座標
my $str1_y = 10;# Y 座標
my $angle = 0;# 回転角度 （°）
	
my $str2_x = 20;# X 座標
my $str2_y = 23;# Y 座標

#フォントの位置
my $font_file ='/home/44/tms3000/public/perl/basic/simhei.ttf';

my	$str = int(rand()*1000);
my	$str = sprintf('%03d', $str);

# 文字を描画
# 文字の基準位置は左下
$im->stringFT($red,         # 色
	  $font_file,           # フォント
	  $font_size-1,         # フォントサイズ
	  $angle*($PI/180),     # 回転角度(ラジアン)
	  $str1_x, $str1_y,		# X・Y 座標
	  $str);				# 表示文字列

$im->stringFT($black,       # 色
	  $font_file,           # フォント
	  $font_size,           # フォントサイズ
	  $angle*($PI/180),		# 回転角度(ラジアン)
	  $str2_x, $str2_y,		# X・Y 座標
	  $title);				# 表示文字列
	
#画像として出力
binmode STDOUT;
print "Content-type: image/png\n\n";
print $im->png;

exit 0;