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(8);
13
14SWF::setScale(1.0);
15#Unknown block type 69
16
17# SWF_DEFINESHAPE3
18
19# Shape 1 (TYPE=3, RECT=-10,2010 -10,2010)
20$character1 = new SWF::Shape();
21#1 fillstyle(s)
22$character1_f0_red   = 0xff;
23$character1_f0_green = 0x80;
24$character1_f0_blue  = 0x00;
25$character1_f0_alpha = 0xff;
26$character1_f0 = $character1->addSolidFill($character1_f0_red, $character1_f0_green, $character1_f0_blue, $character1_f0_alpha ); #SWFFILL_SOLID
27#1 linestyles(s)
28$character1_l0_width = 20;
29$character1_l0_red   = 0x00;
30$character1_l0_green = 0x00;
31$character1_l0_blue  = 0x00;
32$character1_l0_alpha = 0xff;
33# StateLineStyle: 1
34$character1->setLine($character1_l0_width, $character1_l0_red, $character1_l0_green, $character1_l0_blue, $character1_l0_alpha);
35$character1->setRightFill($character1_f0);
36$character1->drawLine(2000, 0);
37$character1->drawLine(0, 2000);
38$character1->drawLine(-2000, 0);
39$character1->drawLine(0, -2000);
40
41# SWF_PLACEOBJECT2
42$i1 = $m->add($character1);
43$i1->setDepth(1);
44# PlaceFlagHasMatrix
45
46# SWF_SHOWFRAME
47$m->nextFrame(); # end of frame 1
48
49# SWF_END
50
51$m->save("test01.swf");
52