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
10$sound = new SWF::Sound($mediadir."/sound1.mp3",
11	SWF::Constants::SWF_SOUND_MP3_COMPRESSED);
12
13$m->addExport($sound,'sound1.mp3');
14$m->startSound($sound);
15
16$sound2 = new SWF::Sound($mediadir."/sound1.mp3",
17	SWF::Constants::SWF_SOUND_MP3_COMPRESSED);
18
19$sound2->setInitialMp3Delay(2048);
20
21$m->addExport($sound2,'delaySeeked');
22
23
24$m->save("test03.swf");
25