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