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$m->setRate(1.000000);
12
13$stream = new SWF::SoundStream($mediadir.'/sound1.mp3');
14
15$mc = new SWF::MovieClip(); # 2 frames
16$mc->setSoundStream($stream, $m->getRate());
17
18$mc->nextFrame(); # end of clip frame 1
19$mc->nextFrame(); # end of clip frame 2
20
21$m->add($mc);
22$m->nextFrame(); # end of frame 1
23
24$m->save("test01.swf");
25