1#!/usr/bin/perl -w
2
3use SWF qw(:ALL);
4
5die "Usage: ".$0." <sourcedir>\n" unless @ARGV;
6$mediadir="$ARGV[0]/../Media";
7
8$m = SWF::Movie::newSWFMovieWithVersion(7);
9
10SWF::setScale(1.0);
11
12$stream = new SWF::SoundStream($mediadir.'/audio01.mp3');
13
14$mc = new SWF::MovieClip();
15$mc->setSoundStream($stream, $m->getRate());
16for ($i=0; $i<200; $i++) {
17	$mc->nextFrame();
18}
19
20$m->add($mc);
21
22$m->nextFrame();
23
24$m->save("test02.swf");
25