#!/usr/local/bin/perl -w


use strict;
use SWF::Builder;


my $movie = SWF::Builder->new(
	FrameRate       => 24,
	FrameSize       => [ 0, 0, 470, 100 ],
	BackgroundColor => '005599',
	Version => 7
);


for (my $i = 0; $i < 24; $i++) {
    my $mc = $movie->new_movie_clip;
    my $mc_shape = $mc->new_shape
                          ->fillstyle('6699DD')
                          ->linestyle('none')
                          ->moveto($i*50 - 100, 50)
                          ->circle(20);
    $mc_shape->place;


    $mc->frame_action(1)->compile( <<AS_END );
        var r = 0;
        function rescale() {
        	var n = Math.sin(r * Math.PI/180);
            this._xscale = this._yscale = 100 + (n + 0.35) * 200;
            r += 3;
        }
AS_END


    my $instance = $mc->place( Frame => $i + 5);
    $instance->on('EnterFrame')->compile('rescale()');
}


$movie->frame_action(24*5)->compile('stop();');
$movie->save('test.swf');


exit;

いやあ、サインカーブって良いよね。(なんだそれ)