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

[hideki_kimata at mail.goo.ne.jp]

初めて投稿します、キマタと申します。 
GD::Graphを使って表を作成しようと考えております。 

ここで、TTFを描画したいのですが、1バイト文字すら文字化けしてしまいます。 
環境はwindows98 or windowsNT4.0 
activeperl(v5.6.1build) GD(1.27) GD::Graph(1.33) 
です。 

まず、1バイト文字をＴＴＦで描画するために以下のスクリプトで試しました。 


use GD; 
use constant font => "c:\\windows\\fonts\\arial.ttf"; 

$im = new GD::Image(400,250); 


warn $GD::VERSION; 

($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 

# 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.5,60,100,"hello world!!")|| die $@;; 

open(FILE,">ttf.png"); 

binmode FILE; 

# print the image to stdout 
print FILE $im->png; 
close(FILE); 



出力画像をみると分かるとおり、□□□□□□□□□ 
となってしまいます。 
検索エンジンで調べた限りでは、このような現象を発見できませんでした。 
windows環境でどなたかTTFの描画に成功した方は、方法を教えてください。 

また、日本語も UTF8に変換すれば描画できるようなことがwebに書いてあった 
ので、こちらの情報もお持ちであればご教授願います。 

それでは、失礼します。  
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: image/x-png
Size: 2033 bytes
Desc: not available
Url : http://mail.pm.org/archives/kansai-pm/attachments/20020603/b61cbef1/attachment.bin