#!/usr/bin/perl

use SWF::Movie;
use SWF::Shape;

#print "Content-type: application/x-shockwave-flash\n";
#print "\n";

#新規に輪郭オブジェクトを作成する
$s = new SWF::Shape();
$s->setLine(1, 0, 0, 0);			#線の種類
$s->setRightFill($s->addFill(255, 0, 0));	#塗りつぶし色を追加する


# n 角形を描く 
$n=5;
$r=50;
$pi=3.14156;

for ($i=0; $i<= 2*$pi; $i+= 2*$pi/$n){
	$x=cos($i)*$r;
	$y=sin($i)*$r;

	$s->movePenTo($x, $y) if ($i == 0);
	$s->drawLineTo($x,$y) if ($i != 0);
}


$m = new SWF::Movie();

#ムービーの幅と高さ
$m->setDimension(200, 200);

#ムービーの背景
$m->setBackground(255,255,255);

#ムービーにインスタンスを追加
$i = $m->add($s);

#グローバル座標系でオブジェクトを移動
$i->moveTo(100, 100);

#ぐるぐるまわす
$deg=10;			#回したい角度	
for (0..360/$deg){		#一周するまで繰り返し
	$i->rotate($deg); 	#ぐるぐる回す	(増分を「度」で渡す)
	$m->nextFrame(); 	#次のフレームへ
}

#出力
$m->output();