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$stream = new SWF::VideoStream($mediadir."/video01.flv");
11$stream->setDimension(200, 200);
12$stream->setFrameMode(SWF::Constants::SWFVIDEOSTREAM_MODE_MANUAL);
13
14$m->add($stream);
15
16$numFrames = $stream->getNumFrames();
17for ($i=0; $i<$numFrames; $i++)
18{
19	if ($i % 2) { $stream->nextFrame(); }
20	$m->nextFrame();
21}
22
23$m->save("test04.swf");
24