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