fladdict.net blog: トゥルータイプフォントを、swfフォントにコンバートする方法

CPANにSWF::Builderというのがあるのでそれで試してみました。

#!/usr/bin/perl

use strict;
use utf8;
use SWF::Builder;

my $movie = SWF::Builder->new (
	FrameRate => 15,
	FrameSize => [0, 0, 400, 400],
	BackgroundColor => 'ffffff'
);

my $font = $movie->new_font('msgothic.ttc');

my $text = $movie->new_static_text($font)
	->size(10)
	->color('000000')
	->text("こんにちわ")
	->place;

$movie->save('ttf.swf');

ほとんどSYNOPSISのコピペ。
cygwin上の5.8でしか試してませんが、こんな感じでいけそうです。
ttf形式のまま使えるのでmingより少し楽。