1#!/usr/bin/perl -w
2# Generated by swftoperl converter included with ming. Have fun.
3
4# Change this to your needs. If you installed perl-ming global you don't need this.
5#use lib("/home/peter/mystuff/lib/site_perl");
6
7# We import all because our converter is not so clever to select only needed. ;-)
8use SWF qw(:ALL);
9# Just copy from a sample, needed to use Constants like SWFFILL_RADIAL_GRADIENT
10use SWF::Constants qw(:Text :Button :DisplayItem :Fill);
11
12$m = SWF::Movie::newSWFMovieWithVersion(9);
13
14SWF::setScale(1.0);
15$m->setFrames(10);
16#Unknown block type 69
17
18# SWF_SHOWFRAME
19$m->nextFrame(); # end of frame 1
20
21# SWF_SHOWFRAME
22$m->nextFrame(); # end of frame 2
23
24# SWF_SHOWFRAME
25$m->nextFrame(); # end of frame 3
26
27# SWF_SHOWFRAME
28$m->nextFrame(); # end of frame 4
29
30# SWF_SHOWFRAME
31$m->nextFrame(); # end of frame 5
32
33# SWF_SHOWFRAME
34$m->nextFrame(); # end of frame 6
35
36# SWF_SHOWFRAME
37$m->nextFrame(); # end of frame 7
38
39# SWF_SHOWFRAME
40$m->nextFrame(); # end of frame 8
41
42# SWF_SHOWFRAME
43$m->nextFrame(); # end of frame 9
44
45# SWF_SHOWFRAME
46$m->nextFrame(); # end of frame 10
47
48# SWF_DEFINESCENEANDFRAMEDATA
49$m->defineScene(0, "test0");
50$m->defineScene(5, "test1");
51
52# SWF_END
53
54$m->save("test01.swf");
55