1#!/usr/bin/perl -w
2
3use SWF qw(:ALL);
4
5use Fcntl 'SEEK_SET';
6
7die "Usage: ".$0." <sourcedir>\n" unless @ARGV;
8$mediadir="$ARGV[0]/../Media";
9
10$m = SWF::Movie::newSWFMovieWithVersion(7);
11
12$stream = new SWF::VideoStream($mediadir."/video01.flv");
13$stream->setDimension(200, 200);
14$stream->setFrameMode(SWF::Constants::SWFVIDEOSTREAM_MODE_MANUAL);
15
16$m->add($stream);
17
18for ($i=0; $i<50; $i++)
19{
20	if ($i == 30) { $off = $stream->seek(50, SEEK_SET); }
21	if ($i == 40) { $stream->seek($off, SEEK_SET); }
22	$stream->nextFrame();
23	$m->nextFrame();
24}
25
26$m->save("test06.swf");
27