« Trippenのブーツ | メイン | グチ »

November 07, 2005

PerlでSWF生成（SWF::Builder）

SWFを生成する面白いCPANモジュールを発見しました。
サンプルソースはこんな感じ。 
use SWF::Builder;

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

  my $shape = $movie->new_shape   # red triangle.
    ->fillstyle('ff0000')
    ->linestyle(1, '000000')
    ->moveto(0,-11)
    ->lineto(10,6)
    ->lineto(-10,6)
    ->lineto(0,-11);

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

my $text = $movie->new_static_text($font)
	->size(20)
	->color('000000')
	->text("hello world!")
	->place;

  my $instance = $shape->place;

  for (my $x = 0; $x < 400; $x++) {
      $instance->rotate(15)->moveto($x,200);
  }
  $movie->save('test.swf');
出力されるSWFはコレ

微妙です。このモジュールを使いこなせるようになるより、Flashを使いこなせるようになるほうが確実に手っ取り早いです。

でも、ちょっと何かで使いたい。

Author nitoka : November 7, 2005 10:38 PM

TrackBack

TrackBack URL:
http://www.nitoka.net/blog/mt-tb.cgi/32

Comment

Please, comment




save