[kansaipm] Re: GD でTTF を使うと文字化けしてしまいます

[KAWAI,Takanori]

川合孝典です。

----- Original Message -----
From: "takimoto" <takimoto at miki-net.or.jp>
To: <kansai-pm-list at pm.org>
Sent: Tuesday, June 04, 2002 12:56 AM
Subject: Re: [kansaipm] Re: [kansaipm] GD でTTF を使うと文字化けしてしまいま
す


> TAKIです
>
> "KAWAI,Takanori" <GCD00051 at nifty.ne.jp> wrote:
> >川合孝典です。
>
> こんばんわ
おはようございます(^^)。

（中略）
> う...  ということは，私の環境が何か特殊なのかも？？？
> 実はどうやって GD をインストールしたのか憶えていないのです．
>
> 何度かコンパイルしようとしてしくじったことはありましたが，
> でもWindowsでは ppm でインストールしただけだったよう思います．
> もう一回GDをインストールしなおしてみる というのはいかがでしょうか？
「実はこのためにPPMでインストールしたんです」と
思ったところで、１つ思い出したこと「ZIPがあるやん...」
で試してみたら、チャッカリうまくいくようになりました。
試しにremoveしてもう一度やり直しても普通にppmでインストール
したものでは、字が点になったりしてうまくいきませんでした。
＃どうもコードの位置がずれているような...
というわけで
＝手順＝
1) 今、インストールされているGDを削除する
  > ppm remove GD
2) ActiveStateのPPMのZIPを取得する（これはBuild6*用)
http://www.activestate.com/PPMPackages/zips/6xx-builds-only/GD.zip
3) 取得したZIPファイルをディレクトリ付で解凍
4) ファイルを解凍したディレクトリに移り、GD.ppdを使ってインストール
  > ppm install GD.ppd

といった感じで使えるようになると思います。お試しあれ。

[サンプル・コード]
use strict;
use GD;
use Jcode;
my $im = new GD::Image(400,250);
my ($white,$black,$red,$blue,$yellow) =
(
    $im->colorAllocate(255, 255, 255),
    $im->colorAllocate(0, 0, 0),
    $im->colorAllocate(255, 0, 0),
    $im->colorAllocate(0,0,255),
    $im->colorAllocate(255,250,205)
);
$im->interlaced(1); # cool venetian blinds effect

#$font = "c:\\windows\\fonts\\arial.ttf";
my $font = "c:\\windows\\fonts\\MSGOTHIC.TTC";

# Some TTFs
$im->stringTTF($black,$font,18.0,0.0,20,20,"Hello") || die $@;
$im->stringTTF($red,$font,14.0,0.0,20,80,"How are you")|| die $@;;
$im->stringTTF($blue,$font,30.0,-0.2,60,130,"hello world!!")|| die $@;;

my $japanese = 'Japanese日本語フォントOK!';
$im->stringTTF($red,$font,14.0,0.0,20,100,
    jcode($japanese)->utf8)|| die $@;;
open(FILE,">ttf.png");
binmode FILE;
print FILE $im->png;
close(FILE);


===================================================
川合 孝典 (Hippo2000)
   DBI日本語メーリングリスト管理人、Kansai.pm所属
   kwitknr at cpan.org GCD00051 at nifty.ne.jp
   http://member.nifty.ne.jp/hippo2000、http://www.hippo2000.info/
「Perlドキュメント日本語訳」メーリングリストがはじまりました
http://www.freeml.com/ctrl/html/MLInfoForm/perldocjp@freeml.com
===================================================